Question

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

Answer 1

是Vartype函数。

　　VarType函数 返回
　　返回一个 Integer，指出变量的子类型。
　　VarType 函数自身从不对 vbArray 返回值。VarType 总是要加上一些其他值来指出一个具体类型的数组。常数 vbVariant 只与 vbArray 一起返回，以表明 VarType 函数的参数是一个 Variant 类型的数组。例如，对一个整数数组的返回值是 vbInteger + vbArray，或 8194。如果一个对象有缺省属性，则 VarType (object) 返回对象缺省属性的类型‍