check
The like operator should work but doesn't give the correct results on my PC
Function IsValidUrl(ByVal URL As String) As Boolean
IsValidUrl = URL Like "(http|ftp|https)://([\w-]+\.)+(/[\w- ./?%&=]*)?"
End Function
"geebee" wrote:
hi,
i am pasting the folloowing function into VBA but getting an error message:
Function IsValidUrl(ByVal url As String) As Boolean
Return System.Text.RegularExpressions.Regex.IsMatch(url, _
(http|ftp|https)://([\w-]+\.)+(/[\w- ./?%&=]*)?")"
End Function
not sure what to do... looks like it is not recognizing the "return system"
part
thanks in advance,
geebee
"Joel" wrote:
All ISValidURL does is returns either a true or False response.
URL = "http://www.vb2themax.com"
if IsValidUrl(URL) = True then
'enter your code here
Else
msgbox("Invalid URL")
end if
"geebee" wrote:
hi,
i found the following:
' Validate a URL
' Example: MessageBox.Show(IsValidUrl("http://www.vb2themax.com"))
Function IsValidUrl(ByVal url As String) As Boolean
Return System.Text.RegularExpressions.Regex.IsMatch(url, _
"(http|ftp|https)://([\w-]+\.)+(/[\w- ./?%&=]*)?")
End Function
but im not sure how to use it or adapt it for my vba. can someone help?
thanks in advance,
geebee
|