Search Tools Links Login

IsIP Function

Visual Basic 6, or VB Classic

Checks if string is a valid IP or not. I saw this submitted earlier and made my own better version of it. =)
OK there is now an updated version with fixes so go check it out here:

Original Author: Daniel M


Private Function IsIP(strIP As String) As Boolean
Dim splitIP() As String, i As Long
IsIP = True 'Starts out as true
splitIP$ = Split(strIP$, ".", -1, 1) 'Split IP to check value
'Things we must check to verify IP
'1. Make sure each section of IP is not greater than 255
'2. Make sure each section of IP does not contain a negative
'3. Make sure each section of IP is numeric
For i = 0 To UBound(splitIP$) 'loop through array and check 3 things
  If IsNumeric(splitIP(i)) = False Then
   IsIP = False
   Exit For
   If splitIP(i) > 255 Or splitIP(i) < 0 Then
    IsIP = False
    Exit For
   End If
  End If
Next i
End Function

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 119 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.