主题：如何给文件上传做个进度条？

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