VBA: como verificar se um arquivo existe

Faça uma pergunta

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.
Jean-François Pillou

Jean-François Pillou - Fundador do CCM
Mais conhecido como Jeff, Jean-François Pillou é o fundador do CommentCaMarche.net. Ele também é CEO do CCM Benchmark e diretor digital do Grupo Figaro.

Mais informações sobre a equipe do CCM