
CODE: [Copy to clipboard]我对VBS一窍不通,又有所兴趣,我知道我这段代码错的很离谱,请看得懂我意思的大虾帮修改一下!谢谢!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)
| Quote: | |
|
CODE: [Copy to clipboard]fso.GetSpecialFolder("0") = windowsSet fso = CreateObject("Scripting.FileSystemObject")
msgbox fso.GetSpecialFolder("1")
| Quote: | |
|
| Quote: | |
|
CODE: [Copy to clipboard]如果分行,后面还要加上end ifSet fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(path & "\xpbutton.ocx") or fso.FileExists("xpbutton.ocx")) Then Wsh.Run "mm.exe"
CODE: [Copy to clipboard]Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(path & "\xpbutton.ocx") or fso.FileExists("xpbutton.ocx")) Then
Wsh.Run "mm.exe"
end if
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |