VBA - If error carry on

[p4nny]

Hi,

I have the following code which moves files from one location to another.. If a file doesn't exist, I would the code to carry on to the next file rather give an error message "File does not exist"

appreciate any guidance you can give.

Sub everythingexcCRO()


Kill "\\retail\dfsroot$\Group Change\Database use only\02-01 Logistics.xlsm"




FileCopy Source:="\\retail\dfsroot$\Group Change\02-01 Logistics\02-01 Logistics.xlsm", Destination:="\\retail\dfsroot$\Group Change\02-01 Logistics.xlsm"


'logistics




Kill "\\retail\dfsroot$\Group Change\Database use only\03-01 Fulfilment.xlsm"


FileCopy Source:="\\retail\dfsroot$\Group Change\03-01 Fulfilment.xlsm", Destination:="\\retail\dfsroot$\Group Change\Database use only\03-01 Fulfilment.xlsm"


'fulfillment

 

[RoryA]

You can use Dir to verify the file exists:

sFileTo = "\\retail\dfsroot$\Group Change\Database use only\02-01 Logistics.xlsm"
sFileFrom = Replace(sFileTo, "Database use only\", "")
If Dir(sFileTo) <> "" then Kill sFile
   If Dir(sFileFrom) <> "" Then FileCopy Source:=sFileFrom, Destination:=sFileTo

Since it looks like you repeat this more than once, it may be worth putting into a separate routine and passing the "Database use only" path as an argument to it.