Ho realizzato una chat in VB, e ho deciso di inserirgli anche la funzione che permetta di scambiare i file.
Con i file "txt" ci sono riuscito, molto semplice ma se voglio inviare file di formato binario("exe"..)???

Ho pensato:

'CODE:

Private Type Record
ID As Integer
Name As String * 20
End Type

Function Send_File()
Dim Rec As Record, Len
f = FreeFile
Open "C:\WINDOWS\DESKTOP\b.exe" For Binary As f
'Per inviare solo il primo blocco:
Len = 1
Get f, Len, Rec
ws.SendData Rec
Close f

End Function



'MI COMPARE UN MESSAGGIO CHE DICE:

'Solo i tipi definiti dall' utente in moduli di oggetto pubblici
'possono essere assegnati a o da una variabile Variant oppure passati
'a funzioni per cui è prevista l' associazzione tardiva.

'Mi date una zampa????? Grazie a tutti ciao!