Public Function IsNetworkPath(p As String) As Boolean? 'パスの実在性チェックは省略しています。 Try If Path.IsPathRooted(p) Then If p Like "[a-zA-Z]*" Then Dim root As String = Path.GetPathRoot(p) Dim di As New DriveInfo(root) Return di.DriveType = DriveType.Network ElseIf p Like "\\*" Then 'UNC パスの判断方法は…? Return True End If End If Catch End Try Return Nothing '判定不能なパス End Function