Hallo,
ich habe in einem Ordner folgende Dateien leigen:
d:\verteil\02764.pdf
d:\verteil\02723.pdf
d:\verteil\03434.pdf ... usw.
Diese Dateien sollen nun mit einem vbs script in bestimme Ordner verschoben werden deren ersten 5 Stellen der Nummer gleich ist.
Die Ordner heißen:
d:\akte\02764 Max Mustermann
d:\akte\02723 Peter Musterhausen
d:\akte\03434 Heinz Muster
Folgendes Script habe ich vorbereitet:
Hat jemand eine Idee?
ich habe in einem Ordner folgende Dateien leigen:
d:\verteil\02764.pdf
d:\verteil\02723.pdf
d:\verteil\03434.pdf ... usw.
Diese Dateien sollen nun mit einem vbs script in bestimme Ordner verschoben werden deren ersten 5 Stellen der Nummer gleich ist.
Die Ordner heißen:
d:\akte\02764 Max Mustermann
d:\akte\02723 Peter Musterhausen
d:\akte\03434 Heinz Muster
Folgendes Script habe ich vorbereitet:
VB.NET-Quellcode
- Set FSO=CreateObject("Scripting.FileSystemObject")
- Set Folder=FSO.GetFolder("d:\verteil\")
- For Each File in Folder.Files
- dateiname = Split(file.name," ")
- persnr = dateiname(1)
- fso.copyfile "d:\verteil\" & file.name, "d:\akte\" & persnr ' Gibt es hier vieleicht eine Möglichkeit mit * zu arbeiten?
- fso.DeleteFile "d:\verteil\" & file.name
- Next
Hat jemand eine Idee?