Oversæt *.CMD til *.VBS

Her er forsøg, hvis filen det skal kopiere ikke findes laver det en fejl:-)

On Error Resume Next
Dim filesys : set filesys=CreateObject("Scripting.FileSystemObject") ' bruges til at håndtere filer med
Dim WshShell : Set WshShell = WScript.CreateObject("WScript.Shell") ' bruges bla til at starte et program unden for scriptet

Do
Dim test : test = inputbox("Select System  1, 2, eller 3")
Loop while test > 3 OR NOT IsNumeric(test)' checker om du har skrevet et mellem 1 og 3 eller bogstaver bogstaver 

'System 1
if test = (Int(1)) then
filesys.CopyFile "C:\system\Setup1.cfg", "C:\Programmer\XXX\Setup.cfg"
call WshShell.Run("C:\Programmer\XXX\program.cmd.lnk", 1) 'skal vindues køres minimeres skift 1 ud med 0
End if

'System 2
if test = 2 then
filesys.CopyFile "C:\System\Setup2.cfg", "C:\Programmer\XXX\Setup.cfg"
call WshShell.Run("C:\Programmer\XXX\program.cmd.lnk", 1)
End if

'System 3
if test = 3 then
filesys.CopyFile "C:\System\Setup3.cfg", "C:\Programmer\XXX\Setup.cfg"
call WshShell.Run("C:\Programmer\XXX\program.cmd.lnk", 1)
Else ' trykker brugeren på Cancel kommer denne msgbox disse linier kan fjernes
msgbox "Du skal taste et nummer mellem 1 og 3" '
End IF

set filesys = Nothing
Set WshShell = Nothing

(Ser rigtigt ud - skal lige afprøves i løbet af ugen...)

... den (som skelet) er ganske brugbar ...
Læg [svar]...

Det er jeg da glad for at høre:-)