Ok, I am looking at the .DONE component and I think that I might see something wrong with it. Correct me if I am wrong:

In line 33 or so you check for the ".DONE" tagged to the end of the file.

if ucase(right(objFSOFile.name,4)) = "DONE" then strFileNameBase = trim(left(objFSOFile.Name, len(objFSOFile.name)-5))

So, say we have a file named 20021212.zip.DONE. I am assuming that this is what you are looking for. (I still do not know how the .DONE gets added in the first place)

So, you set the variable filename base equal to the file name minus 5 which effectively eliminates the .DONE.

This gives us 20021212.zip as the filenamebase.

But, on line 41 you write the following:

If fso.FileExists(strFTPDir & "\" & strFileNameBase & ".zip")

This file will not exist because it is still called:20021212.zip.DONE

We have not removed the .DONE from the actual filename. Even if we had then the .zip is still there and we would be looking for 20021212.zip.zip