如何拷贝一个或多个文件？

Question

请问大家，如何将一个位置（如某个盘符的根目录或某个文件夹）下的一个或多个文件拷贝到另一个位置（相同盘符或不同盘符的根目录或其文件夹）？
文件是同一类文件如何操作？不是同一类文件又如何操作？

Answer 1

FileCopy 语句复制一个文件。语法FileCopy source, destinationFileCopy 语句的语法含有以下这些命名参数：部分 描述
source 必要参数。字符串表达式，用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。
destination 必要参数。字符串表达式，用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。
说明如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误。=============================本示例使用 FileCopy 语句来复制文件。示例中假设 SRCFILE 为含有数据的文件。Dim SourceFile, DestinationFile
SourceFile = "SRCFILE" ' 指定源文件名。
DestinationFile = "DESTFILE" ' 指定目的文件名。
Filecopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中。

Answer 2

Dim fso As New FileSystemObject
参考fso对象中的CopyFile和CopyFolder方法

Answer 3

拷贝文件
FileCopy "c:\123.txt","c:\123\123\txt.txt"将一个目录拷贝至另一个目录(包括子目录)
引用Microsoft Scripting RuntimeDim fsoTest As New FileSystemObject
Dim folder1 As FolderPrivate Sub Command1_Click()'复制文件夹
fsoTest.CopyFolder "c:\abc", "d:\abc", TrueEnd Sub

Answer 4

The CopyFile function copies an existing file to a new file. BOOL CopyFile(
  LPCTSTR lpExistingFileName,
                          // pointer to name of an existing file
  LPCTSTR lpNewFileName,  // pointer to filename to copy to
  BOOL bFailIfExists      // flag for operation if file exists
);