Hallo Hermie,
eine gesperrte Datei kann man nicht kopieren, das geht auch mit dem obigen Code nicht,
denn dahinter steckt ebenso ein FileStream - in Verbindung mit einem BinaryReader/Writer (für Randomdateien)
bzw. StringReader/Writer (für Textdateien).
Das Gesamte API in dem Bereich existiert einzig und allein zur Kompatbilität mit VB 6 Dateien.
Ob - hier lesender - Zugriff auf eine Datei gewährt wird, hängt vielmehr davon ab andere Programme
die Datei eröffnet haben und wird durch die
FileShare-Enumeration festgelegt.
Und die wiederum findet man auch im Windows API bei
OpenFile/CreateFile (was am Ende aufgerufen wird).
Wenn ein Programm kein kooperatives Lesen ermöglicht gibt es auch kein darum herummogeln.
Zum selber Probieren einmal ein CopyFile (IMHO wie gesagt relativ sinnfrei, File.Copy tuts auch)
mit einer kleinen Testroutine die Dateien von einem Verzeichnis in ein anderes kopiert:
Public Shared Sub TestCopyFile()
Dim watch = Stopwatch.StartNew()
For Each sourcefileName In Directory.EnumerateFiles("C:\TEMP")
Dim destinationFileName = Path.Combine("E:\TEMP", Path.GetFileName(sourcefileName))
Try
' Die einfachere Variante
'File.Copy(sourcefileName, destinationFileName, True)
' Wenn man das ganze kompliziert mag (viel bringen tut es kaum)
CopyFile(sourcefileName, destinationFileName)
Console.WriteLine("CopyFile {0} => {1}", sourcefileName, destinationFileName)
Catch ex As Exception
Console.WriteLine("CopyFile Fehler: {0}: {1}", sourcefileName, ex.Message)
End Try
Next
watch.Stop()
Console.WriteLine("TestCopyFile: {0} ms", watch.ElapsedMilliseconds)
End Sub
Public Shared Sub CopyFile(ByVal sourceFileName As String, ByVal destinationFileName As String)
Const BufferSize = 64 * 1024 ' 64 KB
If String.IsNullOrEmpty(sourceFileName) Then
Throw New ArgumentNullException("sourceFileName")
End If
If String.IsNullOrEmpty(destinationFileName) Then
Throw New ArgumentNullException("destinationFileName")
End If
Using sourceStream As New FileStream(sourceFileName, FileMode.Open, FileAccess.Read, FileShare.Read, BufferSize, FileOptions.SequentialScan)
Dim destinationDirectory = Path.GetDirectoryName(destinationFileName)
Directory.CreateDirectory(destinationDirectory)
Using destinationStream As New FileStream(destinationFileName, FileMode.Create, FileAccess.Write, FileShare.None, BufferSize)
sourceStream.CopyTo(destinationStream, BufferSize)
End Using
End Using
End Sub
Will man sicherstellen, dass die Datei geschrieben wurde, wäre noch ein FileOptions.WriteThrough
für den Ausgabestream zu empfehlen, was dann aber nicht mehr vergleichbar (und langsamer) wäre.
Für Dich evtl. noch interessant, weil neu zu VB6 ist der Einsatz der
Using-Anweisung,
die sicherstellt, dass die Streams bei Fehlern (Ausnahmen) geschlossen werden.
Die eigentliche Ausnahem wird dann, weil nicht behandelt, an den Aufrufer weitergereicht,
wofür in der Testroutine die
Try Catch-Finally-Anweisung verwendet wird.
Gruß Elmar
