filelistbox??

[leo17]

hola amigos, mi pregunta es como puedo ocultar las extensiones de un filelistbox.

[HaDeS, -]

Estaba viendo las propiedades del FileListBox, pero no encontre una que permitiera ocultar las extensiones.
Podes agregar un ListBox y mirar el siguiente codigo.

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
For i = File1.ListCount - 1 To 0 Step -1         'Desde File1.ListCount menos uno hasta 0
List1.AddItem Left(File1.List(i), Len(File1.List(i)) - 4), 0       'Se agrega el nombre del archivo en la posicion actual menos sus 4 ultimas letras
Next i
End Sub


Si la extension es de mas de 3 caracteres, entonces haz un split con el caracter ".", algo asi:

Código (vb) [Seleccionar] Expandir


Nombre = Split(File1.List(i), ".")
if ubound(Nombre)=1 then
  List1.AddItem Nombre(0), 0
end if


Saludos