パスがUNC関連であるかどうかの判定          <TOP>

PathIsUNC パスがUNC表記であるかどうかを判定
PathIsUNCServer パスがサーバ名を表すUNCであるかどうか判定
PathIsUNCServerShare パスが共有名を表すUNCであるかどうかを判定
PathIsURL パスがURLを表すパスであるかどうか判定
　

参考

UNC(Universal Naming Convention)とは、Microsoft社のWinodows向けネットワーク環境「Microsoftネットワーク」上で、ネットワークの上にあるマシン上の資源(ファイル、プリンタなど)を表示するための表記法。

 

'================================================================
'= パスがUNC関連であるかどうかの判定
'=    (PathIsUNC.bas/P)
'================================================================

' パスがUNC表記であるかどうかを判定
Declare Function Api_PathIsUNC& Lib "shlwapi" Alias "PathIsUNCA" (ByVal pszPath$)

' パスがサーバ名を表すUNCであるかどうか判定
Declare Function Api_PathIsUNCServer& Lib "shlwapi" Alias "PathIsUNCServerA" (ByVal pszPath$)

' パスが共有名を表すUNCであるかどうかを判定
Declare Function Api_PathIsUNCServerShare& Lib "shlwapi" Alias "PathIsUNCServerShareA" (ByVal pszPath$)

' パスがURLを表すパスであるかどうか判定
Declare Function Api_PathIsURL& Lib "shlwapi" Alias "PathIsURLA" (ByVal pszPath$)

Var PathName As String
Var txt As String
Var Ret As Long

PathName = "\\hitachi\temp"
Ret = Api_PathIsUNC(PathName)
GoSub *Judge
Print " パスがUNC表記であるかどうかを判定         : " & txt

PathName = "\\hitachi"
Ret = Api_PathIsUNCServer(PathName)
GoSub *Judge
Print " パスがサーバ名を表すUNCであるかどうか判定 : " & txt

PathName = "\hitachi\temp"
Ret = Api_PathIsUNCServerShare(PathName)
GoSub *Judge
Print " パスが共有名を表すUNCであるかどうかを判定 : " & txt

PathName = "https://tokovalue.jp/"
Ret = Api_PathIsURL(PathName)
GoSub *Judge
Print " パスがURLを表すパスであるかどうか判定     : " & txt

Stop
End

*judge
    If Ret Then txt = "True" Else txt = "False"
    Print PathName
    Return