Hallo beisammen,
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