Enigma
02 de Febrero del 2004

Saludos.
Como puedo desplegar en un FileListBox los archivos de un directorio "Sin Extensiones" ??????
Gracias.

en?
02 de Febrero del 2004

hola Enigma,

me temo que lo que pides no se puede hacer o no lo se hacer, pero, puedes hacerlo de esta otra forma:

Deja que la única tarea que haga el FileListBox sea capturar los ficheros del directorio explorado.
Le asignas Visible = False.

Agregas por ejemplo un ListBox que sustituirá al FileListBox.

Entonces haz que en el evento File1_PathChange se carguen los datos en el ListBox, como sigue:

Private Sub File1_PathChange()
Dim Cont As Integer

List1.Clear
For Cont = 0 To File1.ListCount
If InStr(1, File1.List(Cont), ".", vbTextCompare) Then
List1.AddItem Left(File1.List(Cont), InStr(1, File1.List(Cont), ".", vbTextCompare) - 1)
Else
List1.AddItem File1.List(Cont)
End If
Next
End Sub

saludos