✔ Programação GLOBAL®: VBA Access - Criando Diretórios e Pastas

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