1 blackScreen()
2 Dim wshShell
3 Set wshShell = CreateObject("Wscript.Shell")
4 Set RE = New RegExp
5 RE.IgnoreCase = True
6 path = getFileName()
7 If path = "" Then
8 MsgBox "no file"
9 Exit Function
10 End If
11 wshShell.SendKeys "{Esc}"
12 wshshell.Run path
13 End Function
14 blackScreen()
Dim wshShell
Set wshShell = CreateObject("Wscript.Shell")
Set RE = New RegExp
RE.IgnoreCase = True
path = getFileName()
If path = "" Then
MsgBox "no file"
Exit Function
End If
wshShell.SendKeys "{Esc}"
wshshell.Run path
End Function
