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!