MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    Uilson Brasil
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    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 16 vez(es)


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2294
    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)
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    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! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    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.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    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! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    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.]
    avatar
    Uilson Brasil
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    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
    avatar
    Uilson Brasil
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    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
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2294
    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: Ter 12 Dez 2017, 16:06