中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » VBS的能否检测文件是否存在？
作者:
标题: VBS的能否检测文件是否存在？ 上一主题 | 下一主题
heicai
中级用户





积分 385
发帖 156
注册 2007-1-19
状态 离线
『楼 主』:  VBS的能否检测文件是否存在？ 使用 LLM 解释/回答一下 

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 楼』:   使用 LLM 解释/回答一下

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-6-29 20:49


2007-6-29 20:05
查看资料  发短消息  网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 3 楼』:   使用 LLM 解释/回答一下

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 点积分      点击查看详情   
评分人：【 heicai 】分数： +2  时间：2007-6-29 20:49


2007-6-29 20:08
查看资料  发短消息  网志   编辑帖子  回复  引用回复
heicai
中级用户





积分 385
发帖 156
注册 2007-1-19
状态 离线
『第 4 楼』:   使用 LLM 解释/回答一下

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


2007-6-29 20:49
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
heicai
中级用户





积分 385
发帖 156
注册 2007-1-19
状态 离线
『第 5 楼』:   使用 LLM 解释/回答一下

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这样的环境变量可以使用。 我试了下不行。


2007-6-29 21:32
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
zh159
金牌会员




积分 3687
发帖 1467
注册 2005-8-8
状态 离线
『第 6 楼』:   使用 LLM 解释/回答一下

试试这个：
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 楼』:   使用 LLM 解释/回答一下

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 楼』:   使用 LLM 解释/回答一下

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




2007-6-29 22:18
查看资料  发短消息  网志   编辑帖子  回复  引用回复
heicai
中级用户





积分 385
发帖 156
注册 2007-1-19
状态 离线
『第 9 楼』:   使用 LLM 解释/回答一下

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 楼』:   使用 LLM 解释/回答一下

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 楼』:   使用 LLM 解释/回答一下 



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 点积分      点击查看详情   
评分人：【 heicai 】分数： +2  时间：2007-6-30 11:44




2007-6-29 22:32
查看资料  发短消息  网志   编辑帖子  回复  引用回复
heicai
中级用户





积分 385
发帖 156
注册 2007-1-19
状态 离线
『第 12 楼』:   使用 LLM 解释/回答一下

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

对你的热心再次表示感谢


2007-6-30 11:45
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
estar
中级用户





积分 346
发帖 103
注册 2004-4-6
状态 离线
『第 13 楼』:   使用 LLM 解释/回答一下

探测文件是否存在.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
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复

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


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



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023