probleme envois winsock

Question

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à :)

PCPT · Answer

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

Probleme envois winsock

1 réponse

Votre réponse

Discussions similaires