批处理之家 - Powered by Discuz! Board

标题: [已解决]VBS的if函数怎样判断文件是否存在？ [打印本页]

作者: s700800900 时间: 2010-6-13 18:23 标题: [已解决]VBS的if函数怎样判断文件是否存在？

代码如下，意思是我把一个或多个文件拖上该vbs，然后计算拖上的文件共有多少个。如下代码总是显示不存在文件。。。望纠正。谢谢
dim n,ws,fs,file
on error resume next

set ws=wscript.createobject("wscript.shell")
set fs=wscript.createobject("scripting.filesystemobject")
n=0
file=chr(34) & wscript.arguments(n) & chr(34)
if fs.fileexists(file) then

wscript.echo "存在"

n=n+1
else

wscript.echo "不存在"
end if
wscript.echo n

[ 本帖最后由 s700800900 于 2010-6-14 05:53 编辑 ]

作者: zmh886 时间: 2010-6-13 20:25

既然是拖文件上去就该是存在的没必要判断是否存在了吧？

作者: zmh886 时间: 2010-6-13 20:28

set ws=wscript.createobject("wscript.shell")
set fs=wscript.createobject("scripting.filesystemobject")
n=0
for i=0 to wscript.arguments.count-1
file=wscript.arguments(n)
if fs.fileexists(file) then
wscript.echo file & "存在"
n=n+1
else
wscript.echo file & "不存在"
end if
next
wscript.echo n

作者: s700800900 时间: 2010-6-14 05:52

谢谢楼上的朋友给解决。。。不是很理解，但我先记住。。

欢迎光临批处理之家 (http://www.bathome.net/)