求一个目录对比拷贝程序!

[blackleaf]

对比目录后发现文件不同进行拷贝,拷贝过程要显示拷贝数据如拷贝了多少字节.

有没有人帮帮助啊???或是能不能教我怎么写这个拷贝程序啊????

[blackleaf]

没有人能帮帮忙么?

[viena]

Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String '只有在 FOF_SIMPLEPROGRESS 时用
End Type

Private Declare Function SHFileOperation Lib _
"shell32.dll" Alias "SHFileOperationA" (lpFileOp _
As SHFILEOPSTRUCT) As Long

'wFunc 常数
'FO_COPY 把 pFrom 文件拷贝到 pTo。
Const FO_COPY = &H2
'FO_DELETE 删除 pFrom 中的文件（pTo 忽略）。
Const FO_DELETE = &H3
'FO_MOVE 把 pFrom 文件移动到 pTo。
Const FO_MOVE = &H1

'fFlag 常数
Const FOF_ALLOWUNDO = &H40
Const FOF_NOCONFIRMATION = &H10
Const FOF_NOCONFIRMMKDIR = &H200
Const FOF_SILENT = &H4

Dim SHFileOp As SHFILEOPSTRUCT
' 拷贝
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = "c:\t\1.tmp"
SHFileOp.pTo = "d:\t\"
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
Call SHFileOperation(SHFileOp)

[viena]

循环调用dir函数，可以得到文件列表

[viena]

dim strDir as string
strDir = dir(MyPath)
Do While strDir <> ""
'记录文件名，比如数组
strDir = Dir ' 查找下一个文件
Loop

[viena]

SHFileOp.fFlags不加FOF_SILENT常数，就会显示拷贝进度，假设文件够大的话~

[viena]

如果一定要显示拷贝了多少字节，那就只有自己用二进制读写了，但缓冲区的大小合适效率才会高

[blackleaf]

一定要显示拷贝了多少字节数啊.这样才能得出拷贝的数据流量的啊!我想得出拷贝速度有多少!