Winsock como puedo explorar

Con el winsock en si no puedes, necesitas tener dos ejecutables, uno en tu maquina y otro en la maquina donde quieres explorar el disco duro.
La aplicación "externa" (la que no esta en tu maquina) estará escuchando hasta que conectes con ella. Una vez hecha la conexión la exploración puede empezar o, casi mejor, te esperas a recibir algún carácter por el DataArrival.
La exploración es sencilla, este código te enviara desde la aplicación externa todos los nombres de carpetas y directorios de la maquina "externa":
Private Sub pExplorarDiscoDuro(Optional ByVal FOL As Folder)
Dim FSO As FileSystemObject 'Referencia: Microsoft Scripting Runtime
Dim SUBFOL As Folder
Dim FIL As File
Set FSO = New FileSystemObject
If FOL Is Nothing Then
Set FOL = FSO.GetFolder("C:\")
End If
If FOL.Files.Count > 0 Then
For Each FIL In FOL.Files
Winsock1.SendData FIL.Name
Next FIL
End If
If FOL.SubFolders.Count > 0 Then
For Each SUBFOL In FOL.SubFolders
Winsock1.SendData SUBFOL.ShortPath
pExplorarDiscoDuro SUBFOL
Next SUBFOL
End If
End Sub
Este procedimiento te tardara mucho, aunque tengas el disco poco "lleno". Seria mejor que solo te enviase el contenido de una carpeta (tu se la puedes enviar por el SendData desde tu maquina) previa exploración del raíz del disco duro de la maquina "externa".
Si tienes más dudas me lo dices.