Получение файла из Интернета

[Balexander]

Добрый день.
Мне нужно скачать файл из интернета по прямой ссылке.
Пытаюсь это сделать следующим образом:

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

Function DownLoadFile(FromPathName, ToPathName) As Boolean
DownLoadFile = URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0
End Function
Sub Main()
Path = "D:\Temp\"
link = "http://dt.moskva.fm/files/4023/mp4/2010/10/22/1409.mp4"
FileToLoad = Path & "1409.mp4"
If DownLoadFile(link, FileToLoad) Then
MsgBox "Загружен файл: " & link
Else
MsgBox "Файл загрузить не удалось " , vbCritical
End If
End Sub

Строка Declare Function URLDownloadToFile Lib... постоянно выделена красным и выдается ошибка:
Compile error:
The code in this project must be updated for use 64-bit systems. Please review and update Declare statements and then mark them with the PtrSafe attribute.

Понимаю, что эта проблема из-за 64-х битной системы, но вот как решить ее не пойму.

[EducatedFool]

Не поленился - вбил текст сообщения об ошибке в строку поиска Яндекса.
Через пару секунд решение было найдено: http://msdn.microsoft.com/en-us/library/ee691831.aspx

Замените первую строку кода на это: (если у вас Office 2010)

Declare PtrSafe 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

или на это (если у вас 64-битная Windows)

    Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
            (ByVal pCaller As LongLong, ByVal szURL As String, ByVal szFileName As String, _
             ByVal dwReserved As LongLong, ByVal lpfnCB As LongLong) As LongLong

PS: В общем случае первую строку кода надо заменить на следующие строки
(чтобы на всех компах работало):

#If Win64 Then
    Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
            (ByVal pCaller As LongLong, ByVal szURL As String, ByVal szFileName As String, _
             ByVal dwReserved As LongLong, ByVal lpfnCB As LongLong) As LongLong
#Else
    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
#End If

#If VBA7 Then
    Declare PtrSafe 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
#Else
    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
#End If