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

Nosso conteúdo é produzido em colaboração com especialistas em tecnologia da informação sob o comando de Jean-François Pillou, fundador do CCM.net e diretor digital do Grupo Figaro. CCM é um site sobre tecnologia líder em nível internacional e está disponível em 11 idiomas.

Mais informações sobre a equipe do CCM