CurDir – Diretório Atual

Descrição:

A função CurDir em VBA é uma ferramenta importante para a manipulação de diretórios em aplicações. Ela permite que os desenvolvedores obtenham o caminho do diretório atual (também conhecido como diretório de trabalho) do processo em execução.
Essa função é especialmente útil em situações onde é necessário acessar, salvar ou manipular arquivos em um diretório específico durante a execução de um código VBA. Ao usar a CurDir, os desenvolvedores têm a capacidade de obter informações precisas sobre o diretório em que o código está sendo executado, facilitando a automação de tarefas relacionadas a arquivos e pastas.
Exemplos:

Sub Exemplo1()
    Dim diretorio As String
    diretorio = CurDir
    MsgBox "O diretório atual é: " & diretorio
End Sub
    

Este exemplo retorna o diretório atual e exibe em um MsgBox.

Sub Exemplo2()
    Dim caminho As String
    caminho = CurDir("\\Servidor\Compartilhado\Pasta")
    MsgBox "O diretório atual em '\\Servidor\Compartilhado\Pasta' é: " & caminho
End Sub
    

Este exemplo retorna o diretório atual em um caminho de rede especificado e exibe em um MsgBox.

Sub Exemplo3()
    Dim caminho As String
    caminho = CurDir("C:\Pasta")
    MsgBox "O diretório atual em 'C:\Pasta' é: " & caminho
End Sub
    

Este exemplo retorna o diretório atual em um caminho específico e exibe em um MsgBox.

Sub Exemplo4()
    Dim caminho As String
    ChDir "C:\NovoDiretorio"
    caminho = CurDir
    MsgBox "O novo diretório atual é: " & caminho
End Sub
    

Este exemplo muda o diretório atual para “C:\NovoDiretorio” e, em seguida, retorna e exibe o diretório atual em um MsgBox.

Sub Exemplo5()
    Dim caminho As String
    caminho = CurDir("D:\OutraPasta")
    MsgBox "O diretório atual em 'D:\OutraPasta' é: " & caminho
End Sub
    

Este exemplo retorna o diretório atual em um novo caminho especificado e exibe em um MsgBox.