aktives Workbook in vorgegebenen Ordner speichern
21.02.2008 08:23:10
Fred
Ich lege über einen Button einen neuen Ordner an, und möchte jetzt genau in diesem Ordner das aktive Workbook als Sicherheitskopie speichern. Wie müsste ich den unten stehenden Code verändern, damit es funktioniert und wenn dieser Ordner schon existiert soll dieser ohne nachfrage überschrieben werden.
Grüße Fred
Sub Ordner_anlegen()
Dim fs As Object, MyNewWb As Variant
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("C:\Urlaubsplan alt") = False Then
On Error Resume Next
fs.CreateFolder ("C:\Urlaubsplan alt" & Date)
On Error GoTo 0
End If
End Sub