[Resolvido]Verificar se existe arquivo/ficheiro em determinada localização (intranet)

Caríssimos Mestres, bom dia.


Como fazer para pesquisar se um determinado arquivo txt existe na intranet?

Abraços, WSenna

Você pode utilizar o WinHttpRequest:

Código:

Sub BuscarTxt()
    'Const sUrl As String = "https://wordpress.org/plugins/about/readme.txt" 'Funciona
    Const sUrl As String = "https://wordpress.org/arquivo.txt" 'Não Funciona
   
    Dim oRequest As New WinHttp.WinHttpRequest
    Dim sResult As String
   
    On Error GoTo TrataErro
   
    With oRequest
        .Open "GET", sUrl, True
        .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"
        .Send
        .WaitForResponse
       
        'sResult = .ResponseText 'Aqui você obtém o conteúdo
        If .Status = 404 Then
            MsgBox "Arquivo não encontrado"
        ElseIf .Status = 200 Then
            MsgBox "Arquivo encontrado"
        End If
    End With
   
TrataErro:
    If Err.Number <> 0 Then
        MsgBox Err.Description, vbExclamation, Err.Number
    End If
End Sub

Obs.: Referencie Microsoft WinHTTP Services

msdn.microsoft.com/en-us/library/windows/desktop/aa384106%28v=vs.85%29.aspx

Olá Marco, bom dia.

Amigão, confesso que não entendi nada, ou não soube me explicar bem.
O que procuro é verificar se alguma máquina na rede interna possui um determinado arquivo.txt


Abraços, WSenna

Confesso que confundi inicialmente intranet com internet, mas tudo bem, de qualquer maneira esse código iria verificar em um endereço da intranet se o arquivo existe, mas apenas se o mesmo pudesse ser localizado via http.

Em relação a sua situação, existe uma lista de computadores que devem ser verificados e uma pasta específica neles ou você queria procurar por todos os computadores na rede e em qualquer pasta que o mesmo compartilhar?
Essa última situação é custa um tempo relativamente alto, e não creio que seja a melhor estratégia.

Não, pretendo que verifique em todos os computadores da rede, (em torno de 10) se numa pasta InfoBasic existe o arquivo Config.txt
se sim abre um formulário, caso contrário nada acontece.
Explico, tenho um código que quando pretendo que todos os usuários fechem os frontends eu crio esse arquivo txt numa pasta de um computador, e aí abre-se um formulário que avisa da necessidade de se fechar o aplicativo e mesmo que os usuários não atendam a recomendação os frontends são fechados após 60 segundos.
O problema é que vez por outra sou obrigado a mudar esse arquivo txt de uma máquina para outra e tenho que alterar manualmente o caminho inscrito em cada frontend de cada máquina.

Abraços, WSenna

Olá a todos,
Wsenna, um pitaco, não pode defenir esse arquivo txt associado ao caminho do back end?
Fica a sugestão, o que acha?
Abraço

Olá Wsenna,
Crie um botão com o código abaixo no seu sistema.

Código:

'ahteixeira - 2016
Dim strCaminho

'verifica caminho back end
strCaminho = DLookup("path_0", "tblCaminhoBe")

