MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Verifica se o arquivo ou path existe

    Compartilhe

    Uilson Brasil
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 999
    Registrado : 23/04/2013

    [Resolvido]Verifica se o arquivo ou path existe

    Mensagem  Uilson Brasil em Ter 19 Nov 2013, 01:28

    Pessoal,

    Tenho esta rotina que verifica a existência de um arquivo. Funciona perfeitamente quando o arquivo está armazenado local ou na rede. Porém se o caminho é um site - exemplo: [Você precisa estar registrado e conectado para ver este link.] - o aplicativo não reporta erro mas a rotina parece não ser realizada.

    Alguém teria algum código que eu pudesse implementar a essa rotina?

    Desde já agradeço a todos.

    Rotina

    Código:
    Private Sub txtLista_Click()
    Playsound (CurrentProject.Path & "\Objetos\Sound\Menu")
        
        Dim s As String
        
        s = Me.txtLista.Column(3)
        If CaminhoExiste(s) Then
            Forms!frmVideos!txtVT = Me.txtLista.Column(3)
            DoCmd.Close
            Forms!frmVideos!btRegistrar.Enabled = True
            Forms!frmVideos!btAssistir.Enabled = True
            Forms!frmVideos!btSelect.Enabled = True
            Forms!frmVideos!btPlay.Visible = True
            Forms!frmVideos!btPlay2.Visible = False
            Forms!frmVideos!BarraInferior!btIniciar.Enabled = True
            Forms!frmVideos!BarraInferior!btIE.Enabled = True
            Forms!frmVideos!BarraInferior!btWE.Enabled = True
            Forms!frmVideos!BarraInferior!btCalc.Enabled = True
            MsgBox "O caminho ou arquivo selecionado existe e é válido.", vbInformation, "Access Media Player"
        Else
            Forms!frmVideos!txtVT = Null
            MsgBox "O caminho ou arquivo '" & s & "' não existe ou é inválido.", vbCritical, "Access Media Player"
        End If
    End Sub
    Função

    Código:
    Option Compare Database

    Function CaminhoExiste(sCaminho As String) As Boolean
        'Testa se um caminho ou arquivo existe (ou é válido)
        
        'Caso deseja testar se um caminho existe, certifique-se que o
        'parâmetro de entrada sCaminho TERMINE com uma \, como, por
        'exemplo, Debug.Print CaminhoExiste("c:\temp\felipe\"). Caso
        'contrário, a função buscará um arquivo chamado felipe, sem
        'extensão, na pasta c:\temp.
        
        If Dir(sCaminho) = vbNullString Then
            CaminhoExiste = False
        Else
            CaminhoExiste = True
        End If
        
        'A forma abreviada da função pode ser escrita como:
        'CaminhoExiste = Dir(sCaminho) <> vbNullString
    End Function
    Anexos
    Access Media Player 1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (46 Kb) Baixado 15 vez(es)


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access

    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2287
    Registrado : 21/04/2011

    Re: [Resolvido]Verifica se o arquivo ou path existe

    Mensagem  Marcelo David em Ter 19 Nov 2013, 11:26

    Amigo, o código acima verifica a existência de arquivos locais e não online...

    Uma forma fácil e inclusive serve para verificar qualquer tipo de arquivo é usar o FollowHyperlink, nativo do Access

    Veja a função abaixo:

    Código:
    Sub VerificaLink
    On Error GoTo TrataErro
       
        Application.FollowHyperlink "http://maximoaccess.maisforum.com/VA001.WMW"

        Exit Sub

    TrataErro:
        If Err.Number = 6 Then
            MsgBox "Link ou arquivo não está disponível", vbInformation, "Informação"
        Else
            MsgBox "Não foi possível verificar o link ou arquivo", vbCritical, "Erro ao verificar"
        End If

    End sub




    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Verifica se o arquivo ou path existe

    Mensagem  HARYSOHN em Ter 19 Nov 2013, 11:31

    Cite o passo a passo para que eu possa testar.

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Verifica se o arquivo ou path existe

    Mensagem  HARYSOHN em Ter 19 Nov 2013, 11:32

    Opa Marcelo.. Não percebi que estavas a Responder..

    Tenha um bom dia!

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Uilson Brasil
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 999
    Registrado : 23/04/2013

    Re: [Resolvido]Verifica se o arquivo ou path existe

    Mensagem  Uilson Brasil em Ter 19 Nov 2013, 11:52

    Grande Marcelo,

    Vou testar assim que possível e retorno com o find...


    Abraços e muito obrigado por hora,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access

    Uilson Brasil
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 999
    Registrado : 23/04/2013

    Re: [Resolvido]Verifica se o arquivo ou path existe

    Mensagem  Uilson Brasil em Qui 28 Nov 2013, 01:53

    Valeu Marcelo...


    Abraços,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access

    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2287
    Registrado : 21/04/2011

    Re: [Resolvido]Verifica se o arquivo ou path existe

    Mensagem  Marcelo David em Qui 28 Nov 2013, 01:57

    Opa. Obrigado pelo retorno.


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

      Data/hora atual: Qua 07 Dez 2016, 18:16