Question

VBS 复制文件

复制a目录中的文件到b目录中，a目录下有子文件夹和各种文件，注意：复制不包括a目录，只是里面的内容，最好带 相同文件覆盖跳过的的命令，谢谢！

Answer 1

方法一：FileCopy
可在VBA中直接引用，单个文件的copy。
语法：
FileCopy 源文件名,目标文件名
注：如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误。
示例：
FileCopy 当前路径, 目标路径

方法二：CopyFile
需调用FileSystemObject，多个文件可使用通配符。
语法：
object.CopyFile source, destination[, overwrite]
CopyFile 方法语法有如下几部分：
部分 描述
object 必需的。object始终是一个 FileSystemObject 的名字。
source 必需的。指明一个或多个要被复制文件的字符串文件说明，它可以包括通配符。
destination 必需的。指明 source 中的一个或多个文件要被复制到的接受端的字符串，不允许有通配符。
overwrite 选项的。Boolean 值，它表示存在的文件是否被覆盖。如果是 True，文件将被覆盖；如果是 False，它们不被覆盖。缺省值是 True。注意如果 destination 具有只读属性设置，不论 overwrite 值如何，CopyFile 都将失败。
示例：
Set Fso = CreateObject("Scripting.FileSystemObject")
Fso.CopyFile 当前路径, 目标路径

Answer 2

VBA本身的filecopy好象不能复制打开的文件;
方法1:用SAVEAS 另存为
ThisWorkbook.SaveAs "D:\log\" & Format(Date, "yyyyMMdd") & ".xls"

方法2:借用DOS的COPY命令
Shell "cmd /c copy """ & ThisWorkbook.FullName & """ D:\" & Format(Date, "yyyyMMdd") & ".xls"

Answer 3

假设a、b目录都在c盘。

On Error Resume Next
Dim fso,yn,ttfile
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "c:\a\*","c:\b\",False
fso.CopyFile "c:\a\*","c:\b\",False

Answer 4

set fso=CreateObject("scripting.filesystemobject")
fso.copyfile thisworkbook.fullname,"D:\log\" & format(date,"yyyyMMdd") & ".xls"