Dricing me nuts!!!!

[kikelinus]

I am trying to download a .dat file and save it in my computer by using the URLDownloadToFile API...here is the code I have....

Private Sub ListView1_DblClick()
    On Error GoTo Resolve
    Dow = URLDownloadToFile(0, "http://www.mysite.com/myfile.dat", "c:\myfile.dat", 0, 0)
 
Resolve:
    MsgBox "File could not be downloaded", vbInformation
End Sub

Please help me.....

[damaskus]

i prosume it fails? as you didnt say............

[kikelinus]

Yes, it fail...

[Arc]

2 problems with that code.

Private Sub ListView1_DblClick()
On Error GoTo Resolve
Dow = URLDownloadToFile(0, "http://www.mysite.com/myfile.dat", "c:\myfile.dat", 0, 0)


'This should say: Call URLDownloadToFile(0, "http://www.mysite.com/myfile.dat", "c:\myfile.dat", 0, 0)

' All you were saying is Dow = the API. in order to execute the API you have to use the Call keyword. And unless you put an exit sub before your messagebox statement you are going to get the failed message every time. So add an exit sub message here.

Exit Sub

Resolve:
MsgBox "File could not be downloaded", vbInformation
End Sub

[chrisjk]

Originally posted by Arc
' All you were saying is Dow = the API. in order to execute the API you have to use the Call keyword.

No, what he's got is fine, Call is not needed

Dow will contain the return value from the API function, which in the case of dll functions is usually 0 if it succedeed, or non 0 if it didn't.

[Bloodeye]

Here's some code from Matthew Gates that I modified for your situation.
Haven't tested it....Hope it works

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 Function DownloadFile(URL As String, _
    LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function
 
Private Sub ListView1_DblClick()
    DownloadFile "http://www.mypage.com/myfile.dat", "c:\myfile.dat")
 
    If Not DownloadFile then
        MsgBox "File could not be downloaded", vbInformation
        Exit Sub
    End If
 
    Open "C:\myfile.dat" For Input As #1
        Text1.Text = Input(LOF(1), 1)
    Close #1
 
End Sub

[Jotaf98]

Lol

If the there are NO problems with the download, it will still show the error message box because you forget the Exit Sub before the label

So your code should be:

Private Sub ListView1_DblClick()
    On Error GoTo Resolve
    Dow = URLDownloadToFile(0, "http://www.mysite.com/myfile.dat", "c:\myfile.dat", 0, 0)
 
Exit Sub
Resolve:
    MsgBox "File could not be downloaded", vbInformation
End Sub