Como usar a função Dir?

[Leandro_Pirozzi]

Bom dia galera!!

Seguinte gostaria de saber se posso utilizar a função Dir para verificar se o arquivo que o usuário anexou existe ou o caminho esta correto.

Isso é possível?

Estou usando assim:

VALID = ValidEMail(txtemaildestino.Text)
            SMTP = poSendMail.Connect = True
            anexo = txtanexo.Text
            arquivo = Dir (anexo) 'Aqui o Dir não me retorna nada. Preciso saber se o caminho do anexo e o arquivo existem.
            
              If txtemaildestino.Text = Empty Then
                    status = "não enviado"
                    msg = "Não foi possível enviar e-mail, porque o campo de email do destinatário estava VAZIO."
                ElseIf anexo = txtanexo.Text Then
                    status = "Enviado"
                    msg = "E-mail enviado com sucesso!"
                ElseIf anexo <> txtanexo.Text Then
                    status = "não enviado"
                    msg = "Não foi possível enviar e-mail, porque o arquivo anexado não estava no local correto."
              End If

Obrigado!!

[Gamaliel]

If Dir(txtanexo.Text) = "" Then
' Não encontrou
Exit Function
End If

Espero te-lo ajudado :lol: