urgent help about downloading a file from the internet

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

VB Code:

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

thatsforvisualc/c++ :rolleyes:

VB Code:

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.

whatdoyoumean?iwantthatwhenthefileisfinisheddownloadingitpopsamsgsayingdownloadcompleted

Quote:

---

Originally posted by Shawn N

VB Code:

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. :rolleyes:

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