Help Needed With Code Problem

[Daz]

Hi,

I use the following code on a click event on a customer record.

It looks in the C:\Outgoing Directory for a file, if the file is there it imports the record and then deletes the import file from C:\Outgoing.

The problem i have is, if there is no file in the C:\Outgoing Directory, then i get an error messege saying file not found.

Does anyone know to tell the program just to stop if there is no file available and not show the error message?

DoCmd.TransferText acImportDelim, "Import Specification All Data", "ImportAllData_Tbl", "C:\Outgoing\" & strName & ".txt"

Kill "C:\Outgoing\" & strName & ".txt"

Many Thanks

Darrell...

 

[TRYP]

private sub YourSub()
on error goto errorhandler
'do your checking here
exit sub
errorhandler:
select case err.number
case 53
' file not found routine
end select
end sub

 

[dsi]

Or:

If Dir(&quot;C:\Outgoing\&quot; & strName & &quot;.txt&quot;) <> &quot;&quot;
     'Found the file - do your stuff
Else
     'No File
End If