0
Obrigado

Algumas palavras de agradecimento nunca são demais.

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 . Tradução feita por Lucia Maurity y Nouria. Última modificação: por Lucia Maurity y Nouria.

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.

0 Comentário