vb实现文件复制

来源：百度知道 编辑：UC知道 时间：2024/06/23 22:25:34
要求
复制整个文件夹和子目录里所有文件，目录为自己定义。最好是有进度条。复制完成后有提示。
先在这里谢谢你们了

sDst = txtDst.Text
sSrc = txtSrc.Text

Set oFSO = CreateObject("Scripting.FileSystemObject")
If Not oFSO.FolderExists(sDst) Then oFSO.CreateFolder sDst

Set oShell = CreateObject("Shell.Application")
oShell.NameSpace(sDst).CopyHere oShell.NameSpace(sSrc).Items()

MsgBox "复制完毕！"

最简单是调用系统的文件复制对话框很简单而且实用,相关API:SHFileOperation
你自己查查吧!

filecopy(源，目标）

要进度条那就用用filelen（文件）求长度

拷所有文件不用我教你嘛

才20分啊，不告诉你！

调用CMD.