中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » VBS的能否检测文件是否存在？

heicai
中级用户

积分 385
发帖 156
注册 2007-1-19
状态离线

『楼主』: 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)

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

2007-6-29 19:53

wudixin96
银牌会员

积分 1928
发帖 931
注册 2007-1-6
状态离线

『第 2 楼』:

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

此帖被 +1 点积分

点击查看详情

2007-6-29 20:05

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 3 楼』:

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

此帖被 +2 点积分

点击查看详情

2007-6-29 20:08

heicai
中级用户

积分 385
发帖 156
注册 2007-1-19
状态离线

『第 4 楼』:

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

2007-6-29 20:49

heicai
中级用户

积分 385
发帖 156
注册 2007-1-19
状态离线

『第 5 楼』:

Quote:

Originally posted by slore at 2007-6-29 08:08 PM:
Dim Wsh,fso
Set Wsh = WScript.CreateObject("WScript.Shell[/co ...

再问下，假如xpbutton.ocx文件在X:\windows\system32\下的话，VBS是否有%systemroot%\system32这样的环境变量可以使用。我试了下不行。

2007-6-29 21:32

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『第 6 楼』:

试试这个：

Set fso = CreateObject("Scripting.FileSystemObject")

msgbox fso.GetSpecialFolder("1")

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

2007-6-29 21:39

heicai
中级用户

积分 385
发帖 156
注册 2007-1-19
状态离线

『第 7 楼』:

Quote:

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")
却不行

不知道怎么搞

2007-6-29 22:06

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『第 8 楼』:

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

2007-6-29 22:18

heicai
中级用户

积分 385
发帖 156
注册 2007-1-19
状态离线

『第 9 楼』:

Quote:

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

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

2007-6-29 22:23

heicai
中级用户

积分 385
发帖 156
注册 2007-1-19
状态离线

『第 10 楼』:

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

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

2007-6-29 22:24

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『第 11 楼』:

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

此帖被 +2 点积分

点击查看详情

2007-6-29 22:32

heicai
中级用户

积分 385
发帖 156
注册 2007-1-19
状态离线

『第 12 楼』:

Quote:

Originally posted by zh159 at 2007-6-29 10:32 PM:
[code]
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(path & "\xpbutton.ocx") or fso.FileExists("xpbutton.ocx")) Then Wsh.Run "mm.e ...

对你的热心再次表示感谢

2007-6-30 11:45

estar
中级用户

积分 346
发帖 103
注册 2004-4-6
状态离线

『第 13 楼』:

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

2007-6-30 23:41

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: