Speichern im Unterordner
18.09.2002 18:28:22
Uwe
ich will ein Backup von einer Datei erstellen.
Das Programm soll erst prüfen ob das Verzeichnis da ist,
ggf. anlegen. Das Unterverzeichnis ist der Monat. Dann z.B unter
C:\sicherung\sep\Backup 19-09-02.xls
anlegen.
Das Makro läuft, speichert aber nicht im Unterorder.
Wo ist der Haken?
Gruss UWE
Sub DateiUnter_TagesdatumAbspeichern()
Dim strGeneralDir As String
Dim strMonthDir As String
Dim strPath$
strDate = Format(Now, "dd.mm.yy")
strGeneralDir = "c:\sicherung\"
'prüfen ob Verzeichnis vorhanden
On Error Resume Next
MkDir (strGeneralDir)
strMonthDir = Format(Now, "mmm")
strPath = strGeneralDir & strMonthDir
'prüfen ob Verzeichnis vorhanden
On Error Resume Next
MkDir (strPath)
tagesdatum = Application.Text(Now(), "mm-dd-yy hh-mm")
Sicherung = strPath & "Backup" & tagesdatum & ".XLS"
ActiveWorkbook.SaveCopyAs Sicherung
End Sub