Dim sDestFile As String
Dim F As Integer
 
' Zieldatei
sDestFile = "d:\temp\irgendwas.dat"
 
' Falls Zieldatei existiert, zunächst löschen
If Dir$(sFile) <> "" Then Kill sDestFile
 
' Zieldatei binär zum Schreiben öffnen
F = FreeFile
Open sDestFile For Binary As #F

' empfangene Winsock-Datei speichern
Seek #F, Lof(F) + 1
Put #F, , sData

' Zieldatei schließen
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de