Private Sub WSCAR_DataArrival(ByVal bytesTotal As Long)
Dim DCar As String
WSCAR.GetData DCar
If Mid(DCar, 1, 6) = "\rutad" Then Call rutad(Mid(DCar, 7))
End Sub

Public Function rutad(ruta As String)
On Error GoTo Error
If ruta = "" Then
For i = 0 To Drive1.ListCount - 1
WSCAR.SendData "\list" & Drive1.List(i)
Call Sleep(200)
Next
Else
Dir1.path = ruta
For i = 0 To Dir1.ListCount - 1
WSCAR.SendData "\list" & Dir1.List(i)
Call Sleep(200)
Next
Form1.File1.path = ruta
For i = 0 To Form1.File1.ListCount - 1
WSCAR.SendData "\list" & File1.path & File1.List(i)
Call Sleep(200)
Next
End If
Exit Function
Error:
End Function

Private Sub Dir1_Change() 'Si cambia el directorio cambia los fichero que hay en el
File1 = Dir1
End Sub

Private Sub Drive1_Change() 'Si cambia la unidad cambia la carpetas que hay en ellas
Dir1 = Drive1
End Sub
Private Sub Winsock1_OnDataArrival(ByVal bytesTotal As Long)
winsock1.getdata mensaje
If Mid(mensaje, 1, 3) = "lis" Then ' Si los 3 primeros caracteres son lis
ruta = Mid(mensaje, 5)
listar ruta 'Llamamos a la función para listar los ficheros de esa unidad y carpeta
End If
end sub
Function listar(sitio)
On Error GoTo er
Dir1.Path = sitio
Dir1.Refresh
For i = 0 To Dir1.ListCount - 1 'esto dice las carpetas que hay en el directorio
Espera 50 'Ponemos un tiempo de espera para que al enviar los datos no se cualgue
winsock1.senddata "<" & Dir1.List(i) & ">" 'Ponemos <directorio> para indetificar que es una carpeta
Next
File1.Refresh
For i = 0 To File1.ListCount - 1 'esto dice los ficheros que hay en el directorio
Espera 50 ' Lo mismo que en lo anterior
winsock1.senddata "f" & File1.List(i) 'ponemos f al principio para indicar que es un fichero
Next
GoTo fin
er:
enviar "e"
fin:

End Function
Public Function Espera(MiliSegundos As Single) 'Función que me dejo lympex para que se pueda esperar un tiempo x; o sea un sleep
  Dim ComienzoSeg As Single
  Dim FinSeg As Single
  ComienzoSeg = Timer
  FinSeg = ComienzoSeg + (MiliSegundos / 1000)
  Do While FinSeg > Timer
      DoEvents
      If ComienzoSeg > Timer Then
          FinSeg = FinSeg - 24 * 60 * 60
      End If
  Loop
End Function

Private Sub Command3_Click()
winsock1.senddata "lis " & Text8.Text 'el text8 se corresponde con la ruta
List1.Clear
End Sub
Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
winsock1.getddata mensaje
If Mid(mensaje, 1, 1) = "<" Then
mensaje = Mid(mensaje, 1, Len(mensaje) - 2)
List1.AddItem mensaje
mensaje = ""
End If
If Mid(mensaje, 1, 1) = "f" Then

mensaje = Mid(mensaje, 2, Len(mensaje) - 3)
List1.AddItem mensaje
mensaje = ""
End If
end sub