Problem with error catching

[omega1]

Hi all... me again!!

I am having trouble catching (or ignoring!) an error... Thsi is my code

'GET THE NEWS ROUTINE
Private Sub getnews()
    On Error GoTo UploadError
    Inet1.AccessType = icUseDefault
    Inet1.URL = myftp
    Inet1.UserName = myusername
    Inet1.Password = mypassword
    Inet1.RequestTimeout = 40
    MsgBox "before kill"
    Kill "c:\news.mp3"     ' DELETE FILE BEFORE UPLOAD
    MsgBox "before get"
    Inet1.Execute , "get " & FileName & " " & destinationfolder & " " & FileName     ' D/L FILE
    MsgBox "after get"
    Do While Inet1.StillExecuting
      DoEvents
    Loop
   Inet1.Execute , "CLOSE"  ' CLOSE FTP CONNECTION
UploadError:
    err_defined = "no"
    If Err.Number = "0" Then serverresult = "File downloaded correctly"
    If Err.Number = "35754" Then serverresult = "Unable to upload file, check password"
    If Err.Number = "35764" Then MsgBox "Server busy, please wait", , "Server Message"
    If Err.Number = "35752" Then MsgBox "Server Configuration Error, Check Config file", , "Server Message"
    If Err.Number = "12014" Then Beep
End Sub

So... my problem is that I want to ignore the file that is trying to be deleted if it does not exist, but I DO want to detect errors on the FTP part. There is celarly a conflict here as the on error line detects there is no file for the kill command and jumps stright to the upload errors ignoring the FTP get...

Help?

[omega1]

sorry, solved it, wasnt thinking !

'GET THE NEWS ROUTINE
Private Sub getnews()
    On Error Resume Next
    Kill "c:\news.mp3"     ' DELETE FILE BEFORE UPLOAD
    On Error GoTo UploadError
    Inet1.AccessType = icUseDefault
    Inet1.URL = myftp
    Inet1.UserName = myusername
    Inet1.Password = mypassword
    Inet1.RequestTimeout = 40
    MsgBox "before kill"
    
    MsgBox "before get"
    Inet1.Execute , "get " & FileName & " " & destinationfolder & " " & FileName     ' D/L FILE
    MsgBox "after get"
    Do While Inet1.StillExecuting
      DoEvents
    Loop
   Inet1.Execute , "CLOSE"  ' CLOSE FTP CONNECTION
UploadError:
    err_defined = "no"
    If Err.Number = "0" Then serverresult = "File downloaded correctly"
    If Err.Number = "53" Then MsgBox "Fiel error"
    If Err.Number = "35754" Then serverresult = "Unable to upload file, check password"
    If Err.Number = "35764" Then MsgBox "Server busy, please wait", , "Server Message"
    If Err.Number = "35752" Then MsgBox "Server Configuration Error, Check Config file", , "Server Message"
    If Err.Number = "12014" Then Beep
End Sub

[westconn1]

or better still to avoid the error by checking if the file exists first
if len(dir("c:\news.mp3")) > 0 then Kill "c:\news.mp3"
if you still get an error from the kill, it should not be ignored, as it may mean the file is open or something

[omega1]

now you metnion it, the file being open is a possibility, and could be a problem, i'll try your suggestion, thanks!