vb如何记录fso操作的失败

Question

 Do While ModelFiles <> ""
        fso.CopyFile strModelPath & ModelFiles, DstFilePath        ModelFiles = Dir
 Loop有这样的代码，循环利用fso进行文件的拷贝。但是一旦其中某次拷贝出错了，程序就会终止。
我想出错时当前的文件就不再拷贝，而直接继续拷贝下一个，并且获得出错的信息，记录到日志文件中，该怎么做？

Answer 1

on error goto errHandlerDo While ModelFiles  <> "" 
    fso.CopyFile strModelPath & ModelFiles, DstFilePath        ModelFiles = Dir 
Loop exit suberrHandler:
    
    writeLog xxxx    resume nextend sub