FileSearch
10.01.2005 10:55:00
Dominic
Ich habe bisher diesen Code benutzt um einige Dateien aufzulisten. Aber in diesem Jahr geht es nicht (wird nichts gefunden). Woran kann es denn liegen?
Sub test
verz = "C:\Dokumente und Einstellungen\DE0328\Desktop\GAMMA\"
ChDrive Left(verz, 2)
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.LastModified = msoLastModifiedToday
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
Cells(i, 1).Value = .FoundFiles(i)
Next i
End With
End Sub
gruß
Dominic
Anzeige