DIR 网络中共享文件夹的问题
在DIR 网络中的一个不存在的文件夹时,会报错,但DIR本地的一个不存在的文件夹时却不会报错,不知何故。
dir( "\\192.168.0.1\f\aa\ ",vbdirct..)时报错
dir( "f:\aa\ ",vbdirct..)时,返回空 " "
现在我需要 在 dir( "\\192.168.0.1\f\aa\ ",vbdirct..)也返回 " ",如何解决?
[解决办法]
用filesystemObject的folderExits判断啊,引用Microsoft Scripting Runtime
[解决办法]
换个方法呗.
private fucntion NewDir(objDir as string,ptr as ??) as string
on error resume next
newDir=dir(objdir,ptr)
end function
'??上面表示dir的第二个参数类型,没去试,估计是long
[解决办法]
dim fso as new filesystemObject
if(fso.folderExits(( "\\192.168.0.1\f\aa\ ")=false) then
' ' ' ' '你的代码
endif