Okay. Hartnäckigkeit zahlt sich manchmal doch aus. Dein Skript hat mich auf den richtigen Weg geführt. Hier die Lösung:
dim fs, baseFolder, oFolder
dim sDateiname, sZielPfad
sDateiname="Inhalt.txt"
sZielPfad="D:\Hauptordner\"
Set fs = CreateObject("Scripting.FileSystemObject")
set baseFolder = fs.GetFolder(sZielPfad)
for each oFolder in baseFolder.SubFolders
if fs.FileExists(oFolder.Path+"\Inhalt.txt") = true then
fs.CopyFile oFolder.Path+"\"+sDateiname, oFolder.Path+"\"+"InhaltNEU.txt", true
else
msgbox "Datei existiert nicht! Pfad:" + oFolder.Path + "\Inhalt.txt"
end if
Next
msgbox "Fertig!"
[/PHP]
[font=Tahoma]Die drei Stunden haben sich gelohnt, jetzt habe ich eine ungefähre Vorstellung wie VBS-Skripte funktionieren und kann mir da noch ein paar Sachen einbauen, die ich ebenfalls gebrauchen könnte!
Viele Grüße![/font]