Скачивание файла

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
Private Sub Form_Load()
'\\\\Íà÷àëî ðàáîòû ïðîãðàììû
    DoWork
'\\\\Êîíåö ðàáîòû ïðîãðàììû
End Sub
 
Sub DoWork()
'\\\\Íà÷àëî ïðîöåäóðû "Ïîëó÷åíèå ñòàòóñà ðàáîòû ïðîãðàììû"
FileNum = FreeFile
sTempPath = Environ("TMP")
Select Case True
Case URLDownload(ftp_serv_1 & "IsWorkCMD.txt", sTempPath & "Xdj6lqU0f.txt")
    Open sTempPath & "Xdj6lqU0f.txt" For Input As FreeFile
    Line Input #FileNum, sTemp
    Close #FileNum
    If sTemp = IsWork Then
            '\\\\Ïðè ïîëó÷åíèè ñòàòóñà ðàáîòû ïðîãðàììû "DoWork" ïåðåâîäèì ïðîãðàììó â ðàáî÷åå ñòîñòîÿíèå
            '\\\\è âûïîëíÿåì êîìàíäû ïîëó÷åííûå èç ôàéëà êîìàíä
            MsgBox "Ïðîãðàììà ðàáîòàåò! Выполняем условие по работе с базой данных."
    End If
        If sTemp = "NotWork" Then
            '\\\\Ïðè ïîëó÷åíèè ñòàòóñà ðàáîòû ïðîãðàììû "NotWork" ïåðåâîäèì ïðîãðàììó â ðåæèì îæèäàíèÿ
            '\\\\è íå âûïîëíÿåì êîìàíä, òî åñòü çàêðûâàåì åå äî ñëåäóþùåãî çàïóñêà
            
    End If
    sTemp = ""
    Kill sTempPath & "Xdj6lqU0f.txt" ' Temp_File_Upd
End Select
'\\\\Êîíåö ïðîöåäóðû
End Sub

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
Public Const IsWork As String = "DoWork"
Public Const ftp_serv_1 As String = "http://мой сайт/upd/"
Public sTempPath As String
Public sTemp As String
 
Public Function URLDownload(sURL As String, sTempFilePath As String) As Boolean
On Error Resume Next
Dim lErrcode As Long
 
lErrcode = URLDownloadToFile(0&, sURL, sTempFilePath, 0&, 0&)
If lErrcode = 0 Then
    'MsgBox "Download ok"
    ' íà âñÿêèé ñëó÷àé ïðîâåðêà ôàéëà íà äèñêå
    If Dir(sTempFilePath, vbNormal) <> vbNullString Then URLDownload = True
Else
    ' íåò èíåòà èëè íåò ñàéòà
    'MsgBox "Error while downloading"
    URLDownload = False
End If
End Function

Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

DeleteUrlCacheEntry (ftp_serv_1 & "IsWorkCMD.txt")