Sub GetBasename(fullpath As String) As String
Dim filename As String
filename = GetFilename(fullpath)
Return filename.SubString2(0,filename.LastIndexOf("."))
End Sub
' Depends on: GetFilename
' Example
'Log(GetBasename("http://www.domain.tld/SomePage.html")) ' -> SomePage