为什么会出错,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 展开
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 展开
1个回答
展开全部
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
'-----------------------------
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询