Datei Copy auch wenn die Datei geöffnet ist

22/06/2009 - 16:39 von Norbert Lutz | Report spam
Hallo,

wie kann ich eine Datei kopieren, die zur Zeit verwendet wird?


Norbert
 

Lesen sie die antworten

#1 Ulrich Höltje
23/06/2009 - 05:55 | Warnen spam
Norbert Lutz schrieb:
Hallo,

wie kann ich eine Datei kopieren, die zur Zeit verwendet wird?


Norbert





Hallo, Norbert

Versuchs mal hiermit:

Public Sub CopyFile(ByVal SourceFile As String, ByVal DestFile As
String, ByVal overwrite As Boolean)

If Not IO.File.Exists(SourceFile) Then
Throw New IO.FileNotFoundException("Datei nicht gefunden.",
SourceFile)
End If

If IO.File.Exists(DestFile) AndAlso Not overwrite Then Return

Dim fs_source As IO.FileStream = Nothing
Dim fs_dest As IO.FileStream = Nothing
Dim Buff(32768 - 1) As Byte

Try

fs_source = New IO.FileStream(SourceFile, IO.FileMode.Open,
IO.FileAccess.Read)
fs_source.Seek(0, IO.SeekOrigin.Begin)

fs_dest = New IO.FileStream(DestFile, IO.FileMode.OpenOrCreate,
IO.FileAccess.Write)
fs_dest.Seek(0, IO.SeekOrigin.Begin)

Dim read As Integer = fs_source.Read(Buff, 0, Buff.Length)
Do While read > 0
fs_dest.Write(Buff, 0, read)
read = fs_source.Read(Buff, 0, Buff.Length)
Loop

Catch ioEx As IO.IOException
Catch ex As Exception

Finally
If Not fs_source Is Nothing Then fs_source.Close()
If Not fs_dest Is Nothing Then fs_dest.Flush() : fs_dest.Close()
End Try

End Sub

Gruß, Ulrich

Ähnliche fragen