Dim F As Integer
Dim nFileSize As Long
Dim nCurPos As Long
Dim nReadSize As Long
Dim sFile As String
Dim sBuffer As String
 
' Datei
sFile = "c:\DeineGroßeDatei.dat"
 
' Gesamtgröße
nFileSize = FileLen(sFile)
 
F = FreeFile
Open sFile For Binary As #F
While nCurPos < nFileSize
  If nCurPos + 1024 > nFileSize Then
    nReadSize = nFileSize - nCurPos
  Else
    nReadSize = 1024
  End If
 
  ' einlesen
  sBuffer = Space$(nReadSize)
  Get #F, , sBuffer
 
  ' Jetzt an das Winsock-Control schicken
  ...
 
  nCurPos = nCurPos + ReadSize
Wend
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de