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

[babytree666]

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

[lihonggen0]

FileCopy 语句

复制一个文件。

语法

FileCopy source, destination

FileCopy 语句的语法含有以下这些命名参数：

部分 描述
source 必要参数。字符串表达式，用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。
destination 必要参数。字符串表达式，用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。
说明

如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误。

=============================

本示例使用 FileCopy 语句来复制文件。示例中假设 SRCFILE 为含有数据的文件。

Dim SourceFile, DestinationFile
SourceFile = "SRCFILE" ' 指定源文件名。
DestinationFile = "DESTFILE" ' 指定目的文件名。
Filecopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中。

[yoki]

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

[lihonggen0]

拷贝文件
FileCopy "c:\123.txt","c:\123\123\txt.txt"



将一个目录拷贝至另一个目录(包括子目录)
引用Microsoft Scripting Runtime

Dim fsoTest As New FileSystemObject
Dim folder1 As Folder

Private Sub Command1_Click()

'复制文件夹
fsoTest.CopyFolder "c:\abc", "d:\abc", True

End Sub

[Baalwhat]

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
);