Sicherungskopie ausführen, Verzeichnis abfragen

Hallo,
ich hab ein kleines Problem. ;-) Ich habe ein Makro, das vor dem Schließen der Arbeitsmappe noch eine Kopie in einem Ornder (\backup) anlegen soll. Das sieht wie folgt aus:
Datei = ThisWorkbook.Name
Pfad = ThisWorkbook.Path
On Error Resume Next
Kill Pfad & "\backup\" & "Datei"
ActiveWorkbook.SaveCopyAs Filename:=Pfad & "\backup\" & Datei
Windows(Datei).Close
Funktioniert soweit auch wunderbar. ALLERDINGS, wenn ich die Datei in ein anderes Verzeichnis kopiere, in dem kein Unterverzeichnis (\backup) existiert, wird die Kopie (natürlich) nicht gespeichert.
Wie kann ich prüfen, ob das Unterverzeichnis \backup existiert? Und falls es nicht existiert, wie kann ich es aus dem Makro heraus anlegen?
Ich bin für jede Hilfe dankbar,
Ralf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Kopie() Datei = ThisWorkbook.Name Pfad = ThisWorkbook.Path MakeSureDirectoryPathExists Pfad & "\backup\" If Dir(Pfad & "\backup\" & Datei) <> "" Then Kill Pfad & "\backup\" & Datei ActiveWorkbook.SaveCopyAs Filename:=Pfad & "\backup\" & Datei Windows(Datei).Close End Sub

Hallo Matthias,
danke für deinen Hinweis. Ich hab das Makro wie folgt eingesetzt:
Option Explicit
Declare


Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal pfad As String) As Long

Sub safe_file()
datei = ThisWorkbook.Name
pfad = ThisWorkbook.Path
On Error Resume Next
MakeSureDirectoryPathExists pfad & "\backup\"
If Dir(pfad & "\backup\" & datei) <> "" Then Kill pfad & "\backup\" & datei
ActiveWorkbook.SaveCopyAs Filename:=pfad & "\backup\" & datei
Windows(datei).Close
End Sub


Leider funktionert das noch nicht so ganz. ;-) Wenn ich es ausführe, kommt du Fehlermeldung: "Fehler beim Kompilieren: Variable nicht definiert" und "datei =" wird markiert. Ich habe probiert "datei" und "pfad" als String zu definieren, das half aber auch nichts?!

Weißt du zufällig warum? ;-)

Grüße, 

Ralf

Sub safe_file() Dim datei As String, pfad As String datei = ThisWorkbook.Name pfad = ThisWorkbook.Path On Error Resume Next MakeSureDirectoryPathExists pfad & "\backup\" If Dir(pfad & "\backup\" & datei) <> "" Then Kill pfad & "\backup\" & datei ActiveWorkbook.SaveCopyAs Filename:=pfad & "\backup\" & datei Windows(datei).Close End Sub

Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal pfad As String) As Long Sub safe_file() Dim datei As String, pfad As String datei = ThisWorkbook.Name pfad = ThisWorkbook.Path On Error Resume Next MakeSureDirectoryPathExists pfad & "\backup\" Kill pfad & "\backup\" & "Datei" ActiveWorkbook.SaveCopyAs Filename:=pfad & "\backup\" & datei Windows(datei).Close End Sub

Beliebteste Forumthreads (12 Monate)

Sicherungskopie ausführen, Verzeichnis abfragen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread