Verificar si existe una carpeta en Access (VBA)

Documentos = [Form_Certificados_Editor]![Documentos].Value & "\CRT\"

Documentos = Replace(Documentos, "#", "")

If Dir(Documentos, vbDirectory) <> vbNullString Then

            Camino = Documentos

End If