Question

在vb中怎么实现整个目录的复制

Answer 1

文件的复制、删除、修改操作没有针对整个目录的，所以要实现，必须一个文件一个文件的来。如果要简单一些，可以直接调用CMD命令，例如删除目录用rd /s/q 盘符:\某个文件夹 ，这样整个文件夹所有的文件和文件夹都删除了，VB中就用：

Shell "cmd /c rd /s/q d:\123"
删除d:\123下的所有文件和文件夹。

Answer 2

1. 新建一个工程，点击VB菜单 “工程”，选择“引用”，在弹出的对话框中，勾选“microsoft scripting runtime”，点击确定。

2. 在Form窗体中增加一个Commandbotton控件。
   

3. 复制粘贴如下代码：

   Private Sub Command1_Click()  

     Dim fs As New Scripting.FileSystemObject

     fs.CopyFolder "c:\Temp", "d:\"

     Set fs = Nothing

   End Sub

4. 以上代码是将c盘TEMP目录（含文件夹内所有文件及目录）复制到d盘根目录下！