请问坛主及其他高手: 以下是本人有问题的部分程序,请指点迷津,不胜感激!! ' "工程"，"引用" 中已加上了 "Microsoft Scripting Runtime"

Function fCopy(SourcePath As String, TargetPath As String) As String Dim Fso As New FileSystemObject ... Dim fs(3) As String, ft(3) As String, fsp(3) As String, ftp(3) As String ... For i = 0 To 3 If Fso.FileExists(fsp(i)) And (Not Fso.FileExists(ftp(i))) Then ' 实际 此条件均满足 Fso.CopyFile fs(i), ft(i) ' 程序运行就不执行，如加上断点调试运行，则可执行 ？？？ End If Next i ... End Function

Call Fso.DeleteFolder(lzxtemdir, True) '这句执行无问题 ... str_setup = fCopy(lzxtemdir, acadPath0) ... Call Fso.DeleteFolder(lzxtemdir, True) '这句有时执行到时出错不能运行，加上断点调试运行时继续执行可执行 ？？？ ... 2005.4.27. pnlzx