Public Function Baixa_Versao(LocalArquivo As String, LocalURLArquivo As String) As Boolean
On Error GoTo Baixa_erro
Dim BT() As Byte
Open LocalArquivo For Binary Access Write As #1
BT() = frmDownload.Inet1.OpenURL(LocalURLArquivo, icByteArray)
Put #1, , BT()
Close #1
Baixa_Versao = True
Exit Function
Baixa_erro:
MsgBox "Ocorreu um erro durante a transferência do arquivo !", vbCritical
Baixa_Versao = False
Close #1
End Function
=============================================
Public Function Verifica() As Boolean
On Error GoTo MostraErro
Dim Arquivo As String
Dim Arq As String
Versao_Atual = App.Major & "." & App.Minor & "." & App.Revision
Atual = False
Arquivo = App.Path & "atual.txt"
If Right(App.Path, 1) = "" Then
Arquivo = App.Path & "atual.txt"
End If
Arq = App.Path & "Arq.exe"
If Right(App.Path, 1) = "" Then
Arq = App.Path & "Arq.exe"
End If
Open Arquivo For Input As #1
Line Input #1, VersaoArq
Close #1
Versao = Trim(VersaoArq)
Kill Arquivo
If VersaoArq <> "" And Versao_Atual < VersaoArq Then
If MsgBox("Existe uma nova versão , deseja atualizar agora ?", vbYesNo, "Serviço On-Line de Atualização ") = vbYes Then
frmDownload.DownloadFile "
http://www.dominio.com.br/Arq.exe", Arq
Timer3.Enabled = False
Else
Timer3.Enabled = False
End If
End If
End If
Verifica = Atual
MostraErro:
MsgBox "Erro de conexão.", vbInformation, "Conexão"
Err.Clear
End Function
