[已解决]请教目录拷贝语句

sdwffw

有两个目录（1、2），请问如何用VBA语句自动实现：
1、把目录1拷贝到目录2下，包括目录1下所有文件；
2、拷贝后，以前的目录1下文件清空，只保留空目录.
谢谢老师。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-8 20:33

复制窗体.rar (19.83 KB, 下载次数: 10)

2013-3-8 20:33 上传

点击文件名下载附件

写了个窗体，打开工作簿后点按钮即可。

跳转到最佳答案楼层

hwc2ycy

Name 语句
请参阅     示例     特性

重新命名一个文件、目录、或文件夹。

语法

Name oldpathname As newpathname

Name 语句的语法具有以下几个部分：

部分 描述
oldpathname 必要参数。字符串表达式，指定已存在的文件名和位置，可以包含目录或文件夹、以及驱动器。
newpathname 必要参数。字符串表达式，指定新的文件名和位置，可以包含目录或文件夹、以及驱动器。而由 newpathname 所指定的文件名不能存在。



说明

Name 语句重新命名文件并将其移动到一个不同的目录或文件夹中。如有必要，Name 可跨驱动器移动文件。 但当 newpathname 和 oldpathname 都在相同的驱动器中时，只能重新命名已经存在的目录或文件夹。 Name 不能创建新文件、目录或文件夹。

hwc2ycy

Move 方法
请参阅     示例     应用于     特性

描述

将一个指定的文件或文件夹从一个地方移动到另一个地方。

语法

object.Move destination

Move 方法语法有如下几部分：

部分 描述
object 必需的。始终是一个 File 或 Folder 对象的名字。
destination 必需的。文件或文件夹要移动到的目标。不允许有通配符。



说明

Move 方法对一个 File 或 Folder 的结果和执行 FileSystemObject.MoveFile 或 FileSystemObject.MoveFolder 操作的结果是一样的。但应当注意，后面的方法能够移动多个文件或文件夹。

hwc2ycy

复制窗体.rar (19.83 KB, 下载次数: 10)

2013-3-8 20:33 上传

点击文件名下载附件

写了个窗体，打开工作簿后点按钮即可。

hwc2ycy

有个疑问目录1本身需要拷贝到目录2下面么？

hwc2ycy

cmd.exe /c move /y 目录1 目录2
cmd.exe /c md  目录1

这个把目录1移动到到目录2下
然后再重新建一个目录1

sdwffw

十分感谢老师耐心的教导。不过我用的excel是03版的，老师的示例提示版本高，麻烦老师调整一下。

sdwffw

hwc2ycy 发表于 2013-3-8 20:50
有个疑问目录1本身需要拷贝到目录2下面么？

是的，老师。您的示例我用的03版打不开，请老师调整一下，感谢。

hwc2ycy

复制窗体.rar (15.04 KB, 下载次数: 3)

2013-3-9 08:40 上传

点击文件名下载附件

目录1没有复制过去了，

sdwffw

hwc2ycy 发表于 2013-3-8 20:52
cmd.exe /c move /y 目录1 目录2
cmd.exe /c md  目录1

非常非常感谢老师，您做的模板很好用。不过老师我的两个目录是固定的，不用再选，只是想简单的通过语句把目录1和内部所有文件拷贝至目录2下，再创建一个空的目录1以后再用。
cmd.exe /c move /y 目录1 目录2
cmd.exe /c md  目录1
我测试了以下，提示错误，不知如何使用，请老师指导。