Bonjour,  
 
Je développe une petite application qui me permettra par  
'lintermediare des sockets et d'une connexion ethenet, d'envoyer un  
fichier quel qui soit vers un PC distant pour cela j'utilise le code  
suivant :  
 
 
Dim essai (20) As Byte  
Dim nbr_total_cara As Long  
nbr_total_cara = 1  
 
 
Open "C:\Essai.txt" For Binary As #1 'Ouverture du fichier en binaire  
taille = LOF(1)  
While (nbr_total_cara < taille)  
Get #1, nbr_total_cara, buffer  
Winsock1.SendData buffer  
nbr_total_cara = nbr_total_cara + Len(buffer)  
Wend  
Close #1  
 
 
Mais j'ai un probleme au niveau de la ligne suivante :  
Get #1, nbr_total_cara, buffer : "J'ai l'erreur 458 varaibles uses an  
automation types is not ..."  
 
 
En fait le but de cette ligne est de faire un décalage de la lecture  
afin de lire 20 octets par 20 octets tous le fichier.  
 
 
Pourriez vous m'aidez ?  
 
 
Merci  
Johnson  
 

faut declarer buffer deja ... puis tu t'y prends mal :
 
Dim buffer As String * 1024
Dim F As Long
 
F = FreeFile
Open "C:\Essai.txt" For Binary As #F 'Ouverture du fichier en binaire
Do Until EOF(F)
Get #F, , buffer
Winsock1.SendData buffer
Loop
Close #F