Visual Basic 6 - Winsock Trasferire File

Ciao a tutti scusate ancora se disturbo...

@Paperoga: Ho scaricato EsR nei sorgenti... e ho abbastanza capito il codice del trasferimento.. ma quando lo applico io non va... crea il file... ma non
lo crea come dovrebbe... infatti copiando un file dat dove all'interno c'era scritto "ciao"

nel file creato non usciva niente... e invece di essere un KB (dimensione file originale) era di 0 kb..

Ecco il codice:

Private Sub Command1_Click()
Dim SentData As String
miao = False

Open "C:\sisa.dat" For Binary As #6

Open "C:\ListaServer.dat" For Binary As #1
DoEvents
SentData = Space(4000)
For Conteggio = 0 To CLng(LOF(1) / 4000)
Get #1, Conteggio * CLng(4000) + 1, SentData
DoEvents
Next Conteggio
miao = True
DoEvents
Close #1

If miao = True Then
Close #6
Else
Put #6, , SentData
End If
End Sub

Dov'è Che sbaglio???


Potete darmi una mano voi?


Grazie 1000!!!


EDIT:

CE L'HO FATTAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

finalmente ce l'ho fatta!!!! Grazie mille a tutti!!!!!!!!!


VERAMENTE GRAZIE!!!!

Madonna sono euforico...

GRazie a tutti veramente... Sia per l'aiuto... Che per avere risposto!! Grazie veramente grazie!!!


P.S= Dove dice space (4000) e tutti gli altri 4000

cosa sarebbe? Ho notato che se cambio il numero cambiano le dimensioni del file...


GRAZIE 1000 ANCORA A TUTTI!!!!

Ha funzionato parzialmente ... come dicevo a Paperoga (e come ti sei accorto tu) il file ottenuto NON e' uguale a quello trasmesso nella parte finale. Il programma e' da correggere per l'ultimo invio ...