Visual Basic 6 - Esplora Risorse Remote (EsR) V2.0

Ahhh!!!

Certo...

Non capisco cosa vuoi fare.
quella che hai postato è una procedura corretta(a parte qualche punto e parentesi) di invio e ricezione del comando e del path.
dovrebbe già esserci in tutti i miei progetti.
forse manca nel primissimo quando ancora si chiamava sfoglia hd in remoto.

Ps: C.ronaldo per favore smetti si overpostare che non capisco più che topic è vecchio e quale no.

ripeto..

vorrei essere CHIARO!

Se io faccio

il DOWNLOAD, riferendomi al tuo primo progetto
winsock.SendData "down" & Lista.List(Lista.ListIndex)

e nel Server

If Mid(datiricevuti, 1, 4) = "down" Then
Open etc..

Non Và!

mi scarica ma a 4 KByte non un intero progetto.
Compreso?

impossibile ho scaricato anche file da 50 Mb con quel progetto.
hai provato con qualche altro file?
e poi nel mio primo progetto mandavo prima un down singolo.

Private Sub Wsk3_DataArrival(ByVal bytesTotal As Long)
Dim data3 As String
Dim data4 As String
Wsk3.GetData data3
Open File1.Path & "\" & data3 For Binary As #1
[b]Wsk4.SendData "down"[/b]
DoEvents
data4 = Space(4000)
For conteggio = 0 To CLng(LOF(1) / 4000)
Get #1, conteggio * CLng(4000) + 1, data4
Wsk4.SendData data4
DoEvents
Next conteggio
Wsk4.SendData "Ter"
DoEvents
Close #1
End Sub

e ricevevo il contenuto

Private Sub Wsk3_DataArrival(ByVal bytesTotal As Long)
Dim data4 As String
Wsk3.GetData data4
[b]If data4 = "down" Then[/b]
Open App.Path & "\" & List2.List(List2.ListIndex) For Binary As #1
ElseIf data4 = "Ter" Then
Close #1
Else
Put #1, , data4
End If
End Sub

Ripeto..

se io mando il ListIndex, per fare il DOWN, funziona!

Ma se io mando un semplice "pacchettino" & ListIndex

il comando non ARRIVA

quindi, ricapitolando

winsock.SendData "down" & List1.List(List1.ListIndex)

nella ricezione

If Mid(datiricevuti, 1, 4) = "down" Then



NON Và!

hai messo i doevents?
Ps:mandami 1 e-mail con tuo contatto msn che non riesco a capire cosa stai cercando di spiegarmi.

Dove devo mettere, secondo te DOEVENTS?

Non credo che sia utile

io voglio scaricare una LISTA di FILES che vedo tra Client e Server
Il Client non fà altro che ricevere la lista, attraverso il CICLO FOR e attraverso un susseguirsi di SendData, inseriti nel Ciclo Dir_Change
Ti sto dicendo, che se io mando un Pacchettino, con l'indice della Lista, del List2 (denominato), esso non Và!
Continuando, cosa centra il DOEVENTS?

ripeto:

il concetto é questo:
wisock.SendData "pacchetto" & List2.List(List2.ListIndex) specifico la lista che ho intenzione di mandare, ciò che ho selezionato.

nella ricezione..

Id Mid(datiricevuti, 1, 4) = "down" Then
ETC...

Mi dispiace, amico, ma non uso Messenger.
Comunque io mi chiamo Marco

Allora siamo in 2!
Cmq
---Client---
wisock.SendData "bla" & List2.List(List2.ListIndex)
---Server---
If Mid(datiricevuti, 1, 3) = "bla" Then
ETC...
end if

va di sicuro.
controlla lo spelling delle parole la corrispondenza di maiuscole/minuscole, la lunghezza della parola-pacchettino controlla sempre di separare gli invii con i doevents(se fai un ciclo

for x = 1 to 10
ws.senddata "a"
next x

verrà fuori "aaaaaaaaaa" perchè non hai messo doevents dopo senddata) controlla le connessioni, le porte aperte o filtrate, la sovrapposizione di porte,la dichiarazione delle variabili,e se non va posta l'intero codice perchè veramente ho esaurito le idee.