[Resolvido]Verifica se o arquivo ou path existe

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: http://maximoaccess.forumeiros.com/VA001.WMW - 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

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.forumeiros.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

Cite o passo a passo para que eu possa testar.

Cumprimentos.

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

Tenha um bom dia!

Cumprimentos.

Grande Marcelo,

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


Abraços e muito obrigado por hora,

Valeu Marcelo...


Abraços,

Opa. Obrigado pelo retorno.