Grazie e scusa se non l' ho provato perchè ho già risolto con un altro codice per la parte client. Sono incasinato nel ricevere.
Il mio client è cosi:

{

Dim Size As Long
Dim strBuffer As String

Set fso = CreateObject("Scripting.FileSystemObject")
Size = fso.GetFile(Dialog.FileName).Size
Dim lngFreeFile As String
lngFreeFile = FreeFile
Open Dialog.FileName For Binary As lngFreeFile
Do Until EOF(lngFreeFile)
strBuffer = Space$(Size + 1)
Get lngFreeFile, , strBuffer
ws.SendData strBuffer
Loop
Close #lngFreeFile

}

Quando ricevo però se all' inizio della funzione di ricezione scrivo
MsgBox "BytesTotal" lui mi restituisce varie lunghezze tra le quali la lunghezza del (file + 1)
Il mio problema ora sta nel prendere i valore di bytes + grande che è quello che mi interessa.


************************************************
Sapresti come prendere il valore maggiore ??? *
************************************************

poi posso continuare il codice cosi:

If lngMax = bytesTotal Then
....
end if

'Cosi risolverei quasi tutti i miei problemi!
Mi Mancherebbe ancora il nome del file che gli assegnerò' al nuovo(quello che crea il server). Come faccio a ricavarlo? Devo perforza inviarlo????