文字列がURLフォーマットであるか判断          <TOP>

PathIsURL 文字列がURLフォーマットであるかどうかのみ判断 

そのURLの存在は判断しません。

'================================================================
'= 文字列がURLフォーマットであるか判断

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

' 文字列がURLフォーマットであるか判断
Declare Function Api_PathIsURL& Lib "shlwapi" Alias "PathIsURLA" (ByVal pszPath$)

Var MyStr As String
Var Ret As Long

MyStr = "http://tokovalue.web.infoseek.co.jp"
GoSub *judge

MyStr = "C:\Temp\Text.txt"
GoSub *judge

Stop
End

*judge
If Api_PathIsURL(MyStr) Then
    Print MyStr & " は、True"
Else
    Print MyStr & " は、False"
End If
Return