Hallo ich möchte gerne eine Datei vom Verzeichnis mit der VBS Datei in c:\windows\system32 verschieben. Wichtig das script soll auch gehen wen der Pfad D:\windows\system32 oder F:\winXP\system32 ist. Gibt es eine möglichkeit diesen Code zu vereinfachen / optimieren? Ohne z.b. Set oShell oder so. mfg
Set fso = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject( "WScript.Shell" )
user=oShell.ExpandEnvironmentStrings("%systemroot%")
ziel=use& "\system32"
quelle="v1.txt"
fso.MoveFile Quelle, Ziel
