Wie kann ich eine beliebige Datei von einer Datei in eine Datei schrittweise umkopieren. Dabei soll die Möglichkeit bestehen, Teilinformationen gesondert weiterzuverarbeiten oder Sonderfunktionen (z.B. eigene Fortschrittsanzeigen, Ver-/Entschlüsselung) in den Bearbeitungsablauf einzubinden?
Im nachfolgenden Beispielcode, kopieren des File in 8KB-Häppchen Für das UI: Am besten Backgroundworker oder alternativ PInvoke
BTW: Nachfolgender Code ohne Fehlerbehandlung!
Habe gerade eben das vb in den Themen gesehen. Obwohl VB nicht meine favorisierte Sprache ist.
Imports System.IO
Module Module1 Sub Main() Dim oldFileName As String Dim newFileName As String Dim hasRead As Integer Dim fileBuffer(8192) As Byte Dim fsIn As FileStream Dim fsOut As FileStream
oldFileName = "G:\TEST.TXT" newFileName = "G:\TEST_NEU.TXT" hasRead = 0 fsIn = New FileStream(oldFileName, FileMode.Open, FileAccess.Read) fsOut = New FileStream(newFileName, FileMode.CreateNew, FileAccess.Write) Do hasRead = fsIn.Read(fileBuffer, 0, fileBuffer.Length) ' hier was mit dem Puffer anstellen fsOut.Write(fileBuffer, 0, hasRead) Loop While hasRead = fileBuffer.Length End Sub