((Resolved)) progress bar with file copy Help

[tiguy]

Hi everone

I need some help trying to figure out the whole file copy with a progress bar. Can anyone help.

ive see some code for vb6 that makes the progress bar move based on the file size.

Thanks for any help

reston

[Simon_R]

what type of file, and how are you copying it

Simon

[laserman]

This is only a little demo I did and is not a true Filecopy.

Hope this gives you a start though.

If you have some time I will do a proper one later.

Cheers

[Bombdrop]

Try this this will show the progress rate of the file.

place in a Bas Mod.

'=======================================================================
'Title              :Module1
'System             :Project1
'=======================================================================
'Copyright          :© Albion Software
'Date               :23/04/2004
'Author             :©BomdBrop
'Technical Reviewer :
'Purpose            :
'=======================================================================
Option Explicit
 
Private Const FO_COPY = &H2&
 
Private Const FOF_NOCONFIRMATION = &H10&
 
Private Const FOF_SILENT = &H4& 'Progress not visible
 
 
Private Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Long
    hNameMappings As Long
    lpszProgressTitle As String
End Type
 
Private Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As Any) As Long
    
Public Function CopyFile(FormHwd As Long, Source As String, Dest As String, _
    AskOverwrite As Boolean, Visib As Boolean) As Boolean
    Dim lenFileop As Long
    Dim foBuf() As Byte
    Dim fileop As SHFILEOPSTRUCT
    lenFileop = LenB(fileop)
    ReDim foBuf(1 To lenFileop)
    With fileop
        .hwnd = FormHwd
        .wFunc = FO_COPY
        .pFrom = Source & vbNullChar & vbNullChar & vbNullChar
        .pTo = Dest & vbNullChar & vbNullChar
        
        If AskOverwrite = False Then .fFlags = FOF_NOCONFIRMATION 'no ask to overwrite
        If Visib = False Then .fFlags = .fFlags Or FOF_SILENT 'not visible
            
        .lpszProgressTitle = "Copying " & Dest & vbNullChar & vbNullChar
    End With
    
    Call CopyMemory(foBuf(1), fileop, lenFileop)
    Call CopyMemory(foBuf(19), foBuf(21), 12)
    
    
    CopyFile = SHFileOperation(foBuf(1)) = 0
    
 
End Function

place in a form.

Option Explicit
 
Private Sub Command1_Click()
CopyFile Me.hwnd, "U:\Books\VB.Classic Help.chm", _
    "C:\Documents and Settings\sburrows\Desktop\test.chm", True, True
End Sub

hope this helps

[MartinLiss]

Here's a complete project.