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