关于vb中复制文件夹时进度条的问题

我写的程序中有一段复制文件夹的代码：
Private Sub Command8_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "C:\1", "H:\2"
Form4.Show
Unload Form2
End Sub
我想复制文件夹的时候显示出复制的进度 请高手帮下忙

关于vb中复制文件夹时进度条的问题 vb在复制文件夹时怎样控制进度条 VB编程,复制文件夹,要求有进度条!~~ 关于VB中复制文件的问题 vb进度条的问题 vb的进度条 VB的进度条问题! vb复制大文件，并显示进度条 VB中得进度条控件 一个关于VB中复制文件的问题