FileSearch
12.06.2007 14:32:00
Manfred
ich habe ein Problem mit der Dateisuche. Der findet mir die Dateien nicht. Der Quellordner ist richtig, der Dateiname auch!
aber die variable "gefunden" nimmt niemals einen wert größer 0 an!
Kann mir jemand den Fehler im Code sagen?
Danke und Grüße
With Application.FileSearch
.NewSearch
.LookIn = such_pfad 'Quell_ordner
.SearchSubFolders = True
.Filename = "*" & raw_datum & "*" & ".zip"
If .Execute Then
gefunden = .FoundFiles.count
End If
If gefunden [größer] 0 Then
GoTo okay
Else
frm_zip_auswahl.Show
End If
End With