'Alle Dateien des Senders anzeigen
       req = WebRequest.Create("http://localhost/projekt/" + Name)
       req.Method = "GET"
       resp = req.GetResponse()
       oFolder = oFSO.GetFolder(resp.GetResponseStream())
 
       'alle Dateien durchlaufen
       For Each oFSOFile In oFolder.Files
    'nur .lnk Dateien!
    If LCase$(oFSO.GetExtensionName(oFSOFile)) = "lnk" Then
       lstSpots.Items.Add(oFSOFile.Name)
End If
Next

Liebe Gr?sse,
Simon