Private Function IsUNCName(ByVal sPathName As String) As Boolean
Const csUNCNAME As String = "\\//\" 'so can check for \\, //, \/, /\ IsUNCName = CBool((InStr(csUNCNAME, Left$(sPathName, 2)) > 0) And _ (Len(sPathName) > 1)) End Function |