prima di entrare nel loop del get, fai un send con:
ws.senddata vbString 'vbString=ok"

nel data arrival
if vbString="ok" then
'Apri ilfile in scrittura
Set f = fso.CreateTextFile("C:\WINDOWS\DESKTOP\New.exe")
'il file deve rimanere aperto non devi chiuderlo!!!!!!!!!!!!!
end if

ora torni al loop del GET e spedisci i blocchi e li registri con put senza riaprire il file in quanto è già aperto!!!!!!!!!!!!

put z, , vbString
'quì il programma torna a loop del GET automaticamente
'metti istruzioni stop per vedere cosa fà il flusso
'Quando il programma torna con il secondo blocco
la variabile vbString non vale "ok" per questo motivo fa subito il put
alla fine chiudi con close
end sub




IL problema è che sei tu che vuoi spedire il file, di solito si richiede:

vai nel pcB e cioè il ricevente, e metti un pulsante, nella routine del pulsante, invii la stringa del file da download e apri il file per scrivere:
Set f = fso.CreateTextFile("C:\WINDOWS\DESKTOP\New.exe")
SENZA CHIUDERLO.......
ora quando ritornano i dati del GET, si entra nel dataarrival dove basta mettere put, perchè il file èra stato aperto nel pulsante


HAI CAPITO!!!!!!!!!