[Resolvido]Codigo de download baixa arquivo que não existe.

Boa noite galera.

Estou igual louco aqui para entender onde está o erro:

Tenho o código abaixo para baixar um arquivo em meu site na internet.

Código:


Public Sub Download_Sistema()
    On Error GoTo Err
    Dim Auxiliar As Long
    Dim URL As String, CaminhoLocal As String
    Dim Auxiliar_txt As Long
    Dim URL_txt As String, CaminhoLocal_txt As String
   
    'Kill dlookup("update_CaminhoLocal_sistema","tbl_versao")

    'URL = dlookup("update_url_sistema","tbl_versao")
    'CaminhoLocal = dlookup("update_CaminhoLocal_sistema","tbl_versao")
    'Auxiliar = URLDownloadToFile(0, URL, CaminhoLocal, 0, 0)
 
    Kill DLookup("update_CaminhoLocal_txt", "tbl_versao")

    URL_txt = DLookup("update_url_versao_txt", "tbl_versao")
    CaminhoLocal_txt = DLookup("update_CaminhoLocal_txt", "tbl_versao")
    Auxiliar_txt = URLDownloadToFile(0, URL_txt, CaminhoLocal_txt, 0, 0)
   
    Exit Sub
Err:
    MsgBox "Erro no download do arquivo de Atualização.", vbCritical, "Atenção"
End Sub



A principio estou baixando o arquivo txt para ver onde está o erro. O que ocorre é que enviei um arquivo txt para meu site com o numero da versão atual do sistema, mas quando ele baixa, aparece no arquivo txt outra numeração muito antiga que não existe mais.

O que será que pode estar ocorrendo?

Tive um problema parecido ao iniciar minha aventura com hospedagem de arquivos.

Evite sobrepor o arquivo txt enviado. Primeiro delete o arquivo existente e envie o novo arquivo.

Olá amigo Damasceno, fiz isso várias vezes.
Raramente sobreponho os arquivos para evitar isso mesmo.
Nem sempre confio em hospedagens.

Mas o erro persiste.

Experimente excluir, tentar fazer o download do arquivo para verificar se a exclusão foi notada. Quando sim, suba o novo arquivo. Quando não, esteja certo de estar apontando o link correto pois somos falhos e podemos deixar passar detalhes.

Fiz tudo isso amigo.
Mas não há jeito dele baixar o arquivo que enviei.
Ele só baixa o arquivo com a versão bem antiga.

Tá difícil pacas.

Só resta acionar a hospedagem para saber o que há que o arquivo não é atualizado.

Outro detalhe é que seu dlookup não há critério
DLookup("update_url_versao_txt", "tbl_versao")

Ou seja, é capturado o primeiro registro que a função encontrar na tabela.

Se sua tabela mantém um histórico, tente o DLast

Segue um exemplo do que estou usando.

Existe um form config ao qual informo os locais para baixar e a pasta onde será baixado o arquivo.

Modifique o caminho da pasta onde vai baixar e informe qual versão baixou por favor.

2306202209

Pois é, este é o arquivo que está lá.

Quando eu baixo, ele exibe a versão: 04011968

Muito louco.
Então acho que seu implantar no cliente vai funcionar.

Vou testando pra ver.

Obrigado irmão.

Fechando tópico.

Abraço Damsceno

O fórum agradece o retorno. Sucesso.