VB里如何完成对一个特定文件的复制？

Question

VB里如何完成对一个特定文件的复制？

Answer 1

复制文件的几种方法1、Copy 方法
描述
把一个指定的文件或文件夹从一个地方复制到另一个地方。
语法
object.Copy destination[, overwrite]
Copy 方法语法有如下几部分：
部分 描述 
object 必需的。始终是一个 File 或 Folder 对象的名字。 
destination 必需的。文件或文件夹要复制到的接受端。不允许有通配符。 
overwrite 可选的。Boolean 值，如果该值为 True （缺省），则已存在的文件或文件夹将被覆盖。如果为 False，则它们不被覆盖。 
说明
对一个 File 或 Folder，Copy 方法的结果和执行 FileSystemObject.CopyFile 或FileSystemObject.CopyFolder 操作的结果是一样的，在后者中， object所引用的文件或文件夹是作为参数传递的。应当注意，后面的方法能够复制多个文件或文件夹。=============================================================================2、CopyFile 方法
描述
把一个或多个文件从一个地方复制到另一个地方。
语法
object.CopyFile source, destination[, overwrite]
CopyFile 方法语法有如下几部分：
部分 描述 
object 必需的。object始终是一个 FileSystemObject 的名字。 
source 必需的。指明一个或多个要被复制文件的字符串文件说明，它可以包括通配符。 
destination 必需的。指明 source 中的一个或多个文件要被复制到的接受端的字符串，不允许有通配符。 
overwrite 选项的。Boolean 值，它表示存在的文件是否被覆盖。如果是 True，文件将被覆盖；如果是 False，它们不被覆盖。缺省值是 True。注意如果 destination 具有只读属性设置，不论 overwrite 值如何，CopyFile 都将失败。 
说明
通配符只能用在 source 参数的最后一个路径部件。例如，你可以在下面请况使用通配符：
FileSystemObject.CopyFile "c:\mydocuments\letters\*.doc", "c:\tempfolder\"
但下面情况不能使用：
FileSystemObject.CopyFile "c:\mydocuments\*\R1???97.xls", "c:\tempfolder"
如果 source 包含通配符或 destination 以路径分隔符（\）为结尾，则认为 destination 是一个已存在文件夹，在其中复制相匹配的文件。否则认为 destination 是一个要创建文件的名字。不论是那种情况，当复制一个文件时，可能发生三种事件。 
如果 destination 不存在，source 得到复制。这是通常的情况。
如果 destination 是一个已存在的文件，则当 overwrite 值为 False 时发生一个错误，否则，source的复制文件将试图覆盖已存在文件。
如果 destination 是一个目录，发生一个错误。 
如果使用通配符的 source 不能和任何文件匹配，同样产生一个错误。CopyFile 方法停止在它遇到的第一个错误上。不要试图回卷或撤消错误发生前所做的任何改变。=============================================================================3、FileCopy 语句
复制一个文件。
语法
FileCopy source, destination
FileCopy 语句的语法含有以下这些命名参数：
部分 描述 
source 必要参数。字符串表达式，用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。 
destination 必要参数。字符串表达式，用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。 
说明
如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误。

Answer 2

我来补充：
SHFileOperation = Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
'WINDOWS中的文件复制、移动、删除和重命名都可以在这个函数中表现出来，包括复制进度等，酷！请查阅：SHFILEOPSTRUCT　结构！如：Dim SFI As SHFILEOPSTRUCT
     SFI.hwnd = Me.hwnd
     SFI.wFunc = FO_COPY
     SFI.pFrom = "c:\command.com"
     SFI.pTo = "d:\"
     
SHFileOperation SFI