VBA Access - Determina se uma pasta ou Diretório existe - Determine if a Folder/Directory Exists or Not

Termo de Responsabilidade

Muitas vezes pode vir a calhar ser capaz de rapidamente determinar se uma Pasta / Diretório existe ou não. 

Abaixo está uma função que faz exatamente isso:

Function IsFolder (sFolder As String) As Boolean

On Error GoTo Error_Handler

    If sFolder = vbnullsring Then GoTo Error_Handler_Exit

   

   If Dir (sFolder, vbDirectory) <> vbNullString Then

        IsFolder = True

    End If

Error_Handler_Exit:

    On Error Resume Next

    Exit Function

Error_Handler:

    If Err.Number &lt;&gt; 52 Then

        MsgBox "The following error has occured" & vbCrLf & vbCrLf & _

           "Error Number: " & Err.Number & vbCrLf & _

           "Error Source: FolderExist" & vbCrLf & _

           "Error Description: " & Err.Description, vbCritical, "An Error has Occured

    End If

    Resume Error_Handler_Exit

End Function

Referências: Devhut.net

Tags: VBA, Access, diretório, pasta, directory, folder, validation, exist