VERIFICA EXISTENCIA DE ARCHIVOS EN UN DIRECTORIO X DESDE UNA MACRO DE EXCEL

21/11/2006 - 15:17 por gonzalo.vidal | Informe spam

Hola a todos
Necesito ayuda con esto soy nuevo con excel y requiero de su ayuda
Lo que necesito hacer es verificar en una ruta/path/directorio de
windows, la existencia de archivos, (*.jpg; *.gif; *.doc; *.pdf; etc)
por ejm
Ejm:
| columna A | columna B
|_______________________________|___________
Fila 1 | c:\ejemplos\basicos\carrete\ | foto1.jpg
Fila 2 | c:\ejemplos\archivos\basicos\marta\ | form2.xls
Fila 3 | c:\ejemplos\archivos\basicos\ | doc23.doc
Fila 4 | c:\ejemplos\archivos\psico\anual\ | firma4.pdf

tengo las rutas de cada uno de estos archivos jpg y como 1700 que
estan en estas rutas incluso otras.
el desafío es saber a traves de una macro, es posible verificar su
existencia? es decir, que me arroje Si/No; Falso/Verdadero; 1/0:
si es que el archivo existe en esta dirección?
cualquier forma de realizar esto les agradecería me ayudaran por fabor

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

url x, y apache toma los archivos de otro directorio transparentemente... es posible?

Leer las respuestas

#1 Francisco Parrilla

21/11/2006 - 15:43 | Informe spam

Me parece que ya se ha expuesto codigo dentro de este grupo para verificar
la existencia de un archivo.

Cuestion de buscar un poco :)

Saludos
Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice

El verdadero buscador crece y aprende, y descubre que siempre es el
principal responsable de lo que sucede.
Jorge Bucay

La oscuridad nos envuelve a todos, pero mientras el sabio tropieza en alguna
pared, el ignorante permanece tranquilo en el centro de la estancia.
Anatole France

Responder a este mensaje

#2 Juan M

21/11/2006 - 16:05 | Informe spam

Hola Gonzalo

Una opcion,

Function Existes(Nombre As String) As Boolean
On Error GoTo Error
If GetAttr(Nombre) Then Existes = True
Exit Function
Error:
Existes = False
End Function

En la columna C, escribe
=Existes(A1&B1)

Un saludo
Juan

Consulta original

Necesito ayuda con esto soy nuevo con excel y requiero de su ayuda
Lo que necesito hacer es verificar en una ruta/path/directorio de
windows, la existencia de archivos, (*.jpg; *.gif; *.doc; *.pdf; etc)
por ejm
Ejm:
| columna A | columna B
|_______________________________|___________
Fila 1 | c:\ejemplos\basicos\carrete\ | foto1.jpg
Fila 2 | c:\ejemplos\archivos\basicos\marta\ | form2.xls
Fila 3 | c:\ejemplos\archivos\basicos\ | doc23.doc
Fila 4 | c:\ejemplos\archivos\psico\anual\ | firma4.pdf

tengo las rutas de cada uno de estos archivos jpg y como 1700 que
estan en estas rutas incluso otras.
el desafío es saber a traves de una macro, es posible verificar su
existencia? es decir, que me arroje Si/No; Falso/Verdadero; 1/0:
si es que el archivo existe en esta dirección?
cualquier forma de realizar esto les agradecería me ayudaran por fabor

Responder a este mensaje

#3 Héctor Miguel

22/11/2006 - 07:48 | Informe spam

hola, chicos !

otra opcion [misma forma de uso]:

Function Existe(Archivo As String) As Boolean
Existe = Dir(Archivo) <> ""
End Function

saludos,
hector.

Function Existes(Nombre As String) As Boolean
On Error GoTo Error
If GetAttr(Nombre) Then Existes = True
Exit Function
Error:
Existes = False
End Function

En la columna C, escribe
=Existes(A1&B1)

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida