Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

saber si un fichero existe desde ACCESS

3,719 views
Skip to first unread message

Xisco Peñalver

unread,
Jul 25, 2000, 3:00:00 AM7/25/00
to
Gracias anticipadas.

Mi pregunta es: ¿Como puedo saber si un fichero existe desde codigo Access?

supongo que quizas sea con la instrucción FILEEXIST("nombre fichero"), pero
no entiendo bien su funcionamiento ya que debe de hacer referencia a un
objeto 8-( ??? y no se como utilizarla (quizas existe alguna otra
funcion más sencilla)
no obstante tanto si vuestra solucion es de una manera como otra. Gracias de
antemano..

Un saludo de Xisco

José A. Giménez [Py]

unread,
Jul 25, 2000, 3:00:00 AM7/25/00
to

Prueba intentando abrir el archivo,si no existe, se genera un error que es
interceptable; de esta forma puedes saber si existe o no

--
Saludos.

José A.Giménez.
Asunción, Paraguay

Eva Etxebeste

unread,
Jul 26, 2000, 3:00:00 AM7/26/00
to
Prueba con la función Dir()

Xisco Peñalver <xisc...@teleline.es> escribió en el mensaje de noticias
OeqYoqm9$GA.196@cppssbbsa04...

Xisco Peñalver

unread,
Jul 26, 2000, 3:00:00 AM7/26/00
to

Eva Etxebeste <infor...@calcinor.com> escribió en el mensaje de noticias
uLZzWOu9$GA....@cppssbbsa02.microsoft.com...

> Prueba con la función Dir()

Gracias por la idea.. me ha funcionado perfectamente... lo he hecho de la
siguiente forma..
y la puedo llamar desde cualquier sitio... (de paso he aprovechado para
comprobar que no me pasen un valor nulo)

Function Existe(fn As Variant)
Dim s As String
If Not IsNull(fn) Then
s = ""
s = Dir(fn)
existe = Not (IsNull(s) Or Len(s) <= 0)
Else
existe = False
End If
End Function

Miguel A. Marcos

unread,
Jul 26, 2000, 3:00:00 AM7/26/00
to
Con "Dir" puedes saberlo.

Dim Archivo
Archivo = Dir("C:\direccion completa\nombre archivo")
If Archivo <> "" then
' el fichero existe
else
' el fichero no existe
endif

Un saludo. Miguel Angel Marcos Almería - España


0 new messages