urgent help about downloading a file from the internet

[3MeMoS]

how do i find out when the file is finished downloading?, this is what i got:

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 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 Command1_Click()
DownloadFile "http://members.lycos.co.uk/z0n3_x/login.html", "c:\KSNET.htm"
End Sub

[3MeMoS]

thatsforvisualc/c++

[Shawn N]

Option Explicit
 
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 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 Form_Load()
    MsgBox "Going to download a file."
    
    DownloadFile "http://members.lycos.co.uk/z0n3_x/login.html", "c:\KSNET.htm"
    
    MsgBox Dir("C:\ksnet.htm")
    
 
End Sub

Function doesn't return until the operation is complete.

[3MeMoS]

whatdoyoumean?iwantthatwhenthefileisfinisheddownloadingitpopsamsgsayingdownloadcompleted

[Shawn N]

Originally posted by Shawn N

Option Explicit
 
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 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 Form_Load()
    MsgBox "Going to download a file."
    
    DownloadFile "http://members.lycos.co.uk/z0n3_x/login.html", "c:\KSNET.htm"
    
    MsgBox "download completed"
    
 
End Sub

Function doesn't return until the operation is complete.

Last time I try to read that rainbow writing.

[3MeMoS]

oh sorry lol, didnt see that u changed the code hehe, thanks