Ich habe hier ein kleines VBS-Skript für Dich. Da musst du die Datei die kopiert werden soll an einem bestimmten Pfad abgelegt werden.
und dann musst du noch die Pfade ändern aber das sollte kein Problem sein denke ich.
Wie gesagt, Skript kurz anpassen und ausprobieren
dim fs, baseFolder, oFolder
dim sDateiname
sQuellPfad="c:\"
sDateiname="Test.exe"
sZielPfad="D:\kunden\"
Set fs = CreateObject("Scripting.FileSystemObject")
if fs.FileExists(sQuellPfad + "\" +sDateiname)=true then
set baseFolder = fs.GetFolder(sZielPfad)
for each oFolder in baseFolder.SubFolders
if fs.FolderExists( oFolder.Path + "\dsas\bin\" ) = true then
fs.CopyFile sQuellPfad+"\"+sDateiname, oFolder.Path + "\dsas\bin\"+sDateiname, true
else
msgbox "Datei existiert nicht! Pfad:"+oFolder.Path + "\dsas\bin\"+sDateiname
end if
if fs.FolderExists( oFolder.Path + "\dsas\lohn\bin\" ) = true then
fs.CopyFile sQuellPfad+"\"+sDateiname, oFolder.Path + "\dsas\lohn\bin\"+sDateiname, true
else
msgbox "Datei existiert nicht! Pfad:"+oFolder.Path + "\dsas\lohn\bin\"+sDateiname
end if
Next
else
msgbox "Ursprung-Datei existiert nicht!"
end if
msgbox "Fertig!", vbOKonly[/PHP]