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.