Public TotalSize As Currency
Public BytesTransferredAll As Currency
 
' Verweis auf ein ProgressBar-Control
Public glbProgBar As ProgressBar
Public glbProgBar2 As ProgressBar
 
Public Function Fortschrittsanzeige( _
  ByVal TotalFileSize As Currency, _
  ByVal TotalBytesTransferred As Currency, _
  ByVal StreamSize As Currency, _
  ByVal StreamBytesTransferred As Currency, _
  ByVal dwStreamNumber As Long, _
  ByVal dwCallbackReason As Long, _
  ByVal hSourceFile As Long, _
  ByVal hDestinationFile As Long, _
  ByVal lpData As Long) As Long
 
  'Einzelfortschritt anzeigen
  If Not glbProgBar Is Nothing Then
    With glbProgBar
      .Value = CStr(Int(TotalBytesTransferred * 10000) / _
        (TotalFileSize * 10000) * 100)
    End With
    DoEvents
  End If
 
  Dim Done As Currency
 
 
  Done = (BytesTransferredAll + TotalBytesTransferred) * 1000
  TotalSize = TotalSize * 1000  '<---erzeugt Overflow
 
  'Gesamtfortschritt anzeigen
  If Not glbProgBar2 Is Nothing Then
    With glbProgBar2
      .Value = 0 / _
        TotalSize * 100
    End With
    DoEvents
  End If
 
  Fortschrittsanzeige = PROGRESS_CONTINUE
End Function

'Berechnen der Gesamtgröße
Dim i As Integer
 
With flstSys
    .Path = App.Path & "\Data\Sys\"
    For i = 0 To .ListCount - 1
        .Selected(i) = True
        TotalSize = TotalSize + FileLen(.Path & "\" & .FileName)
    Next i
End With
With flstMisc
    .Path = App.Path & "\Data\Misc\"
    For i = 0 To .ListCount - 1
        .Selected(i) = True
        TotalSize = TotalSize + FileLen(.Path & "\" & .FileName)
    Next i
End With

Press any key to continue or any other key to quit...