|
Hallo zusammen,
aus einem Programm werden mehrfach wöchentlich eine oder mehrere Dateien exportiert. Diese Dateien im .dbf Format sollen gesucht und in ein anderes Verzeichnis kopiert werden. Idealerweise sollen die dbf dabei direkt in xlsx umgewandelt werden.
Die Bezeichnung der Dateien ist immer "Auftraege_tgl_YYYY_MM_DD_HHMMSS.dbf"
Meine VBA Kenntnisse sind rudimentär, ich bin nur in der Lage ohne Loop nach einer Datei von heute zu suchen und diese zu kopieren, da jedoch auch mehrere Dateien mit selben Datum (andere Uhrzeit) vorhanden seien können, komme ich nicht weiter. Der Code sieht wie folgt aus:
Sub Copy_files()
Dim FSO
Dim Dateiname, Pfad, teil As String
teil = "Auftraege_tgl_"
n = Format(Date, "YYYY_MM_DD")
Pfad = "G:\VS_EA\EXPORT\F01\"
Dateiname = Dir(Pfad & teil & n & "_??????.dbf")
Zielpfad = "P:\DUG_DATEN\"
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FileExists(Pfad & Dateiname) Then
MsgBox "Datei nicht gefunden", vbInformation, "nicht gefunden"
ElseIf Not FSO.FileExists(Zielpfad & Dateiname) Then
FSO.CopyFile (Pfad & Dateiname), Zielpfad, True
MsgBox " Erfolgreich kopiert", vbInformation, "Done!"
Else
MsgBox "Datei existiert bereits", vbExclamation, "existiert bereits"
End If
End Sub
Es muss also der Pfad nach den Dateien mit "Auftraege_tgl_" & heutiges Datum durchsucht werden, diese sollen dann in den Ziepflad in einem anderem Format wandern.
Ich hoffe mir kann jemand helfen.
Danke und beste Grüße
|