vb 循环读取 路径 判断文件是否存在解决思路

vb 循环读取 路径 判断文件是否存在
vb 怎样循环读取路径去判断文件是否存在？请看以下代码：

VB code

Private Sub Form_Load()  txtstr = txtstr + "\\127.0.0.1\Eak\E1\1.txt;" & vbCrLf & _                    "\\127.0.0.1\Eak\1\E1\1.txt;" & vbCrLf & _                    "\\127.0.0.1\Eak\2\E1\1.txt;" & vbCrLf & _                     "\\127.0.0.1\Eak\3\E1\1.txt;" & vbCrLfDim A() As StringDim OUTMSG As StringA() = Split(txtstr.Text, ";")For I = 1 To UBound(A()) - 1   OUTMSG = A(I)   if  Dir(OUTMSG)="" then        msgbox "该文件不存在"    else       msgbox "该文件存在"end ifNEXT IEnd Sub

以上就是vb6.0的代码，但是怎样就是判断不了文件是否存在 ？麻烦大家帮我看看，感谢啊！！！

[解决办法]
因为你拼接了 vbCrLf
去掉回车换行
[解决办法]
A() = Split(txtstr.Text, ";")

=>
A() = Split(txtstr.Text, ";" & VbCrLf)


[解决办法]
引用ms scripting runtime
使用filesystemobject对象进行判断

查看更多 下一篇