Загрузка PDF

Question

Я пытаюсь загрузить .pdf-файл, который открывается в веб-браузере IE. Вот мой код:

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 

Sub DownPDF() 

Dim sUrl As String 
Dim sPath As String 

sPath = "C:\Users\adhil\Documents" 
sUrl = "http://analytics.ncsu.edu/sesug/2010/HOW01.Waller.pdf" 

Ret = URLDownloadToFile(0, sUrl, sPath, 0, 0) 
If Ret = 0 Then 
    Debug.Print sUrl & " downloaded to " & sPath 
Else 
    Debug.Print sUrl & " not downloaded" 
End If 

End Sub 

Однако, я не могу загрузить файл, хотя ответ так говорит.

Может ли кто-нибудь мне помочь?

Answer 1

Функция ожидает, что параметр szFileName будет полным именем файла, а не папкой. Попробуйте с этим:

sPath = "C:\Users\adhil\Documents\HOW01.Waller.pdf" 

Я работал со мной, в то время как он не работает, когда имя файла назначения был пропущен.