Intenta con ésto:
Cita: Dim sPath as String= DLBLocal.Drive.Substring(0, 2) & "\"
For Each CadArchivo In Directory.GetFileSystemEntries(sPath)
...
...
.
Next
Con ello, solo te traes solo la unidad aunque tenga algun nombre..
Cita: Si tienes c: [Nombre] = c:\
Creo que con eso te será suficiente..
Salu2
