Attribute VB_Name = "Modul3"
Option Explicit
'Dateikopieren mittels VBA
' Quelldatei muß vorhanden sien
Sub VBA_Copy()
Dim Zeile As String
Dim DName, DName_new, Path
Dim kz_vorh As String
'
DName = InputBox("Quell Dateiname eingeben(mit Pfad)", "Dateiname")
kz_vorh = "ok"
If Dir(DName) = "" Then
    kz_vorh = ""
End If
'nur erzeugen wenn Speichermöglichkeit
If kz_vorh = "ok" Then
'
    DName_new = InputBox("Ziel Dateiname eingeben(mit Pfad)", "Dateiname")
    Open DName_new For Output As #1
    Open DName For Input As #2
    Do While Not EOF(2)
        Input #2, Zeile
        Print #1, Zeile
        'MsgBox zeile
    Loop
    Close #1
    Close #2
End If
MsgBox DName & " kopiert nach " & DName_new
End Sub