Supportnet / Forum / Skripte(PHP,ASP,Perl...)
parametereingabe für zeit, quelle und ziel
Frage
heyho
da bin ich wieder ... :)
ich möchte mein script mit parametern aufrufen ... z.B. so:
script.vbs /10 \quelle\datei.* \\ziel\zielverzeichnis
nur hab ich echt keine ahnung, wie man sowas realisieren kann (vielleicht bin ich heute auch einfach nur zu ausgebrannt, selbst drüber nachzudenken ...)
' Main Routine
Set FSO = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "c:\ziel\*.*", true
Set fso = Nothing
Set osh = wscript.CreateObject("wscript.Shell")
osh.Run "c:\arj.exe a c:\test\test.arj c:\test\*.bak"
wscript.sleep 600000 '1000 = 1 Sekunde warten (damit das kopieren der gepackten datei starten kann)
do_backup()
Wscript.Quit()
Function do_backup()
Dim FSO, WSH, WSHNetwork
Set WSHNetwork = WScript.CreateObject("WScript.Network")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
' Copyfile kopiert alle *.arj dateien aus C:\test
If FSO.FolderExists("\\amd900\ziel\") Then
FSO.CopyFile "C:\test\*.arj" , "\\amd900\ziel\"
Else
Msgbox "zielverzeichnis nicht korrekt."
End If
End Function