Question

VB复制文件夹问题

我用Shell "xcopy d:\a e:\a\ /e /c /y", 0来复制文件夹的
不过为什么我发现复制很快，而且一些视频文件都不能打开？？
是因为这个语句不能复制太大的东西吗？
原因我知道了，复制还是在进行，不过看不到
所以我提另一个问题吧，复制文件夹时用progressbar显示进度条，如何实现，我按网上的方法试了一下
progress.max=100
progress.min=0
for i=1 to fcount(fcount是文件个数)
progress.value=i/fcount*progress.max
next i
为什么进度条很快就满了，但复制还没完成？？

Answer 1

注意：xcoy 是dos命令，无法取得复制文件的具体情况，也就不能知道复制的具体的进度，但可以知道什么时候复制完成。
所以，我们可以虚拟一个进度条，欺骗一下用户视觉。：-），等复制完成后，再提示复制完成即可。
具体做法是：
1、声明部分复制以下代码：
Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long) _
As Long
Declare Function OpenProcess Lib "kernel32" (ByVal _
dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Const INFINITE = -1&
Private Const SYNCHRONIZE = &H100000

2、设置progress.max=100
3、添加timer1控件，interval=100,enabel=false，并输入以下代码:
Private Sub Timer1_Timer()
if progress.min<100 then
progress.min=progress.min+1
else
progress.min=0
endif
end sub
3、当开始复制文件时，可用以下代码完成：
Dim TaskID As Long ' Task-ID des DOS-Fensters
Dim ProcID As Long ' Prozess-ID des DOS-Fensters
timer1.enabel=true
TaskID = Shell("xcopy d:\a e:\a\ /e /c /y", vbHide)
DoEvents
ProcID = OpenProcess(SYNCHRONIZE, False, TaskID)
Call WaitForSingleObject(ProcID, INFINITE)
timer1.enabel=false
progress.min=progress.max
msgbox "文件复制完成！"

Answer 2

Shell "xcopy d:\a e:\a /e /c /y", 0

Answer 3

VB 的shell语句是异步执行的，也就是说，用 Shell 启动的xcopy可能还没有完成执行过程，就已经执行到 Shell "xcopy d:\a e:\a\ /e /c /y", 0 之后的语句，导致文件复制还没有执行完毕，进度条就满了。