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
Parabéns pelo trabalho, o código está bem completo. Muito bom!
Meu amigo, obrigado pela ajuda com esse codigo.
a função DIR() me ajudou muito
Código muito útil e prático.
Parabéns Douglas, foi de grande ajuda.
Muito obrigado pelo comentário, fico feliz em saber que lhe ajudou!
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
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
Parabéns aos dois.
Amigo, muito obrigado. Seu código me ajudou muito.
obrigado pela dica. Ajudou no meu trabalho. abs
Obrigado meu amigo, salvou meu projeto no trabalho!!
Que bom Thomas, a intenção é esta mesmo… Ajudar! Abs
Cara obrigado estava quebrando cabeça e esse código me ajudou d+ fiz mas algumas modificações ficou show
Ozemir,
Muito Obrigado pelo comentário, fico feliz que o código tenha te ajudado, isso é muito bom!
Um abraço!
Ajudou na complementação do meu projeto. Grato.
Olá Prof Amaral,
Muito obrigado pela visita e pelo comentário.
Um abraço!
Douglas
Muito bom, ajudou bastante no que eu estava precisando.
Muito Obrigado pelo comentário e visita Marciano!
MUITO OBRIGADO
Olá Carlisson,
Eu que gradeço pela visita e pelo cometário.
Um abraço!
Douglas
Obrigado! Ajudou muito
Olá Leandro,
Este é o objetivo, ajudar e facilitar a vida e o trabalho!
Um abraço!
Douglas Godoy
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