Sie wollen automatisch eine Sicherungsdatei anlegen, arbeiten aber mit Dateien aus verschiedenen Verzeichnissen (oder im Netzwerk)? Dann ist es sinnvoll, für die Sicherungsdateien das Temp-Verzeichnis des jeweiligen PCs zu benutzen. Ein Temp-Verzeichnis existiert auf jedem PC. Nun gibt es leider bei WINDOWS verschiedene Pfadangaben für das Temp-Verzeichnis. Mit folgendem kleinen Makro können Sie den Pfad ermitteln:

Declare Function GetTempPath Lib "kernel32" _

Alias "GetTempPathA" (ByVal nBufferLength As Long, _

ByVal lpBuffer As String) As Long



Sub TempVerzeichnis()

Dim strPfad As String

Dim lngErgebnis As Long

strPfad = String$(256, 0)

lngErgebnis = GetTempPath(256, strPfad)

MsgBox strPfad

End Sub

Die Variable strPfad können Sie nun verwenden, um mit der SaveAs-Methode die Sicherungsdatei im Temp-Pfad abzulegen.