Buscar archivos en excel.

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
muy fácil, consulta la ayuda de Dir

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail PUNTO com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"Friosb" escribió en el mensaje de noticias
news:

Buen dia.

De que manera puedo saber si un archivo existe, tengo la ruta de
acceso al archivo.

Saludos.

Gracias.

__________ Information from ESET Smart Security, version of virus
signature database 6817 (20120122) __________

The message was checked by ESET Smart Security.

http://www.eset.com

__________ Information from ESET Smart Security, version of virus signature database 6817 (20120122) __________

The message was checked by ESET Smart Security.

http://www.eset.com

Hola Friosb:
No solo hace falta la ruta, evidentemente también el nombre del archivo.

Esta función puesta en un módulo del proyecto puede ser la solución.


Function FileExists(sFullPath As String) As Boolean
'Creamos el objeto FileSystemObject
Dim oFile As Object
Set oFile = CreateObject("Scripting.filesystemObject")
If oFile.FileExists(sFullPath) Then
MsgBox "El fichero " & sFullPath & " ya existe."
FileExists = True
End If
End Function


Se utilizaría así:
En el procedimiento en que lo necesites tendrías que recrear un código
parecido a esto:

Dim Ruta, Fichero, RutaC as String
Ruta = "C:\direct1\direct2\" 'Cambia el valor de Ruta a tu necesidad
Fichero = "mifichero.txt" 'Cambia el valor de Fichero a tu
necesidad
RutaC = Ruta & Fichero
If FileExists(RutaC) Then
'Aquí el codigo de acciones si ya existe mifichero.txt
Else
'Aquí el codigo de acciones si NO existe mifichero.txt
End if


Saludos,

Desde Salamanca, Juan Español.

"Friosb" escribió en el mensaje de noticias
news:

Buen dia.

De que manera puedo saber si un archivo existe, tengo la ruta de
acceso al archivo.

Saludos.

Gracias.