Si además quieres enviarnos un Artículo para el Blog y redes sociales, pulsa el siguiente botón:
Hola,
Estoy desarrollando un progamita y me tope con un pequeño problema que se hizo muy grande. No es algo esencial para el desarrollo del programa pero le da una "mejor vista".
Mi problema esta en querer relacionar un ComboBox y un File, en donde en el combo box se encuentran las extensiones de los archivos que quiero que se muestren en el File (todos los programas poseen esta función).
La propiedad que me permite esto en el File es el "Pattern", pero no logro que cambie cuando lo hace el ComboBox.
Si alguien puede ayudarme con este simple problema. Muchas gracias.
Dejo una imagen para que se pueda entender un poco mas.
Es esto lo que quieres?
Option Explicit
Dim FSO As FileSystemObject
Private Sub Combo1_Click()
CargaArchivos
End Sub
Private Sub Dir1_Change()
CargaArchivos
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Form_Load()
Set FSO = New FileSystemObject
Combo1.AddItem "*.*"
Combo1.AddItem "*.DLL"
Combo1.AddItem "*.EXE"
Combo1.ListIndex = 0
CargaArchivos
End Sub
Private Sub CargaArchivos()
Dim v As File
List1.Clear
For Each v In FSO.GetFolder(Dir1.Path).Files
If Combo1.ListIndex = 0 Then
List1.AddItem v
Else
If Right(v.Name, 3) = Right(Combo1.Text, 3) Then
List1.AddItem v
End If
End If
Next
End Sub
Adjunto código fuente
SI SI eso mismo gracias!..
Igual ya lo pude hacer, encostre el error!!..
Siempre pasa lo mismo después que pregunto encuentro el error.
Gracias igual.
TENGO OTRO PROBLEMA!..
(misma imagen anterior)
Cuando solicito el nombre del archivo seleccionado, me devuelve el nombre con la extensión del mismo!.
COMO PUEDO HACER PARA FILTRAR SOLO EL NOMBRE??
Tiene dos forma:
1.- Hacer un left(list1.text,len(list1.text)-4) 'Con esto editas la cadena y eliminas la extensión.
2.- La pro, es usando el objeto FSO: fso.GetBaseName(list1.text)
Suerte