'retira ficheiro do back ende, ficando só o caminho
strCaminho = Left(strCaminho, InStrRev(strCaminho, "\"))

'adiciona ficheiro para verificar
strCaminho = strCaminho & "Config.txt"

If Len(Dir(strCaminho & "")) > 0 Then
    MsgBox "Existe o ficheiro.", vbInformation
Else
    MsgBox "Não existe o ficheiro.", vbCritical
End If

Deve colocar ou não o ficheiro Config.txt no mesmo local do BackEnd

Abraço

Marco, esse seu código para quem tiver site é bom para controlar licencimento.
Sempre aprender com o MaximoAccess.
Abraço

Grande Teixeira, boa noite.

A situação é a mesma da nossa contenda com o backend. Rs rs rs rs

O arquivo Config.txt possui esse nome apenas para despistar, na verdade um código como abaixo, veja:

Private Sub Form_Timer()
If Len(Dir("\\Coord-1\InfoBasic\Config.txt")) Then
DoCmd.OpenForm "Out1", acNormal, "", "", , acNormal
End If
End Sub


[img][/img]


Assim, como você poderá notar, o caminho já está inscrito e a coisa funciona perfeitamente. Contudo, ocorre a mesma situação do backend quando se faz necessário alterar o local (diretório ou máquina) tenho que corrigir manualmente o novo caminho, percebeu a semelhança com o outro tópico?

Abraços, WSenna

... em tempo: O código acima sugerido não funcionou, veja:







[img][/img]

Olá, estou no celular.
Teste o código da mensagem n. 7 num botao de comando.
Com e sem ficheiro txt.
Abraço

Opa, funcionou.

Meu Irmão, como mostra a mensagem de que o ficheiro existe, basta agora que eu modifique o código para abrir o formulário Out1 acima, certo?

Abraços, aos dois pela a ajuda.


WSenna

Senhores Mestres, boa noite.

Heis o resultado final:

No evento No times de um formulário que permanece aberto e oculto o tempo todo, substitui o código antigo por este:


Private Sub Form_Timer()
'ahteixeira - 2016
Dim strCaminho

'verifica caminho back end
strCaminho = DLookup("path_0", "tblCaminhoBe")

'retira ficheiro do back ende, ficando só o caminho
strCaminho = left(strCaminho, InStrRev(strCaminho, "\"))

'adiciona ficheiro para verificar
strCaminho = strCaminho & "Config.txt"

If Len(Dir(strCaminho & "")) > 0 Then

DoCmd.OpenForm "Out1", acNormal, "", "", , acNormal

Else

End If

End Sub


Assim, se renomeio o arquivo ConfigSys.txt para Config.txt dispara a abertura do formulário Out1 acima que tem um temporizador que encerra o aplicativo em 30 segundos.

Abraços, WSenna

wsenna escreveu:... em tempo: O código acima sugerido não funcionou, veja:

wsenna, o código que eu postei não funcionou porque você não colocou dentro de um procedimento ou função, que é onde os tratamentos de erro devem estar.

E verdade Mestre.

Me perdoe o mico.

Tenha um ótimo dia.

Abraços, WSenna

wsenna, me explique melhor, o seu sistema tem apenas 1 frontend em um diretório que é acessado por todos da rede, ou o frontend fica em cada computador? Não creio que você precise salvar um arquivo .txt somente para isso, até porque existem métodos como o SaveSetting e o GetSetting que salvam informações específicas da aplicação direto no registro do usuário e somente você saberia como acessar e ficariam mais ocultos.

Explique como que é o procedimento que você executa, o step by step.

Ex.: Você salva alguma informação no backend que informará a todos os usuários que a aplicação precisa ser fechada, aí o arquivo config.txt é criado.

Esqueci de postar os links dos métodos:

msdn.microsoft.com/pt-br/library/3kz7fyks%28v=vs.90%29.aspx

msdn.microsoft.com/pt-br/library/kb0c3wb9%28v=vs.90%29.aspx

wsenna, creio que a mensagem que o ajudou foi a do ahteixeira, seria melhor marcar a mensagem dele como a resolvedora deste post.

Abraço

Olá a todos,

Wsenna, conseguiu chegar ao que tinha pensado, parabéns, podemos ver na mensagem n. 13 a resposta à sua questão.

Por vezes temos que ser claros na questão, quando vi a sua mensagem nº 1, não sei se queria pesquisar/localizar ou verificar se existe um ficheiro ou não.
Não existe dúvidas que era a última.

O tópico foi alterado de forma a ficar mais ajustado com o conteodo, ajudando assim outros membros.

Marcos Messa, obrigado pelos links Http Request,não é a minha praia, ainda tenho que explorar mais, ....
... mas meus amigos, isto é que é ser MaximoAccess, inter-ajuda e partilha do conhecimento.

Abraço a todos