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




.

Sobre o Autor

Comentários

  1. Bruno

    Obrigado Douglas!
    Seu código foi super útil para meu trabalho!!

    Só uma dúvida, por que você não usou apenas:

    If Dir(“C:\Users\PC\Documents\abc.txt”) = vbNullString Then
    MsgBox (“Não encontrado”)
    Else
    MsgBox (“Encontrado”)
    End If

    1. Douglas Godoy Resposta do Autor

      Olá Bruno!

      Que bom que lhe ajudou, a sua sugestão também é valida, ela vai direto ao ponto.
      Da forma que fiz apena exemplifico também como usar variaveis boleanas no IF.

      Caso precise de algo mais fico a disposição.

      Abraços

  2. Levi Saraiva Moura

    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

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *