1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Public Function ValidDirPath(ByVal Path As String) As Boolean
Dim ASCValue As Integer = Asc(UCase(Mid(Path, 1, 1)))
If InStr(Path, "\\") = 0 And InStr(Path, "/") = 0 And InStr(Path, "*") = 0 And InStr(Path, "?") = 0 And InStr(Path, """") = 0 And InStr(Path, "<") = 0 And InStr(Path, ">") = 0 And InStr(Path, "|") = 0 Then
If ASCValue >= 65 And ASCValue <= 90 Then
If Mid(Path, 2, 2) = ":\" Then
Return True
Else
Return False
End If
Else
Return False
End If
Else
Return False
End If
End Function
|