如何判断一个字符串是否为正确的windows路径

Question

我想写个函数就是判断输入的字符串是否为一个正确的windows路径,
我该如何做呢?

Answer 1

如果目录存在返回值为true 否则为 false
Public Function DirectoryExists(ByVal Directory As String) As Boolean
    AddSlash Directory
    DirectoryExists = Len(Directory) > 0 And Len(Dir(Directory + "*.*", vbDirectory)) > 0
End Function

Answer 2

用filesystemobject 可以检查出来
具体使用方法参阅msdn

Answer 3

什么是正确的路径，是格式正确还是路径合法(valid path)如果是格式Public Function DirectoryExists(ByVal Directory As String) As Boolean
    AddSlash Directory
    DirectoryExists = Len(Directory) > 0 And Len(Dir(Directory + "*.*", vbDirectory)) > 0
End Function如果是合法那么filesystem检查folder或者file是否存在