VBS判断C盘文件是否存在
VBS判断C盘文件123.txt是否存在如果存在就退出不在就执行下面的命令?期待牛人贴个代码...
VBS判断C盘文件123.txt是否存在 如果存在 就退出 不在就执行下面的命令?
期待牛人贴个代码 展开
期待牛人贴个代码 展开
2个回答
展开全部
set f=createobject("scripting.filesystemobject")
bl("C:\")
function bl(s)
for each i in f.getfolder(s).files
if i.name="123.txt" then
msgbox "123.txt 存在! 点 确定 退出脚本"
wscript.quit
end if
next
for each ii in f.getfolder(s).subfolders
bl(ii)
next
end function
'此处为下面的代码
bl("C:\")
function bl(s)
for each i in f.getfolder(s).files
if i.name="123.txt" then
msgbox "123.txt 存在! 点 确定 退出脚本"
wscript.quit
end if
next
for each ii in f.getfolder(s).subfolders
bl(ii)
next
end function
'此处为下面的代码
追问
WIN7运行出错
追答
错误提示是什么?
二楼的根本就不懂!!这个对象创建一次就行了,不必放到这个需要递归调用的函数里
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询