'================================================================
'= ルートパスかどうかを判断

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

' ルートパスかどうかを判断
Declare Function Api_PathIsRoot& Lib "shlwapi" Alias "PathIsRootA" (ByVal pszPath$)

Var MyPath As String
Var Ret As Long

MyPath = "C:\"

Ret = Api_PathIsRoot(MyPath)

If Ret <> 0 Then
    Print MyPath & "はルートパスです！"
Else
    Print MyPath & "はルートパスではない！"
End If

Stop
End