写到文件的1个问题

everyone

写到文件的时候可以用进度条提示进度不？是把自身资源的写到电脑上 不是要复制的

马大哈

当然可以.

 

资源有大小是吧.

 

然后,写入时每写入一部分,就将已写入的部分与总大小的比值计算出来,更新到进度条上.

 

就这样...

everyone

写个列子可以不[em59]估计很多人都不会

马大哈

QUOTE:

'你资源文件大小如果在50M以下,没必要使用进度条吧,一两秒钟的事.

 

Public Sub GetResFile(ByVal ResID As Long, ByVal FileName As String)
    Dim bFile() As Byte
   
    bFile = LoadResData(ResID, "CUSTOM") '将自定义资源中资源读入数组
   
    If Dir(FileName) = "" Then              '只有文件不存在时,才释放
        Open FileName For Binary As #1
            Put #1, , bFile
        Close #1
    End If
End Sub

调用GetResFile,传入资源文件ID,以及要写到的文件名,就行了.

 

50M以内的文件,速度在一两秒左右,具体速度与当前机器硬盘IO吞吐能力有关,但无论怎么样也不会慢到需要使用进度条的地步.