Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
WS.LocalPort = 854
WS.Listen
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
WS.GetData datos
Text1.Text = datos
If Mid(datos, 1, 6) = "\rutad" Then Call rutad(Mid(datos, 7))
End Sub

Public Function rutad(ruta As String)
On Error GoTo Error
Dim i

If ruta = "" Then
For i = 0 To Drive1.ListCount - 1
WS.SendData "\list" & Drive1.List(i) & "\"
Call Sleep(300)
Next
Else
Dir1.Path = ruta
For i = 0 To Dir1.ListCount - 1
WS.SendData "\list" & Dir1.List(i)
Call Sleep(300)
Next
File1.Path = ruta
For i = 0 To File1.ListCount - 1
If Right(ruta, 1) = "\" Then
WS.SendData "\list" & File1.Path & File1.List(i)
Else
WS.SendData "\list" & File1.Path & "\" & File1.List(i)
End If
Call Sleep(300)
Next
End If

Exit Function
Error:
End Function

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
WS.Close
WS.Accept requestID
End Sub

Private Sub Command1_Click()
WS.SendData Text1.Text
End Sub

Private Sub Form_Load()
Servidor.Visible = True
End Sub

Private Sub List1_Click()
WS.SendData "\rutad" & List1.Text
End Sub

Private Sub Timer1_Timer()
WS.Connect WS.LocalIP, 854

Timer1.Enabled = False
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
WS.GetData datos
If Mid(datos, 1, 5) = "\list" Then
List1.AddItem (Mid(datos, 6))
End If
End Sub