Jump to content

Duda consultando la existencia de un fichero por nombre y no por extensión


Recommended Posts

Hola,

 

Me echáis un cable con esta sentencia?

Estoy intentando cambiarla, la uso para consolidar los archivos con extensión .xls que hay en un directorio:

If LCase(Right(Archivo.Name, 4)) = ".xls" Then ...

Estoy intentando cambiar la misma frase, para que la condición no sea por extensión y sea si el nombre del archivo contiene una palabra determinada. 

He intentando con esto, pero sin éxito todavía:

If IsNumeric(InStr(Archivo.Name, 50)) = "*MIPALABRA*" Then 

 

¿alguna idea? gracias!

 

Link to comment
Share on other sites

5 minutes ago, Maria_80 said:

Hola,

 

Me echáis un cable con esta sentencia?

Estoy intentando cambiarla, la uso para consolidar los archivos con extensión .xls que hay en un directorio:

If LCase(Right(Archivo.Name, 4)) = ".xls" Then ...

Estoy intentando cambiar la misma frase, para que la condición no sea por extensión y sea si el nombre del archivo contiene una palabra determinada. 

He intentando con esto, pero sin éxito todavía:

If IsNumeric(InStr(Archivo.Name, 50)) = "*MIPALABRA*" Then 

 

¿alguna idea? gracias!

 

Hola, os paso la solución, di con ella cacharreando un poco:

If Archivo.Name Like "*MIPALABRA*" Then ....

 

 

 

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy