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
Deixe um comentário