VBA Access - Criando Diretórios e Pastas - Directory/Folder Name Validation.

Termo de Responsabilidade

Suponha que você tenha a necessidade de criar pastas a partir do MS Access, mas precisa validar primeiro se os nomes das pastas eram aceitáveis ?

Como o Windows não permite determinados caracteres e tem certas regras básicas, precisamos cuidar deste aspecto. 

A função a seguir fornece o nome da pasta e retorna True ou False dependendo de o nome ser aceitável ou não. 

Mas em que situação precisaria disto? Talvez esteja se perguntando. Bem, posso citar a situação onde exporta conjuntos de dados em relatórios para determinadas pastas que são criadas automaticamente. neste caso os nomes são criados com base no conteúdo dos dados que estão sendo trabalhados. Precisará checá-los.

Function IsValidFolderName (ByVal sFolderName As String) As Boolean

    On Error GoTo Error_Handler

    Dim oRegEx As Object

    Set oRegEx = CreateObject("vbscript.regexp")

    oRegEx.Pattern = "[<>:""/\\\|\?\*]"

    IsValidFolderName = Not oRegEx.test(sFolderName)

    If Right(sFolderName, 1) = "." Then IsValidFolderName = False

    If Right(sFolderName, 1) = " " Then IsValidFolderName = False

Error_Handler_Exit:

    On Error Resume Next

    Set oRegEx = Nothing

    Exit Function

Error_Handler:

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

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

           "Error Source: IsInvalidFolderName" & vbCrLf & _

           "Error Description: " & Err.Description, _

           vbCritical, "An Error has Occurred!"

    Resume Error_Handler_Exit

End Function

Referências: Automateexcel.com

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