中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-05 07:39 		共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行
DOS批处理 & 脚本技术（批处理室） » VBS的能否检测文件是否存在？
可打印版本 　1,252 / 12
第1楼　heicai 发表于 2007-06-29 19:53
中级用户　发帖 156　积分 385
VBS的能否检测文件是否存在？


我对VBS一窍不通，又有所兴趣，我知道我这段代码错的很离谱，请看得懂我意思的大虾帮修改一下！谢谢！
第2楼　wudixin96 发表于 2007-06-29 20:05
银牌会员　发帖 931　积分 1,928
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
msg = filespec & " 存在。"
Else
msg = filespec & " 不存在。"
End If
ReportFileStatus = ms
第3楼　slore 发表于 2007-06-29 20:08
铂金会员　发帖 2,478　积分 5,212
Dim Wsh,fso
Set Wsh = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists("xpbutton.dll") Then
Wsh.Run "c:\qq.exe"
Else
MsgBox "文件不存在",vbCritical + vbOKOnly,"错误!"
End If
fso.DeleteFile(WScript.ScriptFullName)

Set fso = Nothing
Set Wsh = Nothing
第4楼　heicai 发表于 2007-06-29 20:49
中级用户　发帖 156　积分 385
感谢两位大虾帮助，顺利成功了！
第5楼　heicai 发表于 2007-06-29 21:32
中级用户　发帖 156　积分 385
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这样的环境变量可以使用。 我试了下不行。
第6楼　zh159 发表于 2007-06-29 21:39
金牌会员　发帖 1,467　积分 3,687
试试这个：


fso.GetSpecialFolder("0") = windows
fso.GetSpecialFolder("1") = windows\system32
fso.GetSpecialFolder("2") = %temp%
第7楼　heicai 发表于 2007-06-29 22:06
中级用户　发帖 156　积分 385
Originally posted by zh159 at 2007-6-29 09:39 PM:
试试这个：


fso.GetSpecialFolder("0") = windows
fso.GetSpe ...




Set fso = CreateObject("Scripting.FileSystemObject")
msgbox fso.GetSpecialFolder("1")


MSGBOX弹环境变量的路径是行。
但是
set a=fso.GetSpecialFolder("1")
If fso.FileExists("a\xpbutton.ocx")
却不行

不知道怎么搞
第8楼　zh159 发表于 2007-06-29 22:18
金牌会员　发帖 1,467　积分 3,687
path=fso.GetSpecialFolder("1")
If fso.FileExists(path & "\xpbutton.ocx")
变量不要""，字符才要
第9楼　heicai 发表于 2007-06-29 22:23
中级用户　发帖 156　积分 385
Originally posted by zh159 at 2007-6-29 10:18 PM:
path=fso.GetSpecialFolder("1")
If fso.FileExists(path & "\xpbutton.ocx")
变量不要""，字符才要


感谢关注我的问题，终于得到解决！
第10楼　heicai 发表于 2007-06-29 22:24
中级用户　发帖 156　积分 385
If fso.FileExists(path & "\xpbutton.ocx") or if fso.FileExists("xpbutton.ocx") Then
Wsh.Run "mm.exe"


问下这语句为什么不行，我想同时判断两处地方。
第11楼　zh159 发表于 2007-06-29 22:32
金牌会员　发帖 1,467　积分 3,687

如果分行，后面还要加上end if
第12楼　heicai 发表于 2007-06-30 11:45
中级用户　发帖 156　积分 385
Originally posted by zh159 at 2007-6-29 10:32 PM:
第13楼　estar 发表于 2007-06-30 23:41
中级用户　发帖 103　积分 346
探测文件是否存在.vbs
on error resume next

'By est, 2007-2-2

set a=LoadPicture(inputbox(""))
if err.number = 70 or err.number=0 then
msgbox "exist"
else
wscript.echo "not exist!" & vbnewline & err.number
end if
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023