VBA: como verificar se um arquivo existe


Esta função verifica se um arquivo existe em um determinado diretório. Se o nome do arquivo não estiver definido na chamada, a função retornará False.

Exemplo da chamada

Option Explicit

Sub TestFic()
Dim mFic As String, mRep As String
    
    mFic = "MeuArquivo.txt"
    mRep = "C:\"
    MsgBox Arquivo_Existe(mFic, mRep, "\")
End Sub

Fonction:
Function Arquivor_Existe(F As String, D As String, Sep As String) As Boolean
    If F <> "" Then
        D = IIf(Right(D, 1) = Sep, D, D & Sep)
        Arquivo_Existe = (Dir(D & F) <> "")
    End If
End Function

Foto: © Microsoft.
Artigo original publicado por pijaku. Tradução feita por pintuda. Última modificação: 26 de fevereiro de 2018 às 09:44 por pintuda.
Este documento, intitulado 'VBA: como verificar se um arquivo existe', está disponível sob a licença Creative Commons. Você pode copiar e/ou modificar o conteúdo desta página com base nas condições estipuladas pela licença. Não se esqueça de creditar o CCM (https://br.ccm.net/) ao utilizar este artigo.
VBA: como programar o deslocamento de um UserForm sem barra de janela
VBA VB6 - Um menu "flutuante" tipo PopUpMenu.