Simular FileExists()

Vamos a simular la función FileExists de Visual Basic con este código, que en Access no esta como tal.

Function FileExists(ByVal strFile As String, Optional bFindFolders As Boolean) As Boolean
    Dim lngAttributes As Long
    lngAttributes = (vbReadOnly Or vbHidden Or vbSystem)
    If bFindFolders Then
        lngAttributes = (lngAttributes Or vbDirectory)
    Else
        Do While Right$(strFile, 1) = "\"
            strFile = Left$(strFile, Len(strFile) - 1)
        Loop
    End If
    On Error Resume Next
    FileExists = (Len(Dir(strFile, lngAttributes)) > 0)
End Function

Para llamarla sería de la siguiente forma

FileExists(NombreDelArchivo)

Devolverá TRUE si es verdadero y False si no lo es.


Navegación

<html><a href=“/softwareprogramacion”>Software de programación</a></html>

Ayuda al servidor