Sto facendo un programma per inviare files. Le opzioni a cui avevo pensato per la procedura di invio sono 2:

1) Funzione tipo questa:

Dim OpenedFileNbr, FileLength, Back
Dim Temp As String
Dim PackageSize As Long
Dim LastData As Boolean

OpenedFileNbr = FreeFile
Open Txt_File.Text For Binary Access Read As OpenedFileNbr

Temp = ""
Do Until EOF(OpenedFileNbr)

If FileLength - Loc(OpenedFileNbr) <= PackageSize Then
PackageSize = FileLength - Loc(OpenedFileNbr) + 1
LastData = True
End If

Temp = Space$(PackageSize)
Get OpenedFileNbr, , Temp


If LastData = True Then
Temp = Mid(Temp, 1, Len(Temp) - 1)
End If
DoneBytes = DoneBytes + Len(Temp)
Winsock_Send.SendData Temp
NextPart = False '# Set the senddata check
Else
Exit Sub
End If
Loop

Close #OpenedFileNbr

con tanti DoEvents nel ciclo Do, oppure un timer che ogni 250 ms mi invia la quantità di dati che gli dico io in modo da poter regolare anche la velocità...

Cosa mi consigliate ?
:master: