中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-06-21 21:58

欢迎新会员 baiyuwh　 RSS
共 47,998 主题排行 / 350,073 发帖 / 今日 0 篇 / 48,214 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » VBS的能否检测文件是否存在？查看 1,216　回复 12

楼主 VBS的能否检测文件是否存在？发表于 2007-06-29 19:53　·　中国浙江电信

heicai

中级用户

★★

积分 385
发帖 156
注册 2007-01-19 02:32
19年会员
UID 76955
性别男

状态离线

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)

我对VBS一窍不通，又有所兴趣，我知道我这段代码错的很离谱，请看得懂我意思的大虾帮修改一下！谢谢！

第 2 楼发表于 2007-06-29 20:05　·　中国天津电信

wudixin96

银牌会员

★★★

积分 1,928
发帖 931
注册 2007-01-06 11:46
19年会员
UID 75624
性别男

状态离线

Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
msg = filespec & " 存在。"
Else
msg = filespec & " 不存在。"
End If
ReportFileStatus = ms

本帖最近评分记录（共 1 条）点击查看详情

评分人	分数	时间
heicai	+1	2007-06-29 20:49

第 3 楼发表于 2007-06-29 20:08　·　中国陕西西安电信

slore

铂金会员

★★★★

积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别男

状态离线

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

本帖最近评分记录（共 1 条）点击查看详情

评分人	分数	时间
heicai	+2	2007-06-29 20:49

第 4 楼发表于 2007-06-29 20:49　·　中国浙江宁波鄞州畅联信息技术有限公司

heicai

中级用户

★★

积分 385
发帖 156
注册 2007-01-19 02:32
19年会员
UID 76955
性别男

状态离线

感谢两位大虾帮助，顺利成功了！

第 5 楼发表于 2007-06-29 21:32　·　中国浙江宁波鄞州畅联信息技术有限公司

heicai

中级用户

★★

积分 385
发帖 156
注册 2007-01-19 02:32
19年会员
UID 76955
性别男

状态离线

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 楼发表于 2007-06-29 21:39　·　中国广西玉林博白县电信

zh159

金牌会员

★★★★

积分 3,687
发帖 1,467
注册 2005-08-08 12:00
20年会员
UID 44210

状态离线

试试这个：

Set fso = CreateObject("Scripting.FileSystemObject")

msgbox fso.GetSpecialFolder("1")

fso.GetSpecialFolder("0") = windows
fso.GetSpecialFolder("1") = windows\system32
fso.GetSpecialFolder("2") = %temp%

第 7 楼发表于 2007-06-29 22:06　·　中国浙江宁波鄞州畅联信息技术有限公司

heicai

中级用户

★★

积分 385
发帖 156
注册 2007-01-19 02:32
19年会员
UID 76955
性别男

状态离线

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 ...

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

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

不知道怎么搞

第 8 楼发表于 2007-06-29 22:18　·　中国广西玉林博白县电信

zh159

金牌会员

★★★★

积分 3,687
发帖 1,467
注册 2005-08-08 12:00
20年会员
UID 44210

状态离线

path=fso.GetSpecialFolder("1")
If fso.FileExists(path & "\xpbutton.ocx")
变量不要""，字符才要

第 9 楼发表于 2007-06-29 22:23　·　中国浙江宁波鄞州畅联信息技术有限公司

heicai

中级用户

★★

积分 385
发帖 156
注册 2007-01-19 02:32
19年会员
UID 76955
性别男

状态离线

Originally posted by zh159 at 2007-6-29 10:18 PM:
path=fso.GetSpecialFolder("1")
If fso.FileExists(path & "\xpbutton.ocx")
变量不要""，字符才要

感谢关注我的问题，终于得到解决！

第 10 楼发表于 2007-06-29 22:24　·　中国浙江宁波鄞州畅联信息技术有限公司

heicai

中级用户

★★

积分 385
发帖 156
注册 2007-01-19 02:32
19年会员
UID 76955
性别男

状态离线

If fso.FileExists(path & "\xpbutton.ocx") or if fso.FileExists("xpbutton.ocx") Then
Wsh.Run "mm.exe"

问下这语句为什么不行，我想同时判断两处地方。

第 11 楼发表于 2007-06-29 22:32　·　中国广西玉林博白县电信

zh159

金牌会员

★★★★

积分 3,687
发帖 1,467
注册 2005-08-08 12:00
20年会员
UID 44210

状态离线



Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists(path & "\xpbutton.ocx") or fso.FileExists("xpbutton.ocx")) Then Wsh.Run "mm.exe"

如果分行，后面还要加上end if



Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists(path & "\xpbutton.ocx") or fso.FileExists("xpbutton.ocx")) Then

Wsh.Run "mm.exe"

end if

本帖最近评分记录（共 1 条）点击查看详情

评分人	分数	时间
heicai	+2	2007-06-30 11:44

第 12 楼发表于 2007-06-30 11:45　·　中国浙江电信

heicai

中级用户

★★

积分 385
发帖 156
注册 2007-01-19 02:32
19年会员
UID 76955
性别男

状态离线

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 ...



对你的热心再次表示感谢

第 13 楼发表于 2007-06-30 23:41　·　中国四川成都联通

estar

中级用户

★★

积分 346
发帖 103
注册 2004-04-06 00:00
22年会员
UID 21852
性别男

状态离线

探测文件是否存在.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

可打印版本 | 订阅主题 | 收藏主题

论坛跳转: