1、copyFile无法做进度条;
2、除非自己写代码拷贝文件,如
try
Dim ms1 As New IO.FileStream("d:\test.jpg", IO.FileMode.Open)
Dim ms2 As New IO.FileStream("d:\000.jpg", IO.FileMode.Create)
Dim buffer(1024) As Byte
Dim count = ms1.read(buffer, 0, buffer.length)
Do While (count > 0)
ms2.Write(buffer, 0, count)
count = ms1.Read(buffer, 0, buffer.Length)
Loop
ms1.Dispose()
ms2.Dispose()
msgbox("ok")
catch ex As exception
msgbox(ex.message)
End try
[此贴子已经被作者于2018/11/18 22:44:25编辑过]