Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Goody81 en 3 Febrero 2012, 21:09 pm



Título: Comodines
Publicado por: Goody81 en 3 Febrero 2012, 21:09 pm
Hola amigos, tengo una duda que seguramente sea un poco tonta pero no logro ponerlo en marcha, os explico:
Tengo un programa en el cual quiero seleccionar una serie de archivos en una carpeta, en donde la ruta es fija (f:\papyre\) y el nombre del archivo a buscar es la variable (txttTitulo.text). Hasta aqui todo bien, si yo pongo:

Código
  1. Shell "explorer /select, f:\papyre\" & txtTitulo.Text & "." & txtFormato.Text, vbNormalFocus
  2.  

Me abre el explorer y me selecciona el archivo con el nombre que aparece en txtTitulo.Text y la extension de txtFormato.Text

Mi problema viene cuando quiero usar comodimes para que el txtTitulo no tenga que ser exacto al nombre del archivo. Por ejemplo:

txtTitulo.text seria Comunidad del anillo y el nombre del archivo El señor de los anillos. La comunidad del anillo

El codigo que yo pongo para esto es el siguiente:

Código
  1. Shell "explorer /select, f:\papyre\" & "%" & txtTitulo.Text & "%" & "." & txtFormato.Text, vbNormalFocus
  2.  

En este caso no me funciona, es mas, ni siquiera me abre la carpeta  f:\papyre.

¿Como seria el codigo correcto? Que es lo que hago mal? no paro de darle vueltas a las comillas y a todo y no logro sacarlo...

Lo siento si es una tonteria pero no lo consigo. Gracias de antemano


Título: Re: Comodines
Publicado por: Elemental Code en 4 Febrero 2012, 03:14 am
el comodin no es el "*"?  :huh:


Título: Re: Comodines
Publicado por: Goody81 en 4 Febrero 2012, 04:17 am
Tampoco se soluciona con "*" ni con "?". Tiene que haber algo mal en el codigo... en la sintaxis, pero no se qué :huh: Supongo que pensais que quiero que me hagais la faena pero es que no consigo solucionarlo, y tiene que ser una tontería... No paro de  darle vueltas

Con


Shell "explorer /select, f:\papyre\" & "*" & txtTitulo.Text & "*" & "." & txtFormato.Text, vbNormalFocus


Tampoco funciona :huh:


Shell "explorer /select, f:\papyre\" & "*txtTitulo.Text*" & "." & txtFormato.Text, vbNormalFocus


Tampoco funciona :-\


Shell "explorer /select, f:\papyre\" & "'*' & txtTitulo.Text & '*'" & "." & txtFormato.Text, vbNormalFocus


Tampoco funciona... :-( :-(

Que desespeacion... solo quiero que me digáis si voy por el camino correcto al menos


Título: Re: Comodines
Publicado por: burbu_1 en 4 Febrero 2012, 14:37 pm
creo que el comodin * no se puede usar para los parámetros del explorer.exe... prueba primero que funcione desde el cmd  ;)

podrías hacer una función para tratar los *  o ya que el directorio es fijo, usar el control filelistbox o usar un control common dialog... :P


Título: Re: Comodines
Publicado por: Elemental Code en 4 Febrero 2012, 22:25 pm
mmm y si cargas todos los nombres de archivo en un Array y despues haces Instr a ver si esta?  :silbar:


Título: Re: Comodines
Publicado por: Goody81 en 5 Febrero 2012, 11:47 am
No es exactamente lo que buscaba pero gracias de todos modos por responderme y darme sugerencias. Un saludo! :D