URLDownloadToFile API help ***RESOLVED***

[seoptimizer2001]

I am using the URLDownloadToFile API to download a list of files. The problem I am having is that it is sometimes (like every other file) throwing an error that the filename doesn't exist(duh I am downloading it). What I need is to either be able to handle the error or to stop it from happening. Here is my code:

'declaration
Public 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
 
'code
Public Function DownloadFile(URL As String, LocalFilename As String, LocalDate As Date) As Boolean
    Dim lngRetVal As Long
    
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
    
     Call SetFileDate(LocalFilename, CDate(Month(LocalDate) & "/" & Day(LocalDate) & "/" & Year(LocalDate)), Hour(LocalDate) & ":" & Minute(LocalDate) & ":" & Second(LocalDate))
End Function
 
'calling function
 Call DownloadFile(DLLocation & sFileName, sPath & sFileName, dStamp)

Thanks in advance for any suggestions.

[seoptimizer2001]

Sorry but ............. bump

[Aaron Young]

It would seem that the error is caused by the SetFileDate()
when a file fails to download.

To prevent the error, simply insert the code which sets the date
into the If statement which is currently setting your return
value to True.

[seoptimizer2001]

Yep that was it. Thanks, it is still a little early on a Monday for me and I didn't even think of that!