风吹过b说：
......
改为
fn = fn + 1 '因为你的FN是静态变量，所以每次调用时直接加1就是了，不需要从 1 开始搜索......。

这句话说的不对，虽然fn是静态变量，在单次运行程序期间，确实可以不管fn的值。但是当下次重新运行本程序时，fn的初始值仍然是从0开始，所以每次运行时必须循环检查fn的值，直到找到不存在和fn值同名的文件为止。

经过一天的调试，发现这样能解决问题：在这个语句FileCopy "C:\temp\pptt.flv", "D:\flv\" & Format(fn, "00000") & ".flv"前加入 On Error Resume Next，就能成功了。这是因为当文件刚开始生成但还没有生成完毕时，程序就检测到了并立刻复制，这样就会出错的。解决的办法就是用on error拦截错误.

你这样用On Error Resume Next是最糟糕的方法。这条语句不是在处理错误，而只是隐藏错误，对所有错误睁一直眼闭一只眼，其结果是隐藏了所有错误。作为专业程序员，是应该完全避免这样做的。而且，加了这条语句之后，虽然不再报错误，但整个代码是实现不了你预定的功能的。