[Wscript] Exec-functie met prog in stringvar

[freeco]

Om me van tijd tot tijd te helpen herinneren aan een defrag en andere sporadisch terugkeren onderhoudsdingetjes, heb ik een simpel scriptje gemaakt om in mijn Scheduled tasks te dumpen:

code:

Option Explicit

Dim iAnswer
Dim oFSO
Dim sLaunchFile
Dim oShell
Dim oDefrag

iAnswer = MsgBox ("Would you like to defrag?", vbOKCancel, "Defrag?")

If iAnswer = 1 Then
  'OK was clicked
  Set oFSO = CreateObject ("Scripting.FileSystemObject")
  sLaunchFile = "C:\Program Files\Common Files\OO Software\Defrag\oodcnt.exe"
  If oFSO.FileExists(sLaunchFile) Then
    Set oShell = WScript.CreateObject("WScript.Shell")
    Set oDefrag = oShell.Exec(sLaunchFile)
  Else
    MsgBox "Could not find the executable!"
  End If
Else
  'Cancel was clicked
End If

Deze regel werkt niet:
Set oDefrag = oShell.Exec(sLaunchFile)

Als ik sLaunchFile vervang door "C:\Program Files\Common Files\OO Software\Defrag\oodcnt.exe" werkt het wel.
Ik had het toch graag gehad dat ik gewoon die variabele kan gebruiken.

Weet iemand hoe ik dit kan oplossen? Een search heeft me niets bruikbaars opgeleverd...

[André]

Dim sLaunchFile as String?

[reussue]

Je kan hem niet als String declareren, het is een stukje VBScript.
Bij mij werkt het script perfect, het enige wat ik gedaan heb is de filenaam veranderen. Wat voor foutmelding krijg je precies?

[freeco]

krijg nou wat... nu werkt het, en ik heb er niets aan veranderd...
ik had net wat zitten prullen in de help van O&O om nog een commandline bij te voegen, verder niets.

voel ik me nu stom zeg