主题：如何为远程文件增加上传下载进度条？

我编制了一个办公软件，设置了局域网内的远程文件，在上传较大的文件时等待时间长，不知道上传的进度，想设置一个进度条，不知如何设置，请老师指教！

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=78301&skin=0

 

我想要的不是用FTP上传文件，而是用多文件的本地局域网的共享文件夹存文件，感觉比FTP更方便，但没有上传和下载的进度条，想做一个。

参考代码

 

Dim ofd As OpenFileDialog = New OpenFileDialog()
Dim res As DialogResult = ofd.ShowDialog()

If res = DialogResult.OK Then
   
    If Not String.IsNullOrEmpty(ofd.FileName) Then
        Dim streamRead As io.FileStream = New io.FileStream(ofd.FileName, io.FileMode.Open)
        Dim data As Byte() = New Byte(1048575) {}
        Dim length As Integer = 0
        Dim sfd As SaveFileDialog = New SaveFileDialog()
        Dim sres As DialogResult = sfd.ShowDialog()
       
        If sres = DialogResult.OK Then
           
            If Not String.IsNullOrEmpty(ofd.FileName) Then
                Dim streamWrite As io.FileStream = New io.FileStream(sfd.FileName, io.FileMode.Create)
                StatusBar.ProgressBar.Visible = True
                StatusBar.ProgressBar.Maximum = streamRead.length
                StatusBar.ProgressBar.Minimum = 1
                application.doevents
                Do
                    length = streamRead.Read(data, 0, data.Length)
                    StatusBar.ProgressBar.value += length
                    application.doevents
                    'For i As Integer = 0 To length - 1
                    '    data(i) = CByte((255 - data(i)))
                    'Next
                   
                    streamWrite.Write(data, 0, length)
                Loop While length = data.Length
streamWrite.close
            End If
        End If
    End If
End If