Need help with ProgressBar

[tiguy]

Hi All in VB land

I'm trying to make my file copy work with a progress bar
I’m trying to make my progress bar looks at the file size and progress at about the speed that it is copying. Is this possible? I’m not looking for anything fancy just for it too work.

Thanks everyone

[|2eM!x]

well im not sure if this is waht you need, but here.

Dim vtData()  As Byte
Dim FreeNr    As Integer
Dim SizeDone  As Long
Dim bDone     As Boolean
Dim GetPerc   As Integer
 
FreeNr = FreeFile
    
    Open App.Path & "\yay.rar" For Binary Access Write As FreeNr 'file your copying or whatever
                
    'this shows the status in real time
    'kinda fancy
    
                Do While Not bDone
                    vtData = Inet1.GetChunk(1024, icByteArray) ' Get next chunk.
                    
                    SizeDone = SizeDone + UBound(vtData)
                    
                    lblStatus.Caption = SizeDone \ 1024 & "kb" & "/" & m_FileSize \ 1024 & "kb"
                    
                    GetPerc = (SizeDone / m_FileSize) * 100
                    If GetPerc > 100 Then GetPerc = 100
                    If GetPerc < 0 Then GetPerc = 0
                    
                    Me.Caption = "AutoUpdater - " & GetPerc & "%"
                                        
                    Put #FreeNr, , vtData()           'chunk wegschrijven naar bestand
                    If UBound(vtData) = -1 Then
                        bDone = True  'Er zijn geen chunks meer, KLAAR DUS
                    Else
                        DoEvents      'Yield to other processes
                    End If
                Loop
                
                Close FreeNr

use the getperc to find the progress..this is not my code

[Joacim Andersson]

Most programs that shows a file copy progress, like a setup program for example, updates the progress after each file has been copied. But if your files are so large that you want to show the progress while they are copied you need to write your own copy procedure. Read and write the file in chunks and update the progressbar accordingly.

[tiguy]

Hey whats a vtdata??

[Joacim Andersson]

In the above code it's a byte array.

Dim vtData()  As Byte

[tiguy]

I get An error

"Object required"

vb Code vtData = Inet1.GetChunk(1024, icByteArray) ' Get next chunk.

[Joacim Andersson]

Well that code uses an inet control to read data from the Net. Is that what you're trying to do?

[tiguy]

No I just want to copy a file from my C drive to the floppy drive. It's just a G code text file.