hi
Wollte mit der Function test() schauen wieviel files insgesamt im Ordner c:\daten und in den Unterordnern stecken.
Jetzt ist es so das im Prinzip alles klappt, nur ist mir aufgefallen das die Anzahl der Dateien nicht stimmt. Wenn ich im Explorer kontrolliere und mit der rechten Maustaste auf c:\daten klicke und schaue wieviele Dateien in diesem Ordner sind, stimmt es mir nicht! hat vielleicht jemand einen Tipp?
Function test()
Dim fs, i
Set fs = Application.FileSearch
With fs
.LookIn = "c:\daten"
.SearchSubFolders = True
.fileName = "*"
.Execute
Debug.Print .foundfiles.Count
End With
End Function
Thanks
Wollte mit der Function test() schauen wieviel files insgesamt im Ordner c:\daten und in den Unterordnern stecken.
Jetzt ist es so das im Prinzip alles klappt, nur ist mir aufgefallen das die Anzahl der Dateien nicht stimmt. Wenn ich im Explorer kontrolliere und mit der rechten Maustaste auf c:\daten klicke und schaue wieviele Dateien in diesem Ordner sind, stimmt es mir nicht! hat vielleicht jemand einen Tipp?
Function test()
Dim fs, i
Set fs = Application.FileSearch
With fs
.LookIn = "c:\daten"
.SearchSubFolders = True
.fileName = "*"
.Execute
Debug.Print .foundfiles.Count
End With
End Function
Thanks
