¿Existe un fichero?
Publicado por API (3 intervenciones) el 14/03/2005 16:05:18
Gracias por anticipado.
Estoy programando una BD Access con VBA y tengo que comprobar si existe algún fichero en una carpeta, el programa en Win98 funciona genial, pero cuando lo pongo la BD Access en Win XP me devuelve un valor distinto y no me lo hace bien. Cuando no existe el fichero me devuelve en Win98 el código de error 53 y en XP siempre me devuelve el 52, exista o no el fichero en dicha carpeta, con lo que no me esta dando la información que necesito y me da un error sin tener que darlo.
¿Porque puede ser esto?
Function PEDIDOS_ExisteFichero(ByVal NombreFichero As String) As Boolean
On Error Resume Next
Open NombreFichero For Input As #1
If Err.Number <> 0 Then
If Err.Number = 53 Then
PEDIDOS_ExisteFichero = False
Else
MsgBox "Error " & Err.Number & ": " & Err.Description, vbOKOnly, _
"acceso al archivo " & NombreFichero
PEDIDOS_ExisteFichero = False
End If
On Error GoTo 0
Exit Function
Else
Close #1
PEDIDOS_ExisteFichero = True
End If
End Function
Estoy programando una BD Access con VBA y tengo que comprobar si existe algún fichero en una carpeta, el programa en Win98 funciona genial, pero cuando lo pongo la BD Access en Win XP me devuelve un valor distinto y no me lo hace bien. Cuando no existe el fichero me devuelve en Win98 el código de error 53 y en XP siempre me devuelve el 52, exista o no el fichero en dicha carpeta, con lo que no me esta dando la información que necesito y me da un error sin tener que darlo.
¿Porque puede ser esto?
Function PEDIDOS_ExisteFichero(ByVal NombreFichero As String) As Boolean
On Error Resume Next
Open NombreFichero For Input As #1
If Err.Number <> 0 Then
If Err.Number = 53 Then
PEDIDOS_ExisteFichero = False
Else
MsgBox "Error " & Err.Number & ": " & Err.Description, vbOKOnly, _
"acceso al archivo " & NombreFichero
PEDIDOS_ExisteFichero = False
End If
On Error GoTo 0
Exit Function
Else
Close #1
PEDIDOS_ExisteFichero = True
End If
End Function
Valora esta pregunta
0