Hallo,
ich habe einen Ordner "lists" mit verschiedenen txt-Dateien, in der Form test1_bla1.txt.
Dann habe ich einen weiteren Ordner an anderer Stelle der wiederum verschieden Ordner test1 usw. besitzt.
Jetzt möchte ich ein Script schreiben, das alle Textdateien aus dem Ordner lists mit dem String "test1" in den Ordner "test1" kopiert werden. Das soll dann für alle weiteren Dateien passieren.
Nun sollte das ganze dynamisch sein, wobei ich die Kopiermethode leider nur statisch programmiert habe.
Dim fso : Set fso = CreateObject( "Scripting.FileSystemObject" )
dim zielpfad1 : zielpfad1 = "c:\test\"
dim zielpfad2 : zielpfad2 = "\werhatzugriff\"
dim zielpfad3 : zielpfad3 = "..\lists\*"
Dim ordner1 : Set ordner1 = fso.GetFolder(zielpfad1 & "test1" & zielpfad2)
Dim datei1 : datei1 = zielpfad3 & "test1" & "*"
Dim ordner2 : Set ordner2 = fso.GetFolder(zielpfad1 & "test2" & zielpfad2)
Dim datei2 : datei2 = zielpfad3 & "test2" & "*"
Wscript.Echo "Dateien werden kopiert ..."
on error resume next
oFS.copyfile datei1,ordner1,true
on error resume next
oFS.copyfile datei2,ordner2,true
Wscript.Echo "... kopieren abgeschlossen!"
Gibt es da einen bessere Lösung?
Dank
Marco