以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]复制文件的进度条问题！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31332)
--  作者：mosquito1003
--  发布时间：2013/4/13 9:32:00
--  [求助]复制文件的进度条问题！
我在复制文件时，希望做一个复制多少的进度条。可是我不知道进度条的P.Value的值要怎么设置，代码如下
        Dim p As WinForm.ProgressBar
        p = e.Form.Controls("fjglProgressBar1")
        p.Maximum =  nm12 \'设置最大值
        p.Minimum = 0 \'设置最小值
        p.Value = 0
        If FileSys.FileExists(f11) Then
        FileSys.CopyFile(f11, ""& fileway &""& dx11("NewName") &"",True)
        p.Value = FileSys.GetFileInfo(""& fileway &""& dx11("NewName") &"").Length \'设置当前值
        End If
请问高手们，该如何设置当前值啊？
--  作者：Bin
--  发布时间：2013/4/13 9:57:00
--  
单个文件没想出有办法能实现了.FOXTABLE又不能使用文件流.   多个文件的话可以选择复制一个就增加对应的P.Value
--  作者：ztmdnzc
--  发布时间：2013/6/11 10:44:00
--  

bin老师：对单个文件能不能利用时间统计的功能实现？即复制时隔一段时间增加p.value。

            或：通过判断目标文件的大小占源文件大小的比例进行设置？