Speichern Unter Laufwerk und Unterordner festlegen

[Ibanez]

Hallo ich habe eine MsgBox geschrieben, die beim Öffnen verhindern den Hinweis bringt, dass man erstmal eine Kopie spiechern soll, bevor man die Datei weiter bearbeitet.

Da meherer Leute die Datei benutzen soll damit zum einen verhindert werden, dass die Originaldatei überschrieben wird. Außerdem sollen die Kollegen die Datei nach Gusto umbennen. Einzig das Laufwerk ist seitens unseres Vorgesetzen vorgegeben.

Meine Frage: ist es möglich ein Makro so zu Programmieren, dass man einen Pfad (zum Beispiel G:/Ablage/)angeben kann, wohin die Datei gespeichert werden MUSS?

Hier meine MsgBox

Code: Alles auswählen

Sub Information
msg = msgbox("Bitte Speichern Sie zunächst eine Kopie des Dokuments", 48, "Information")         
if msg = 1 then
Speichernunter
end if
End sub

Sub Speichernunter
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, Array())
end sub