Dim fiSource As New IO.FileInfo("QuellDatei")
        Dim fiTarget As New IO.FileInfo("ZielDatei")
 
        If fiSource.Exists Then
            If Not fiTarget.Directory.Exists Then
                Try
                    fiTarget.Directory.Create()
                Catch ex As Exception
                    Debug.WriteLine("Zielverzeichnis konnte nicht erstellt" & _
                      "werden.")
                End Try
            End If
 
            Try
                fiSource.CopyTo(fiTarget.FullName)
            Catch ex As Exception
                Debug.WriteLine("Fehler beim Kopieren aufgetreten.")
            End Try
        Else
            Debug.WriteLine("QuellDatei nicht vorhanden.")
        End If