Private Sub Senddir
    Dim fileliste As String
    For i = 0 To File1.ListCount - 1 ' Anzahl Einträge
       fileliste = fileliste & File1.List(i) & ";" ' Eintrag + ;
    Next i
    fileliste = Left(fileliste, Len(fileliste) - 1) ' Das letzte ";" _
      abschneiden.
    Winsock1.senddata fileliste ' absenden
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim fileliste As String
    Dim Eintrage(256) As String ' Geht natürlich dann nur mit 256 Einträgen. 
    ' Schont aber den clientrechner, darf auch mehr sein
    fileliste = Space(bytesTotal)
    Winsock1.GetData fileliste
    Eintrage = Split(fileliste, ";")
    For i = 0 To UBound(Eintrage)
        ListView1.ListItems.Add i, , Eintrage(i)
    Next i
End Sub