Problema con el DriveListBox

[chcma]

Buenas, pues verán, a la hora de hacer el SelectedIndexChanged. Hago una muestra de todos los ficheros y directorios de esa unidad.

El Problema es que si esa unidad tiene Label, Carlos C:, me da fallo de que no encuentra la unidad.

¿Alguien sabe como podría solucionar este problema?, desde ya, muchas gracias.

[RootK]

No entiendo el error.. estas seguro de que tienes algo como ésto:

Private Sub DriveListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveListBox1.SelectedIndexChanged
DirListBox1.Path = DriveListBox1.Drive
End Sub

P.D.- Porque no haces un try catch para ver el tipo de error..

Salu2

[chcma]

Pues bien, una partición mia tiene label, que es carlos.

Entonces a la hora de entrar en Mi Pc, aparecen las unidades que reconoce mi equipo; A: Carlos C: E: D:

Este es el código que me falla cuando selecciono Carlos C:


Private Sub DLBLocal_SelectedIndexChanged ...


LVLocal.Items.Clear()
Dim CadArchivo As String
Dim i As Int16 = 0

Try
For Each CadArchivo In Directory.GetFileSystemEntries(DLBLocal.Drive & "\")
If Directory.Exists(CadArchivo) Then
Dim Directorio As DirectoryInfo = New DirectoryInfo(CadArchivo)
With LVLocal.Items.Add(Path.GetFileName(CadArchivo))
.SubItems.Add("")
.SubItems.Add("Carpeta de Archivos")
.SubItems.Add(Directorio.LastWriteTime)
End With
LVLocal.Items(i).ImageIndex = 0
Else
Dim Archivo As FileInfo = New FileInfo(CadArchivo)
With LVLocal.Items.Add(Path.GetFileName(CadArchivo))
.SubItems.Add(Archivo.Length)
.SubItems.Add("")
.SubItems.Add(Archivo.LastWriteTime)
End With
LVLocal.Items(i).ImageIndex = 1
End If
i += 1
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try


End Sub


El Error es: No se puede encontrar una parte de la ruta de acceso "c:[CARLOS]\".

Espero haberme explicado. Gracias por tó.

[chcma]

Nada, por más que pruebo no soy quien. ¿Acaso el DriveListBox solo se puede usar con el DirListBox?, por más que lo itento no soy quien a resolver el problema por culpa de la label.

[RootK]

Intenta con ésto:

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..

Si tienes c: [Nombre] = c:\

Creo que con eso te será suficiente..

Salu2