Question

vb filelistbox 问题求助 没有文件夹 就运行错误未找到路径，怎么避免？

Private Sub Command1_Click()
File1.Path = text1
File1.Pattern = "*.*"
End Sub

如果text1内的路径文件夹不存在程序就会直接终止，该怎么避免啊？

Answer 1

If Dir(Text1.Text, vbDirectory) <> "" Then
End If

Answer 2

on error resume next
file1.path = text1
...
if err then msgbox "文茄闷件扮指夹选择错误"厅纳配
end sub

Answer 3

Private Sub Command1_Click()
If Dir(Text1.Text, vbDirectory) <搏桥> "" Then
File1.Path = text1
File1.Pattern = "*.*"
else
msgbox "该洞银纤文件夹纳仿不存在"
end if
End Sub

Answer 4

On Error Resume Next,在前面