hola amigos, mi pregunta es como puedo ocultar las extensiones de un filelistbox.
Estaba viendo las propiedades del FileListBox, pero no encontre una que permitiera ocultar las extensiones.
Podes agregar un ListBox y mirar el siguiente codigo.
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:
Nombre = Split(File1.List(i), ".")
if ubound(Nombre)=1 then
List1.AddItem Nombre(0), 0
end if
Saludos :P