probleme envois winsock

Bonjour à tous. Voici le code d'où est le problème:

Dim fs,d As Object
Dim sResult,s As String
   
    Set fs = CreateObject("Scripting.FileSystemObject")
    For Each d In fs.Drives
        If (sResult = "") Then
        sResult = d.driveletter
        Else
        sResult = sResult & "<" & d.driveletter
        End If
        sResult = sResult & s
    Next d
    Form1.Winsock1.SendData sResult

Le problème : quand je réceptionne la donnée j'obtient "??????" pourtant j'ai bien définit tout les formats ... voilà :)

salut,

et quel est le code au niveau de la réception (socket) ?

ici ta sub un peu modifiée.....

Private Sub Command1_Click() 
    Dim fs As Object, Item As Object, sResult As String 
    sResult = vbNullString 

    Set fs = CreateObject("Scripting.FileSystemObject") 
    For Each Item In fs.Drives 
        sResult = sResult & Item.driveletter & "<" 
    Next Item 
    sResult = LeftB$(sResult, LenB(sResult) - 2) 

    Set Item = Nothing 
    Set fs = Nothing 

    Form1.Winsock1.SendData sResult 
    DoEvents 
End Sub

Coloration syntaxique automatique [AFCK]
       
++

PCPT   [AFCK]

---

Prenez un instant pour répondre à ce sondage svp