可以看New FileInfo能否正常执行即可
Public Function InvalidPath(ByVal path As String) As Boolean
Dim result As Boolean = True
Dim err As String = ""
Try
Dim info As New System.IO.FileInfo(path)
Catch ex As Exception
result = False
err = "err:" & ex.Message
End Try
Console.WriteLine("{0} {1} {2}", result, path, err)
Return result
End Function
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
InvalidPath("c:\sdfsdfsdfsdfffffffffffffffffffffffffffff")
InvalidPath("c:\dfdfd/fd*fd%dfdfd")
InvalidPath("c:\dfdsfsdr45r454gsd0gu0fgu0dfugdfglkdfnglrkjtlkertjlerkjtndflnkgldfkgdf.sgffgdfgdfgretrt")
InvalidPath(New String("c"c, 224))
InvalidPath(New String("c"c, 128))
End Sub
结果:
True c:\sdfsdfsdfsdfffffffffffffffffffffffffffff
False c:\dfdfd/fd*fd%dfdfd err:路径中具有非法字符。
True c:\dfdsfsdr45r454gsd0gu0fgu0dfugdfglkdfnglrkjtlkertjlerkjtndflnkgldfkgdf.sgffgdfgdfgretrt
False cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc err:指定的路径或文件名太长，或者两者都太长。完全限定文件名必须少于 260 个字符，并且目录名必须少于 248 个字符。
True cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
