das nachfolgende (verkürzt wiedergegebene) Makro verwende ich, um neue Dateien anzulegen. Der Nachteil ist, dass unter demselben Namen bestehende Dateien überschrieben werden.
Wie kann ich das Makro dahingehend ergänzen, dass es feststellt, ob bereits eine Datei unter diesem Namen besteht und mich ggf auffordert, den Vorgang abzubrechen ?
Mit freundlchen Grüßen
Eckhard
Sub DateiAnlegen()
Dim Dateiname
Dim Pfad As String
Dateiname = InputBox
("Bitte Bezeichnung der Akte eingeben!", "Akte anlegen", "")
If Dateiname <> "" Then
Pfad = "LW:\Ordner\"
FileCopy Pfad & "muster.doc", Pfad & Dateiname & ".doc"
End If
End Sub