如何计算文件大小,再根据文件大小做个进度条,为什么下面代码一执行就死机?
Dim st As String = "D:\图集规范\图集\建筑工程\钢筋工程\16G1012现浇混凝土板式楼梯.pdf"
Dim stt As String = "C:\AAA\16G1012现浇混凝土板式楼梯.pdf”
Dim pg As WinForm.ProgressBar
= e.Form.Controls("ProgressBar1")
Dim fif As new FileInfo(st)
Dim fift As new FileInfo(stt)
pg.Maximum = fif.Length
pg.Minimum = 0
pg.Value = 0
For i As Integer = 0 To (fif.Length - fift.Length)
FileSys.CopyFile(st,stt,True)
If i Mod 100 = 0 Then
pg.Value = i
End If
Next