VBA Verificar se o Arquivo ou Pasta Existe

VBA permite verificar se um arquivo ou pasta existe, usando a função Dir.

Usando o Comando Dir Para Verificar se um Arquivo Existe

Como mencionamos na introdução, a função Dir nos permite verificar se um arquivo selecionado existe no computador. Aqui está o código:

Sub VerificarArquivoExiste ()

Dim strNomeArquivo As String
Dim strArquivoExiste As String

    strNomeArquivo = "C:\Usuarios\Nikola\DesktopVBA artigos\Teste Arquivo Existe.xlsx"
    strArquivoExiste = Dir(strNomeArquivo)

   If strArquivoExiste = "" Then
        MsgBox "O arquivo selecionado não existe."
    Else
        MsgBox "O arquivo selecionado existe."
    End If

End Sub

Primeiro atribuímos o caminho do arquivo à variável strNomeArquivo. Em seguida, usamos a função Dir para atribuir o nome do arquivo à variável strArquivoExiste. Se o arquivo existir no diretório, seu nome será atribuído à variável strArquivoExiste. Se ele não existir, strArquivoExiste permanecerá em branco. Finalmente, a caixa de mensagem aparece informando se o arquivo existe ou não.

Usando o Comando Dir Para Verificar se uma Pasta Existe

Da mesma forma que para verificar se um arquivo existe, você pode verificar se uma pasta existe. Você só precisa acrescentar um argumento ao Dir comando. Vejamos o código:

Sub VerificarPastaExiste ()

Dim strNomePasta As String
Dim strPastaExiste As String

    strNomePasta = "C:\Usuarios\Nikola\DesktopVBA artigos\Testar Pasta"
    strPastaExiste = Dir(strNomePasta, vbDirectory)

    If strPastaExiste = "" Then
        MsgBox "A pasta selecionada não existe."
    Else
        MsgBox "A pasta selecionada existe."
    End If

End Sub

Primeiro atribuímos o caminho da pasta à variável strNomePasta. Em seguida, usamos a função Dir para atribuir o nome da pasta à variável strPastaExiste. Para verificar uma pasta, precisamos adicionar o segundo argumento à função – vbDirecotry. Se a pasta existir no diretório, seu nome será atribuído à variável strPastaExiste. Caso contrário, strPastaExiste permanecerá em branco.