ImageImageImageImage
Hazte Socio (El Foro siempre Gratis)
Paga con Tarjetas+ Info www.arde.cc/socios

Extencion de archivos VisualBasic

Aqui puedes postear todos los temas relativos a los entornos: ROS, Visual C++, Visual Basic...

Moderator: Junta Directiva

Post Reply
User avatar
piXel
Novato
Novato
Posts: 13
Joined: Wed Jul 11, 2007 3:45 am

Extencion de archivos VisualBasic

Post by piXel » Fri Aug 24, 2007 4:25 pm

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.
Attachments
Untitled 4.jpg
Lo remarcado en rojo es a lo que me estoy refiriendo.
(51.68 KiB) Downloaded 36 times
piXel- ElemenT

User avatar
jromerol
Novato
Novato
Posts: 17
Joined: Tue May 01, 2007 12:23 am
Location: Sevilla

Re: Extencion de archivos VisualBasic

Post by jromerol » Sun Aug 26, 2007 12:29 pm

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

User avatar
jromerol
Novato
Novato
Posts: 17
Joined: Tue May 01, 2007 12:23 am
Location: Sevilla

Código fuente de ejemplo

Post by jromerol » Sun Aug 26, 2007 12:40 pm

Adjunto código fuente
Attachments
Ejemplo.rar
Código fuente de ejemplo
(1.41 KiB) Downloaded 43 times

User avatar
piXel
Novato
Novato
Posts: 13
Joined: Wed Jul 11, 2007 3:45 am

Re: Extencion de archivos VisualBasic

Post by piXel » Sun Aug 26, 2007 7:40 pm

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??
piXel- ElemenT

User avatar
jromerol
Novato
Novato
Posts: 17
Joined: Tue May 01, 2007 12:23 am
Location: Sevilla

Re: Extencion de archivos VisualBasic

Post by jromerol » Tue Aug 28, 2007 8:52 am

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

User avatar
piXel
Novato
Novato
Posts: 13
Joined: Wed Jul 11, 2007 3:45 am

Re: Extencion de archivos VisualBasic

Post by piXel » Wed Aug 29, 2007 2:10 am

Muchas gracias!.. lo voy a intentar!!.
piXel- ElemenT

Post Reply

Who is online

Users browsing this forum: No registered users and 1 guest