ImagenImagenImagenImagen
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...

Moderador: Junta Directiva

Responder
Avatar de Usuario
piXel
Novato
Novato
Mensajes: 13
Registrado: Mié Jul 11, 2007 3:45 am

Extencion de archivos VisualBasic

Mensaje por piXel » Vie Ago 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.
Adjuntos
Untitled 4.jpg
Lo remarcado en rojo es a lo que me estoy refiriendo.
(51.68 KiB) Descargado 36 veces


piXel- ElemenT

Avatar de Usuario
jromerol
Novato
Novato
Mensajes: 17
Registrado: Mar May 01, 2007 12:23 am
Ubicación: Sevilla

Re: Extencion de archivos VisualBasic

Mensaje por jromerol » Dom Ago 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

Avatar de Usuario
jromerol
Novato
Novato
Mensajes: 17
Registrado: Mar May 01, 2007 12:23 am
Ubicación: Sevilla

Código fuente de ejemplo

Mensaje por jromerol » Dom Ago 26, 2007 12:40 pm

Adjunto código fuente
Adjuntos
Ejemplo.rar
Código fuente de ejemplo
(1.41 KiB) Descargado 28 veces

Avatar de Usuario
piXel
Novato
Novato
Mensajes: 13
Registrado: Mié Jul 11, 2007 3:45 am

Re: Extencion de archivos VisualBasic

Mensaje por piXel » Dom Ago 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

Avatar de Usuario
jromerol
Novato
Novato
Mensajes: 17
Registrado: Mar May 01, 2007 12:23 am
Ubicación: Sevilla

Re: Extencion de archivos VisualBasic

Mensaje por jromerol » Mar Ago 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

Avatar de Usuario
piXel
Novato
Novato
Mensajes: 13
Registrado: Mié Jul 11, 2007 3:45 am

Re: Extencion de archivos VisualBasic

Mensaje por piXel » Mié Ago 29, 2007 2:10 am

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

Responder

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado