title image


Smiley Re: XS97: Dateiliste eines Ordners auslesen
Hiermit:





Function GetAllFiles(strPath As String, Optional bolSearchSubFolders As Boolean = True) As Boolean



' Gibt alle Dateien eines Verzeichnisses (einschl. den in ggf. vorhandenen

' Unterverzeichnissen liegenden) im Direktfenster aus



Dim fs As FileSearch

Dim i As Long





On Error GoTo GetAllFilesErr





GetAllFiles = False

Set fs = Application.FileSearch



With fs



.NewSearch

.LookIn = strPath

.FileType = msoFileTypeAllFiles

.SearchSubFolders = bolSearchSubFolders

If .Execute(msoSortByFileName, msoSortOrderAscending) > 0 Then

For i = 1 To .FoundFiles.Count

Debug.Print .FoundFiles(i)

Next i

End If



End With



GetAllFiles = True



GetAllFilesExit:

Set fs = Nothing

Exit Function



GetAllFilesErr:

GetAllFiles = False

MsgBox Err.Description, vbCritical, "Laufzeitfehler " & Err.Number

Resume GetAllFilesExit



End Function











Ob Du Unterverzeichnisse mit durchsuchen möchtest, regelt der Parameter bolSearchSubFolders. Aufruf geht z.B. so:





MsgBox GetAllFiles("C:\Temp\")





Greetz,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: