试试这个:
rc = CopyFile(NewRoute & FileName, App.Path & "\" & FileName, 1)

解决方案 »

  1.   

    同意sanqsh(三秋树) ,你少写了一个"\".
      

  2.   

    或者直接用VB的Filecopy语句:FileCopy 语句
          复制一个文件。语法FileCopy source, destinationFileCopy 语句的语法含有以下这些命名参数:部分 描述 
    source 必要参数。字符串表达式,用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。 
    destination 必要参数。字符串表达式,用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。 
    说明如果想要对一个已打开的文件使用 FileCopy 语句,则会产生错误。
      

  3.   

    示例:
    FileCopy NewRoute & FileName, App.Path & "\" & FileName