filelistbox返回值

Question

怎样得到 File1.Path 的返回值，如路径错误通过判断其返回值进行必要的提示STR_T = "d:\vbtest\1"
File1.Path = STR_T

Answer 1

如果赋一个不存在的路径给filelistbox会报错。
Err.Number=68 表示指定的盘符不存在
Err.Numbei=76 表示指定的路径不存在

Answer 2

是这么写吗？If Err.Number = 76 Then
MsgBox "无效的路径，请重新确认！"
End If

Answer 3

Private Sub Command1_Click()
    On Error GoTo ErrHandle
    Dim STR_T As String
    STR_T = "d:\vbtest\1"
    File1.Path = STR_T
    Exit Sub
    
ErrHandle:
    If Err.Number = 76 Then
        MsgBox "无效的路径，请重新确认！"
    End If
End Sub