如何才能像CopyFileEx一样～让档案移动或删除时也同样有进度条呢？
（要放在VB6 Form里面的～不是XP中内建的那种）

Declare Function MoveFileWithProgress Lib "kernel32.dll" Alias "MoveFileWithProgressA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByRef lpProgressRoutine As PROGRESS_ROUTINE, lpData As Any, ByVal dwFlags As Long) As Long

怎样的进度条？？
1、删除。按文件总数确定进度条最大值，然后每删除一个文件，进度条走一格。

2、复制。可以按文件总数来确定进度条。

如果你需要更精确的话，使用复制的字节数来确定进度条，就需要自己写复制函数。
先统计所有要复制文件的大小，字节数。
使用二进制打文件文件，每读一个字节，就立即写一个字节，每写 总字节的 0.5% 或 1% ，就走一下进度条。

复制文件使用 DO LOOP 循环，然后里面加一个 全局或静态 计数变量，根据这个计数变量来写。
这种情况下，因VB的限制，同时复制超过 2G 的数据时，会导致数据溢出报错。不如按文件来弄进度条好。

具体的说是要做复制和移动多个档案时（不读取内容到内存）～
能像WinRAR的一样的双进度条～但是又不要使用XP内建的那个～
要显示在自己的程序内的ProgressBar和Label～

http://www.
这功能的移动版～

是可以用CopyFileEx实现移动的功能～
只是须先复制再删除～会浪费时间浪费系统资源～