Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge

vbs Daten kopieren

malte simon / 0 Antworten / Baumansicht Nickles

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

bei Antwort benachrichtigen