Option Explicit
 
Public Sub DateiKopieren(QuellDatei As String, ZielDatei As String, lAusgabe As _
  Label)
  Dim F1 As Integer, F2 As Integer
  Dim s As String, L As Long, n As Long, P As Integer
  Dim Start As Date, Bis As Long
  F1 = FreeFile
  Open QuellDatei For Binary As #F1
  F2 = FreeFile
  Open ZielDatei For Output As #F2
  L = LOF(F1)
  P = 0
  n = 0
  Start = Now
  lAusgabe.Caption = P & "% von " & Format(L / 1024, "#,##0") & " KB - " & _
    ZielDatei
  lAusgabe.Refresh
  While Not EOF(F1)
    s = Space$(1)
    Get #F1, , s
    Print #F2, s;
    n = n + 1
    If Int(100 / L * n) > P Then
      P = Int(100 / L * n)
      Bis = DateDiff("s", Start, Now)
      Bis = Bis / n * L - Bis
      If Bis < 60 Then
        lAusgabe.Caption = P & "% von " & Format(L / 1024, "#,##0") & " KB - " _
          & Format(Bis, "#,##0") & " Sek. - " & ZielDatei
      Else
        lAusgabe.Caption = P & "% von " & Format(L / 1024, "#,##0") & " KB - " _
          & Format(Bis / 60, "#,##0") & " Min. - " & ZielDatei
      End If
      lAusgabe.Refresh
    End If
  Wend
  Close #F1
  Close #F2
End Sub