Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

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

Inline image 1

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

LinkWithinBrazilVBAAccessSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine