Dateien kopieren mit Fortschritt und verbleibender Zeit

    • VB.NET

    Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von nikeee13.

      Dateien kopieren mit Fortschritt und verbleibender Zeit

      Hallo Comm,
      ich hatte gerade ein wenig langeweile und habe mich mal an ein kleines Programm gesetzt was Datein kopieren kann mit Fortschritt und verbleibender Zeit. Der Code ist eigentlich in C# geschrieben aber hier bekommt ihr ihn natürlich in VB, ist ja klar. Wer dennoch den C# Code haben möchte kann mich gerne per PN fragen ;).
      Die Form:
      2x Textbox (txtFrom und txtTo) - txtFrom für die Datei die Kopiert werden soll und txtTo whin sie kopiert werden soll
      1x ProgressBar (pbStatus) - Ist wohl klar wofür :)
      1x Label (lblSec) - Für die verbleibende Zeit. So jetzt der Code:
      1x Button (btnCopy) - Sollte klar sein

      VB.NET-Quellcode

      1. Imports System.IO
      3. Public Class Form1
      4. Public cancel As Boolean = False
      6. Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCopy.Click
      8. 'Kopieren
      10. If File.Exists(txtTo.Text) Then
      11. File.Delete(txtTo.Text)
      12. End If
      13. If File.Exists(txtFrom.Text) Then
      14. 'Streams
      15. Dim fromStream As FileStream = New FileStream(txtFrom.Text, FileMode.Open)
      16. Dim toStream As FileStream = New FileStream(txtTo.Text, FileMode.CreateNew)
      18. 'Variablen
      19. Dim total As Long = fromStream.Length
      20. Dim current As Long = 0
      21. Dim buffer(1024) As Byte
      22. Dim kbRemaining As Integer = 0
      23. Dim secRemaining As Integer = 0
      24. Dim kbs As Double = 0.0
      25. Dim eta As TimeSpan
      26. Dim startTime As DateTime
      28. 'Schleife
      29. cancel = False
      31. startTime = DateTime.Now
      32. Do
      33. 'Prüfen ob abgebrochen wurde
      34. If cancel Then
      35. fromStream.Close()
      36. toStream.Close()
      37. Exit Sub
      38. End If
      40. 'Bytes(lesen)
      41. Dim read As Integer = fromStream.Read(buffer, 0, buffer.Length)
      43. 'Bytes in die Datei schreiben
      44. toStream.Write(buffer, 0, read)
      46. 'current erhöhen
      47. current += read
      49. 'Prozente errechen
      50. Dim Prozent As Integer = current * 100 / total
      51. pbStatus.Value = Prozent
      53. 'Eta
      54. eta = startTime.Subtract(DateTime.Now)
      56. 'KB und Zeit verbleibend
      57. kbRemaining = (current - total) / 1024
      58. If eta.Seconds <> 0 Then
      59. 'KB pro Sekunde
      60. kbs = Math.Round((current / 1024) / (eta.Seconds), 2)
      61. secRemaining = kbRemaining / kbs
      62. End If
      63. lblSec.Text = "Verbleibend: " + secRemaining.ToString() + " Sekunden"
      65. Application.DoEvents()
      66. Loop While (total <> current)
      68. cancel = False
      70. fromStream.Close()
      71. toStream.Close()
      72. End If
      73. End Sub
      75. End Class

      Die Zeit berechnung ist ein bissl holperig, funktioniert aber :). Wenn ihr den Vorgang abbrechen wollt müsst ihr cancel auf True setzen.
      Ich habe das ganze jetzt nicht in einen Backgroundworker gemacht, wäre für eine größere Nutzung im Programm aber denkbar ;)

      progglord

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „progglord“ ()

      Hast du genügend Rechte mit dem Benutzer? (Denke ja)
      Versuch mal in den Projekteinstellungen (Projekt->"Projektname"-Einstellungen) auf "Windows-Einstellungen anzeigen" (Im Reiter "Anwendung"). Dort folgendes ändern:

      XML-Quellcode

      1. <requestedExecutionLevel level="asInvoker" uiAccess="false" />


      abändern in

      XML-Quellcode

      1. <requestedExecutionLevel level="highestAvailable" uiAccess="false" />


      Damit versucht das Programm mit den höhsten vorhandenen Rechten zu arbeiten (z.B. als Admin wenn du mit'm Adminkonto angemeldet bist)!


      So long, Darkshadow9

      Hi,

      es besteht auch die Möglichkeit, einen normalen Kopieren/Verschieben-Dialog über die Windows-API anzuzeigen. Ich habe dafür mal eine kleine Klasse geschrieben:

      Spoiler anzeigen

      VB.NET-Quellcode

      1. NotInheritable Class FileShellEx
      2. ' Könnte/sollte man in eine NativeMethods-Klasse auslagern
      3. <DllImport("shell32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
      4. Private Shared Function SHFileOperation(<MarshalAs(UnmanagedType.Struct)> ByRef lpFileOp As ShFileOp) As Integer
      5. End Function
      7. ' Könnte/sollte man in eine NativeTypes-Klasse auslagern
      8. <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)>
      9. Private Structure ShFileOp
      10. Dim hwnd As IntPtr
      11. Dim wFunc As FileOperation
      12. <MarshalAs(UnmanagedType.LPWStr)>
      13. Dim pFrom As String
      14. <MarshalAs(UnmanagedType.LPWStr)>
      15. Dim pTo As String
      16. Dim fFlags As Short
      17. <MarshalAs(UnmanagedType.Bool)>
      18. Dim fAnyOperationsAborted As Boolean
      19. Dim hNameMappings As IntPtr
      20. <MarshalAs(UnmanagedType.LPWStr)>
      21. Dim lpszProgressTitle As String
      22. End Structure
      24. Private Enum FileOperation As UInteger
      25. Move = 1
      26. Copy = 2
      27. Delete = 3
      28. Rename = 4
      29. End Enum
      31. Private Shared Function ShellOperation(ByVal operation As FileOperation, ByVal sourceFile As String, ByVal destinationFile As String, ByVal owner As IWin32Window) As Boolean
      32. Dim sf As New ShFileOp()
      34. sf.hwnd = If(owner Is Nothing, IntPtr.Zero, owner.Handle)
      35. sf.wFunc = operation
      36. sf.pFrom = sourceFile & Chr(0) & Chr(0)
      37. sf.pTo = destinationFile & Chr(0) & Chr(0)
      39. SHFileOperation(sf)
      41. Return Not sf.fAnyOperationsAborted
      42. End Function
      44. Public Shared Function Copy(ByVal sourceFile As String, ByVal destinationFile As String) As Boolean
      45. Return Copy(sourceFile, destinationFile, Nothing)
      46. End Function
      47. Public Shared Function Copy(ByVal sourceFile As String, ByVal destinationFile As String, ByVal owner As IWin32Window) As Boolean
      48. Return ShellOperation(FileOperation.Copy, sourceFile, destinationFile, ownerWindow)
      49. End Function
      51. Public Shared Function Move(ByVal sourceFile As String, ByVal destinationFile As String) As Boolean
      52. Return Move(sourceFile, destinationFile, Nothing)
      53. End Function
      54. Public Shared Function Move(ByVal sourceFile As String, ByVal destinationFile As String, ByVal owner As IWin32Window) As Boolean
      55. Return ShellOperation(FileOperation.Move, sourceFile, destinationFile, ownerWindow)
      56. End Function
      58. End Class


      Verwenden kann man sie so:

      VB.NET-Quellcode

      1. Dim wasAborted1 = FileShellEx.Copy("D:\test.txt", "C:\test2.txt") ' Die Funktionen geben zurück, ob der Vorgang
      2. Dim wasAborted2 = FileShellEx.Move("C:\test2.txt", "D:\test3.txt") ' abgebrochen wurde (Grund egal)


      Bietet den Vorteil, dass es der Standard-Widnowsdialog ist, welcher auf beim normalen Kopieren/Verschieben im Explorer verwendet wird.

      Edit:
      Übrigens meine ich mich zu erinnern, dass es auch in irgendwelchen .NET-Funktionen zum Kopieren/Verschieben einen Boolean-Parameter gibt, der angibt, ob der Windows-Dialog angezeigt werden soll. Ich konnte das aber gerade nicht finden, deshalb hab ich es hier mal schnell implementiert.
      Von meinem iPhone gesendet

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „nikeee13“ ()

      War glaub' ich Microsoft.VisualBasic.FileIO.FileSystem.CopyFile("src", "dest", FileIO.UIOption.AllDialogs, FileIO.UICancelOption.ThrowException). Bei deinem wird dann auch schon vorhandene Dateien reagiert oder?
      Wenn du's übrigens "dialogkonform" machen willst, kannst du ownerWindow als IWin32Window deklarieren und dann Handle abfragen. ;)

      Gruß
      ~blaze~

      @~blaze~: Ja, ich glaub das war es.

      ~blaze~ schrieb:

      Bei deinem wird dann auch schon vorhandene Dateien reagiert oder?
      Ja, und wenn zum Beispiel das Zielverzeichnis nich vorhanden ist ("Möchten Sie das Verzeichnis erstellen?"). Man kann das Verhalten auch sicherlich über die Flags des Structs abändern. Müsste man mal schauen, ich hab das jetzt nur so gemacht.

      ~blaze~ schrieb:

      Wenn du's übrigens "dialogkonform" machen willst, kannst du ownerWindow als IWin32Window deklarieren und dann Handle abfragen. ;)
      Daran habe ich so "from Scratch" nicht dran gedacht. Habe meinen post editiert.

      Die 2 0-Bytes am Ende stören mich noch. Man kann das sicherlich auch über ein Marshalling-Attribut "ausbessern", sodass man die nicht mehr braucht. Ich habe es jetzt aber auch nicht ohne die versucht.
      Von meinem iPhone gesendet

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nikeee13“ ()

      Spoiler anzeigen

      VB.NET-Quellcode

      1. NotInheritable Class FileShellEx
      2. ' Könnte/sollte man in eine NativeMethods-Klasse auslagern
      3. <DllImport("shell32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
      4. Private Shared Function SHFileOperation(<MarshalAs(UnmanagedType.Struct)> ByRef lpFileOp As ShFileOp) As Integer
      5. End Function
      7. ' Könnte/sollte man in eine NativeTypes-Klasse auslagern
      8. <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)>
      9. Private Structure ShFileOp
      10. Public hwnd As IntPtr
      11. Public wFunc As FileOperation
      12. <MarshalAs(UnmanagedType.ByValArray)>
      13. Public pFrom() As String
      14. <MarshalAs(UnmanagedType.ByValArray)>
      15. Public pTo() As String
      16. Public fFlags As Short
      17. <MarshalAs(UnmanagedType.Bool)>
      18. Public fAnyOperationsAborted As Boolean
      19. Public hNameMappings As IntPtr
      20. <MarshalAs(UnmanagedType.LPWStr)>
      21. Public lpszProgressTitle As String
      22. End Structure
      24. Private Enum FileOperation As UInteger
      25. Move = 1
      26. Copy = 2
      27. Delete = 3
      28. Rename = 4
      29. End Enum
      31. Private Shared Function ShellOperation(ByVal operation As FileOperation, ByVal sourceFile() As String, ByVal destinationFile() As String, ByVal owner As IWin32Window) As Boolean
      32. Dim sf As New ShFileOp()
      34. sf.hwnd = If(owner Is Nothing, IntPtr.Zero, owner.Handle)
      35. sf.wFunc = operation
      36. sf.pFrom = sourceFile
      37. sf.pTo = destinationFile
      39. SHFileOperation(sf)
      41. Return Not sf.fAnyOperationsAborted
      42. End Function
      44. Public Shared Function Copy(ByVal sourceFile As String, ByVal destinationFile As String) As Boolean
      45. Return Copy(sourceFile, destinationFile, Nothing)
      46. End Function
      48. Public Shared Function Copy(ByVal sourceFile As String, ByVal destinationFile As String, ByVal owner As IWin32Window) As Boolean
      49. Return ShellOperation(FileOperation.Copy, New String() {sourceFile}, New String() {destinationFile}, owner)
      50. End Function
      52. Public Shared Function Move(ByVal sourceFile As String, ByVal destinationFile As String) As Boolean
      53. Return Move(sourceFile, destinationFile, Nothing)
      54. End Function
      56. Public Shared Function Move(ByVal sourceFile As String, ByVal destinationFile As String, ByVal owner As IWin32Window) As Boolean
      57. Return ShellOperation(FileOperation.Move, New String() {sourceFile}, New String() {destinationFile}, owner)
      58. End Function
      59. End Class

      so könnte es gehen. Hab' auch mal die Fehler, die dann durch das IWin32Window entstanden sind, ausgebessert.
      Die Nullterminierung gibt halt das String-Ende an und bei so einem String-Array folgt halt auf den letzten String dann noch einmal eine Null. Da's Unicode ist, muss die halt 2 Bytes haben. Ist aber wahrscheinlich nur eine Art, das String-Array abzuspeichern, also nicht immer so.

      Gruß
      ~blaze~

      ~blaze~ schrieb:

      Hab' auch mal die Fehler, die dann durch das IWin32Window entstanden sind, ausgebessert.
      Ups, das ist ja peinlich. Nächstes mal sollte ich es wenigstens mal in VS packen, bevor ich es so abschicke. :whistling:

      Laut der Dokumentation des Structs sind die Strings vom Typ PCZZTSTR. Das P steht wohl wie überlicher weise für "Pointer". Der Rest steht hier: peterbudai.eu/blog/2012/07/18/windows_api_at_its_best.html
      Ich habe gerade im Intenet auch nichts anders gefunden als Leute, die einfach ein oder 2 0-Bytes dranhängen, um zu terminieren. Ich hab deine Version mit ByValArray noch nicht probiert, werde ich jetzt mal machen.
      Von meinem iPhone gesendet