CopyToDVD with WshShell problem

[utilman]

I get a "could not find file" error message when I run this script. Can somebody help me out..


'Burn Backup with CopyToDVD

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
wshshell.run "C:\Program Files\CopyToDVD\copytodvd\copytocd.exe " & "E:\Downloads\Symantec AntiVirus Corporate Edition 9.0.0 Build 1400"

Set WshShell = Nothing

 

[PHV]

Try to Replace this:
wshshell.run "C:\Program Files\CopyToDVD\copytodvd\copytocd.exe " & "E:\Downloads\Symantec AntiVirus Corporate Edition 9.0.0 Build 1400"
By this:
wshshell.run """C:\Program Files\CopyToDVD\copytodvd\copytocd.exe"" " & """E:\Downloads\Symantec AntiVirus Corporate Edition 9.0.0 Build 1400"""


Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[utilman]

Thx m8.. totally forgot those triple " option. Always seems to work with LFN
Fortunately you helped me out here.. Thx again for your reply

 

[utilman]

Here is the complete code:


'Burn Backup with CopyToDVD

Dim WshShell
createobject("wscript.shell").popup "Over 30sec begint de backup. Zorg dat er een CDRW in de brander zit!", 30, "BACKUP naar CDRW (CopyToDVD)", 64

Set WshShell = CreateObject("WScript.Shell")
wshshell.run """C:\Program Files\CopyToDVD\copytodvd\copytocd.exe"" " & """E:\UPLOAD\Acronis Disk Director Suite v9.0""", 0, True

createobject("wscript.shell").popup "Backup is voltooid!", 5, "BACKUP naar CDRW (CopyToDVD)", 64

Set WshShell = Nothing