url$ = "http://www.blitzforum.de/viewtopic.php?t=15995"
   
   
   zerlege_die_URL(url)
   WaitKey() : End


   Function   zerlege_die_URL(url$)
   
           
            pos = Instr(url, "//")


            If   pos
           
               Print Left(url, pos + 1)
               url = Mid(url, pos + 2)
           
            EndIf
           
           
            Repeat
                     
               pos = Instr(url, "/")
           
               If pos = 0 Then Print url : Return
           
               Print Left(url, pos)
               
               url = Mid(url, pos + 1)
           
            Forever


   End Function

url$="www.google.de/ordner/test.xy"
If Instr(url$,"http://") Then
  server$ = Mid(url$,8,Instr(url$,"/")+7)
  file$ = Right(url$,Len(url$)-Len(server$)-8)
Else
  server$=Left(url$,Instr(url$,"/")-1)
  file = Right(url$,Len(url$)-Len(server$))
EndIf

Print server$
Print file$