Como verificar se um arquivo ou pasta existe com VBA

Olá amigos,

Hoje vou postar um artigo breve porém muito útil a quem trabalha com a manipulação de arquivos e pastas com VBA, falaremos sobre a verificação se um arquivo ou pasta existe.

Caso deseje saber como descompactar um arquivo com VBA, acesse o seguinte link:
http://douglasgodoy.com.br/descompactar-arquivos-zip-com-vba/

Esta rotina facilita muito quando estamos trabalhando com a geração de PDF’S com VBA ou descompactando um arquivo .Zip.

Segue código abaixo e arquivo txt para Download do código.

Sub Verifica_Arquivo()

Dim strPath As Variant

'Arquivo que verificaremos
strPath = "C:\Users\PC\Documents\abc.txt"
If Dir(strPath) = vbNullString Then
strCheck = False
Else
strCheck = True
End If

If strCheck Then

Mensagem = MsgBox("O arquivo: '" & strPath & "' foi encontrado!", vbInformation)
'Bloco de ação da Rotina caso o arquivo exista.

Else

Mensagem = MsgBox("O arquivo: '" & strPath & "' não foi encontrado!", vbCritical)
'Bloco de ação da Rotina caso o arquivo não exista.

End If

End Sub



>

Clique aqui e faça Download do aquivo com o código.

Com este arquivo espero que sua dúvidas sejam sanadas e que você tenha pelo menos um norte para iniciar seus trabalhos no que refere-se a verificação da existência de arquivos com VBA.

Agradeço pela leitura e fico no aguardo de seus comentários e sugestões.

Um abraço. DG

Comentários

  • Thomas
    Responder

    Obrigado meu amigo, salvou meu projeto no trabalho!!

    • Douglas Godoy

      Que bom Thomas, a intenção é esta mesmo… Ajudar! Abs

  • ozemir
    Responder

    Cara obrigado estava quebrando cabeça e esse código me ajudou d+ fiz mas algumas modificações ficou show

    • Douglas Godoy

      Ozemir,

      Muito Obrigado pelo comentário, fico feliz que o código tenha te ajudado, isso é muito bom!

      Um abraço!

  • Prof. Amaral
    Responder

    Ajudou na complementação do meu projeto. Grato.

    • Douglas Godoy

      Olá Prof Amaral,

      Muito obrigado pela visita e pelo comentário.

      Um abraço!

      Douglas

  • Marciano Soares
    Responder

    Muito bom, ajudou bastante no que eu estava precisando.

    • Douglas Godoy

      Muito Obrigado pelo comentário e visita Marciano!

  • Carlisson
    Responder

    MUITO OBRIGADO

    • Douglas Godoy

      Olá Carlisson,

      Eu que gradeço pela visita e pelo cometário.

      Um abraço!

      Douglas

  • Leandro
    Responder

    Obrigado! Ajudou muito

    • Douglas Godoy

      Olá Leandro,

      Este é o objetivo, ajudar e facilitar a vida e o trabalho!

      Um abraço!

      Douglas Godoy

  • Levi Saraiva Moura
    Responder

    Companheiro, bom dia.

    Quero agradecer-lhe por esta matéria (código em VBA). foi muito útil para meu projeto.

    Um grande abraço.

    Levi Saraiva Moura – Vila Velha