vbs中 if 函数判断文件是否存在的问题。

[复制链接]
查看11 | 回复2 | 2010-6-13 21:56:48 | 显示全部楼层 |阅读模式
代码如下,意思是我把一个或多个文件拖上该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

回复

使用道具 举报

千问 | 2010-6-13 21:56:48 | 显示全部楼层
我修改好了,看看是不是你想要的:on error resume nextdim n,ws,fs,fileset ws=wscript.createobject("wscript.shell")set fs=wscript.createobject("scripting.filesystemobject")set arg=wscript.argumentsn=0file=arg(n)for i=0 to arg.count-1if fs.fileexists(file) or fs.folderexists(file) then'增加了对文件夹存在的判断,你编写的仅仅支持文件的支持wscript.ech
回复

使用道具 举报

千问 | 2010-6-13 21:56:48 | 显示全部楼层
是Vartype函数。VarType函数 返回返回一个 Integer,指出变量的子类型。VarType 函数自身从不对 vbArray 返回值。VarType 总是要加上一些其他值来指出一个具体类型的数组。常数 vbVariant 只与 vbArray 一起返回,以表明 VarType 函数的参数是一个 Variant 类型的数
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行