Sub test()
Dim Dateisuche As Object
Dim i As Integer
Set Dateisuche = Application.FileSearch
With Application.FileSearch
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i) & vbLf & FileSystem.FileDateTime(.FoundFiles(i))
' If 'hier entsprechende Auswertung eintragen
' End If
Next i
Else
MsgBox "Es wurden keine Dateien gefunden."
End If
End With
End Sub
Sub test()
Dim Dateisuche As Object
Dim i As Integer
Set Dateisuche = Application.FileSearch
With Application.FileSearch
.LookIn = "d:\..."
.SearchSubFolders = True
.Filename = "*.afd"
.LastModified = msoLastModifiedToday
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i) & vbLf & FileSystem.FileDateTime(.FoundFiles(i))
' If 'hier entsprechende Auswertung eintragen
' End If
Next i
Else
MsgBox "Es wurden keine Dateien gefunden."
End If
End With
End Sub
Damit wird schon die richtige Datei gefunden. Kann mir jetzt noch jemand sagen, wie ich die Meldung der gefundenen Datei weg bekomme und die gefundene Datei direkt öffne?
Das ganze soll ohne Bestätigung ablaufen, ganz automatisch.
Wo muss ich dann noch die ganzen Formatierungen die ich in einem anderen Makro erstellt habe einfügen?