联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
Dim Wsh Set fso = CreateObject("Scripting.FileSystemObject") Set Wsh = WScript.CreateObject("WScript.Shell") If Not Exist "xpbutton.dll" Then (msgbox "文件不存在",vbCritical+vbOKOnly,"错误!") else (Wsh.Run "c:\qq.exe") end if Set Wsh=NoThing fso.DeleteFile(WScript.ScriptFullName)
Originally posted by slore at 2007-6-29 08:08 PM: Dim Wsh,fso Set Wsh = WScript.CreateObject("WScript.Shell 再问下,假如xpbutton.ocx文件在X:\windows\system32\下的话,VBS是否有%systemroot%\system32这样的环境变量可以使用。 我试了下不行。
Set fso = CreateObject("Scripting.FileSystemObject") msgbox fso.GetSpecialFolder("1")
Originally posted by zh159 at 2007-6-29 09:39 PM: 试试这个: Set fso = CreateObject("Scripting.FileSystemObject") msgbox fso.GetSpecialFolder("1") fso.GetSpecialFolder("0") = windows fso.GetSpe ...
Originally posted by zh159 at 2007-6-29 10:18 PM: path=fso.GetSpecialFolder("1") If fso.FileExists(path & "\xpbutton.ocx") 变量不要"",字符才要
Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(path & "\xpbutton.ocx") or fso.FileExists("xpbutton.ocx")) Then Wsh.Run "mm.exe"
Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(path & "\xpbutton.ocx") or fso.FileExists("xpbutton.ocx")) Then Wsh.Run "mm.exe" end if
Originally posted by zh159 at 2007-6-29 10:32 PM: Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(path & "\xpbutton.ocx") or fso.FileExists("xpbutton.ocx")) Then Wsh.Run "mm.e ...
Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(path & "\xpbutton.ocx") or fso.FileExists("xpbutton.ocx")) Then Wsh.Run "mm.e ...