拷贝目录a到目录b 把拷贝的进度反馈个哦进度条！容易搞吗？

[tenxp]

目录a 是\\192.168.0.1\111这样形式的网上邻居地址！

[trueideal]

要看你的进度条是想计算copy速度，还是文件数了。如果是文件数，简单些.

[tenxp]

进度条 显示整体拷贝的进度！
速度以后再考虑！

[yanlongwuhui]

可以考虑以下两种思路：
1.获取指定路径下文件的数量，设置成进度条的最大值，每复制一个文件，进度条值加一；
2.获取指定路径下所有文件的大小，复制几个文件，统计复制的总的字节数和时间，算出每秒复制的字节数(X)，最后得出总时间，用总时间做为进度条的最大值。进度条每秒加(X),当每个文件复制完毕，修正进度条的当前值（用该文件的实际时间去修正理论上用掉的时间）。

[刘兄弟]

ProgressBar
请查找这个 ，很简单那的。

[刘兄弟]

另外建议自己用其它控件来表示，其实进度条，主要是告诉用户 现在不要动而已， 数字而已。

[华芸智森]

Dim FileArray() As String
Dim SourFolder As String = "源目录"
Dim ObjFolder As String = "目标目录"

FileArray = IO.Directory.GetFiles(SourFolder)
ProgressBar1.Maximum = FileArray.Length
Dim I As Int16 = 1
For Each s As String In FileArray
ProgressBar1.Maximum = I
System.Windows.Forms.Application.DoEvents()
Dim FolderName As String = New IO.FileInfo(s).DirectoryName
If Not IO.Directory.Exists(FolderName) Then
IO.Directory.CreateDirectory(FolderName)
End If
IO.File.Copy(s, Replace(s, SourFolder, ObjFolder), True)
I += 1
Next