为什么会出错,VBS判断文件是否存在

bl("D:\Temp\vjc\退避\")functionbl(s)setf=createobject("scripting.filesystemobject")fore... bl("D:\Temp\vjc\退避\")
function bl(s)
set f=createobject("scripting.filesystemobject")
for each i in f.getfolder(s).files
if i.name="vjc2.log" then
msgbox "vjc2.log 存在! 点 确定 退出脚本"
else
wscript.Sleep 5000
msgbox 1
end if
msgbox 2
next
for each ii in f.getfolder(s).subfolders
bl(s)
next
end function
展开
 我来答
蔡瑀
2012-06-03 · TA获得超过231个赞
知道小有建树答主
回答量:424
采纳率:0%
帮助的人:332万
展开全部
set fso=createobject("scripting.filesystemobject")
'-----------------------------
public function dir(byval exist)
if fso.folderexists(exist&"\") then
if fso.folderexists(exist) then dir=fso.getfolder(exist) else dir=""
else
if fso.fileexists(exist) then dir=fso.getfile(exist) else dir=""
end if
end function
'判断文件(夹)是否存在
'-----------------------------

给你一个判断文件(夹)存在的函数
不需要遍历截取文件.本身就有fileexists这个函数能立即对文件夹里的文件(夹)进行获取.
有了以上函数就不需要遍历文件了.只需遍历文件夹就轻松获取了.

使用方法:
if dir(文件)<>"" then
存在
else
不存在
end if
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式