list2.selected(list1.listindex)=true

1.-el cliente envia el nomgre y ruta del archivo
2.-el server calcula el tamaño y se lo envia al client
3.-el cliente establece el maximo de la PB con los Bytes del archivo y pide iniciar descarga
4.-el server abre el archivo y lo envia
5.-el client lo recive y lo guarda

dir /s *.jpg

C:\Documents and Settings\{miusuario}\Escritorio\vb6>dir /s hola.txt
 El volumen de la unidad C no tiene etiqueta.
 El n£mero de serie del volumen es: {minumerodeserie}
No se encuentra el archivo

CLIENT

Private Sub Download_Click()   

    WS.SendData "download" & Ruta.Caption

End Sub


SERVER

    If Left(datos, 8) = "download" Then
    datos = Mid(datos, 9)

	    tamaño = FileLen(datos)

	    WS.SendData "dtam" & tamaño

    End If


CLIENT

    If Left(datos, 4) = "dtam" Then
    datos = Mid(datos, 5)

	    PB.Max = datos
	    'MsgBox PB.Max

	   WS.SendData "dok" & Ruta.Caption
 
   End If


SERVER


    If Left(datos, 3) = "dok" Then
    datos = Mid(datos, 4)

 	   'aki debe de estar el fallo
	   Dim filedata As String

 	   Open datos For Binary As #1
 	   filedata = Input(LOF(1), 1)
	   Close #1

 	   WS.SendData "dongo" & filedata

    End If


CLIENT


    If Left(datos, 6) = "downgo" Then
    datos = Mid(datos, 7)

	    Open App.path & "\miArchivo" For Binary As #1
	    Put #1, , datos
	    Close

 	    MsgBox "descarga completada"

    End If