zum einen erstmal vielen Dank für dieses großartige Forum und euch unglaublich hilfsbereiten Mitglieder. Bisher konnte ich alle meine Scripte durch mitlesen, lernen und entsprechend ändern problemlos anpassen. Jetzt bräuchte ich allerdings doch mal eure direkte Hilfe.
Ich habe eine Excel erstellt die mir verschiedene Anfragen als PDF erstellt und in einem Ordner speichert. Dabei haben alle PDF-Dateien einen ähnlichen Namen, z.b. "LST 123456789.PDF", "Bestellung 987654321.pdf" etc. Es ist immer eine 9-stellige Nummer vor dem Punkt mit der Dateiendung.
Ich möchte jetzt gerne einen Button einbinden dessen Script soll dann in einem bestimmten Ordner nachsehen ob Dateien vorhanden sind, wenn ja diese entsprechend der 9-stelligen Nummer im Dateinamen in einen Ordner mit dieser 9-Stelligen Zahl verschieben. Wenn der Ordner nicht existiert, dann erst erstellen und dann verschieben.
Ich habe ein Script hier gefunden das etwas ähnliches durchführt. Nur komme ich nicht drauf wie ich nur die letzten 9 Stellen des Dateinamens benutzen kann, und wie ich die Schleife aufbauen muss, damit das Script so lange durchläuft bis keine Datei mehr im Ordner vorhanden ist.
Hier mal das gefundene Script:
Sub File_verschieben()
Dim Quelle$, Ziel$, FSO As Object
Quelle = "C:\abc\LN*.*"
If Dir(Quelle) = "" Then
MsgBox "Keine Dateien vorhanden!"
Else
Ziel = "V:\xyz\"
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.MoveFile Quelle, Ziel
Set FSO = Nothing
End If
End Sub
Könnt Ihr mit bitte bei dem Problem helfen ? vielen Dank für eure Mühe.
Mario