ファイルコピーの残り時間を正しく計算する問題

Question

コピーアプリの現実的な「残り時間」アプリを正しく見積もっている問題があります。私はFilestreamをコピーに使用しています。コピーされるファイルは1MB以上から4GBまでです。私はすべての上にFILECOPYの現在位置を計算するためにここにpercentageTotalを使用しています：

'Loop through each file in the SourceDir 
      For Each ChildFile In SourceDir.GetFiles() 

       If (worker.CancellationPending = True) Then 
        e.Cancel = True 
       End If 

       'Calculate data being moved for eta to completion 
       Dim filetotalbytes As Double = ChildFile.Length 
       filetotalsofarcopied = filetotalbytes + filetotalsofarcopied 


       'Display file being copied 
       SetLabelText_ThreadSafe(Me.lblStatus, "Copying: " & line & "\" & ChildFile.Name & "") 

       'Do the copy 
       ChildFile.CopyTo(Path.Combine(DestDir.FullName, ChildFile.Name), True) 

       'Contruct Destination and Source Strings 
       deststring = DestDir.ToString & "\" & ChildFile.Name 
       Dim sourcedirstring As String 
       sourcedirstring = SourceDir.ToString & "\" & ChildFile.Name 

     Dim CopyStream As New FileStream(sourcedirstring, FileMode.Open, FileAccess.Read) 
     Dim NewStream As New FileStream(deststring, FileMode.Append) 

     Dim Buffer(4096) As Byte 
     Dim BytesRead As Integer 
     Dim len As Long = CopyStream.Length - 1 

     While CopyStream.Position < len 


      BytesRead = CopyStream.Read(Buffer, 0, Buffer.Length) 
      NewStream.Write(Buffer, 0, BytesRead) 

      percentageTotal = ((NewStream.Length + filetotalsofarcopied)/Overallsize * 100) 
      percentageTotal = Decimal.Round(percentageTotal) 

      ' SetLabelText_ThreadSafe(Me.lblTotalProgress, "" & percentageTotal & "%") 

     End While 

     CopyStream.Dispose() 
     NewStream.Dispose() 

私は私が期待するようpercentageTotalの値は、多くの場合、むしろライナーファッションの増加よりもジャンプすることを見つけます。私がどこに間違っているのか誰にでも見える？

さらに、私はsecondsremaining値のロジックを完成させることができません。現在のところ、最初に実行されてから急速に減少する前のコピーを表示していますが、残りの時間は明らかではありません。

'Start process snippit 
'Start Button Click config - starts the backgroundworker 
Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

    'Set start value - label22 is hidden on form1 
    Label22.Text = "0" 

    'Start timers 
    Timer3.Start() 
    Timer4.Start() 


    'Start background worker 
    BackgroundWorker1.WorkerSupportsCancellation = True 
    BackgroundWorker1.WorkerReportsProgress = True 
    BackgroundWorker1.RunWorkerAsync() 

End Sub 

UPDATED！そして、残り時間を計算し、フォームの最後にTimer.Tickコード：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
    byteslastsecond = filetotalsofarcopied 
End Sub 


'Every tick of Timer4 calculates the time needed to complete the copy. 
    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick 
    Dim time As Long = Label22.Text 
    If percentageTotal = 0 Then 
     SetLabelText_ThreadSafe(Me.lblEstTimeLeft, "Estimated Time Left (All Files): Estimating...") 
    Else 
     Dim secondsRemaining As Double = (Overallsize - filetotalsofarcopied)/(filetotalsofarcopied - byteslastsecond) 
     Dim ts As TimeSpan = TimeSpan.FromSeconds(secondsRemaining) 

は、誰もがより現実的であることを残りの時間のための私のロジックを修正することはできますか？

Answer 1

コードに問題があると、ファイル全体がまだコピーされていなくても、ファイルサイズ全体でfiletotalsofarcopiedをインクリメントすることになります。データのブロックをコピーするときに、それを増やす必要があります。

ので、この削除：

'Calculate data being moved for eta to completion 
Dim filetotalbytes As Double = ChildFile.Length 
filetotalsofarcopied = filetotalbytes + filetotalsofarcopied 

をし、代わりにあなたのWhile -loopにそれを置く：

BytesRead = CopyStream.Read(Buffer, 0, Buffer.Length) 
NewStream.Write(Buffer, 0, BytesRead) 

filetotalsofarcopied += BytesRead 

percentageTotal = ((NewStream.Length + filetotalsofarcopied)/Overallsize * 100) 
percentageTotal = Decimal.Round(percentageTotal) 

これは正しく時間推定作業、およびパーセント表示の両方を行う必要があります。

---

ます。また、これを削除する必要があります。

'Do the copy 
ChildFile.CopyTo(Path.Combine(DestDir.FullName, ChildFile.Name), True) 

あなたは二回、ファイルをコピーすることで、時間とリソースの両方を無駄にしているので。

---

EDIT：

は実は、私は何かが欠けていることでミスを犯しました。

これ：

percentageTotal = ((NewStream.Length + filetotalsofarcopied)/Overallsize * 100) 

このようになります。書き込まれたバイトの電流量が既にBytesRead変数介しfiletotalsofarcopiedに追加されるので

percentageTotal = (filetotalsofarcopied/Overallsize * 100) 

。