怎样实现文件夹拷贝的功能？

[laisiwei]

把一个文件夹复制到另一个地方。
而且要复制里面的文件和子文件夹。和WINDOWS的复制一样

用VB实现（不要调用DOS的xcopy），直接用VB编程或API

谢谢

[wxqjl007]

用FileCopy

语法

FileCopy source, destination

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

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


说明

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

[daviddivad]

'工程-》引用-》Microsoft Scripting Runtime

Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim source As String
Dim destination As String
Dim overwritefiles As Boolean

overwritefiles = True
source = "c:\aa.txt"
destination = "c:\bb.txt"
fso.CopyFile source, destination, overwritefiles
source = "c:\aa"
destination = "c:\bb"
fso.CopyFolder source, destination, overwritefiles
Set fso = Nothing
End Sub

[laisiwei]

这个函数不会拷贝文件夹和子文件呀

[maafei]

你看一下这个api函数，他封装了绝大多数的磁盘操作。
TSHFileOpStructA
复制、易懂、删除等

[mjs2000]

Set fs = CreateObject("Scripting.FileSystemObject")
fs .CopyFolder source, destination[, overwrite]

[thinkeasy]

你可以用递规的方法进行Copy呀

[jiangjian0427]

用ado 对象

[CuiCanBin]

使用 VB 本身的 FileCopy 及 FSO 对象基本能完成大部分的文件(夹)操作
功能，这正如上面大部分回复所说。

但如果想要更加强大的功能的话，还是使用 Win32 API: SHFileOperation
通过它可以完成很多底层功能，实现效果就象在 Windows 本身执行文件操
作一样。如，可以做到：
1.文件(移动)拷贝。可以指定多个源，并且可使用(*.*)通配符，可指定是
否拷贝子文件夹，是否显示拷贝进度窗口等等。
2.删除文件。同样可以指定通配符，并且在删除前提示用户等等。
......

我正在将该功能封装到我的通用组件里面去。有兴趣请联系：[e-mail]

[CuiCanBin]

Win32 API: SHFileOperation 的功能还有重要一点忘记说了：

将文件删除到回收站。

总之，它可以实现类似平常 Windows 本身的文件操作功能。

[myblind]

msdn上有详细帮助。