パス同士が同一ルートパスかどうかの判定          <TOP>

PathIsSameRoot 二つのパスが同一のルートパスを持つかどうか判定

例では、Path1とPath2、Path1とPath3について判定しています。

'================================================================
'= 二つのパスが同一のルートパスを持つかどうか判定

'=    (PathIsSameRoot.bas/P)
'================================================================

' 二つのパスが同一のルートパスを持つかどうか判定
Declare Function Api_PathIsSameRoot& Lib "shlwapi" Alias "PathIsSameRootA" (ByVal pszPath1$, ByVal pszPath2$)

Var Path1 As String
Var Path2 As String
Var Path3 As String

Path1 = "c:\\windows\\system32\\"
Path2 = "c:\\doc\\test.txt"
Path3 = "d:\\doc\\test.txt"

If (Api_PathIsSameRoot(Path1, Path2)) Then
    Print Path1 & "と" & Path2 & "のルートパスは同一です"
Else
    Print Path1 & "と" & Path2 & "のルートパスは異なります"
End If

Print

If (Api_PathIsSameRoot(Path1, Path3)) Then
    Print Path1 & "と" & Path3 & "のルートパスは同一です"
Else
    Print Path1 & "と" & Path3 & "のルートパスは異なります"
End If

Stop
End