Return filename from URLString function...anyone?

[shaunmccallig]

Has anyone seen a function for VB 5 that would return the filename from a URL string?

Any help appreciated!

Shaun.

Try this:


'Author: Iain17
'Origin: String Manipulation
'Purpose: InStrRev for VB5
'VB version: VB4/VB5/VB6
'Comments: Remove the Optional iStart As Long in order for this to work in VB4.


Private Function InStrRev2(strStringToSearch As String, strFind As String, Optional iStart As Long) As Long
Dim ip1 As Long, ip2 As Long
Dim iLenStringToSearch As Long
Dim iLenFind As Long

'get the length of the String
iLenStringToSearch = Len(strStringToSearch)
iLenFind = Len(strFind)

'if the start is 0 Then Set the start to the length
'of the String
If iStart = 0 Then
iStart = iLenStringToSearch
End If
iStart = iStart + 1

ip1 = 1
Do
ip2 = InStr(ip1, strStringToSearch, strFind)
If (ip2 > 0) And (ip2 + iLenFind <= iStart) Then
'if ip2 Is Not zero And it Is less than the
'place To start searching + the length of the
'find String Then Set the Function
'to Return that position
InStrRev2 = ip2
ElseIf ip2 = 0 Then
ip2 = iLenStringToSearch
End If
'set the Next position To seracf from
ip1 = ip2 + 1
Loop Until ip1 >= iStart

End Function


Usage


Private Sub Command1_Click()

strURL = "http:/www.site.com/file.zip"
MsgBox Mid(strURL, InStrRev2(strURL, "/") + 1)

End Sub

[shaunmccallig]

Nice one, sir!

I think that´ll do the trick. nicely...

Very kind of you to take the time.