FileListBox Omitir Extensiones de Archivos

[Ciberdanny]

Hola, estoy haciendo con un FileListBox y un DriveListBox comunes una lista de archivos y todo bien, pero quisiera que en la lista de archivos que resulta no me muestre las extensiones de estos archivos, ¿eso se puede? no se buscar en el textbox y eliminar todas las extensiones o que simplemente en el list box me muestre los archivos pero sin sus extensiónes.

Estoy haciendolo asi:

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub


De antemano gracias...

[erbuson]

Hola, hasta lo que yo se no puede hacerse, lo único que se me ocurre es que añadas un List1 (Listbox) para sustituir el File1 ¿ COMO ?

Muy fácil, el File1 debes mantenerlo pero oculto, con el Visible = False, y entonces dejar el siguiente código, te marco en Rojo lo que he añadido al tuyo.

Private Sub Dir1_Change()
File1.Path = Dir1.Path
PasarAlList
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Código vb:

Private Sub PasarAlList()
  Dim n As Integer
  List1.Clear
  For n = 0 To File1.ListCount -1
    List1.AddItem SinExtension(File1.List(n))
  Next
End Sub
 
Private Function SinExtension(Nombre As String)
  Dim Punto As Integer
  Punto = InStrRev(Nombre, ".")
  If Punto > 0 Then
    SinExtension = Left$(Nombre, Punto - 1)
  Else
    SinExtension = Nombre
  End If
End Function
 

No es mas que una idea, pero algo es algo.

Saludos

[Ciberdanny]

Hola!!

Excelente, si me sirve, funciona perfecto, lo puedo adaptar bien para que haga lo que necesito, muchas gracias!!!

[erbuson]

Estupendo, me alegro de que te sirva.

Saludos

[NAVTEC]

Gracias amigo sos grande ya tiempos queria saber como hacer esto de ocultar las extenciones
me sirve muchas gracias
Dios te bendiga
mi correo es : [email protected]
me gustaria tenerte como amigo ya que me gusta esto de la programacion en VB

[NAVTEC]

Iniciado por NAVTEC

Gracias amigo sos grande ya tiempos queria saber como hacer esto de ocultar las extenciones
me sirve muchas gracias
Dios te bendiga
VB