title image


Smiley FileSearch / Subfolders / msoSortByFileName - Sortieren nach Ordnern?
Hallo Spotlighter,



ich lese mit FileSearch die Namen aller docs in einem Root Folder und dessen SubFolders aus. Das funktioniert soweit und die Namen werden auch nach den Dateinamen sortiert ausgegeben (msoSortByFileName). Jetzt würde ich aber gerne noch alles nach den Ordnernamen sortiert haben - also erst alle docs alphabetisch sortiert des Root Folders und dann die des ersten Sub Folders, dann die des zweiten usw.



Also nicht:

C:\test\ordner1\a.doc

C:\test\ordner2\b.doc

C:\test\ordner1\c.doc



Sondern:

C:\test\ordner1\a.doc

C:\test\ordner1\c.doc

C:\test\ordner2\b.doc



Geht das irgendwie? Wäre für einen schlauen Tipp sehr dankbar :-)



Hier mein aktueller Code:







Sub DocReportNames()



vInputDir = "C:\test"



Set vFileSearch = Application.FileSearch

    With vFileSearch

        .LookIn = vInputDir

        .SearchSubFolders = True

        .FileName = "*.doc"

        If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 _

            Then

                For i = 1 To .FoundFiles.Count

                    vFileList = vFileList + .FoundFiles(i) & Chr(13)

                Next i

                    Selection.TypeText vFileList

            Else

                MsgBox "There are no DOCs in this Directory!"

        End If

    End With



End Sub



Code eingefügt mit Syntaxhighlighter 2.5




-------------------------------------------
"Nobody will ever need more than 640k RAM!"
1981 Bill Gates




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: