2110909
来源:互联网 发布:js除法取整 编辑:程序博客网 时间:2024/06/14 03:53
Call Sys.OleObject("WScript.shell").Run("cmd /k cd c:\ & dir")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''use shell
dim WshShell
'Call Sys.OleObject("WScript.Shell").Run("cmd.exe /c mkdir " & """" & aToTalFolderName & """",0,True)
'Call Sys.OleObject("WScript.shell").Run("cmd /k cd c:\ & dir")
set WshShell = Sys.OleObject("WScript.Shell")
WshShell.Run "%windir%\notepad.exe"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''