Ich öffne nach dem Booten des Rechners eine pmdx-Datei in einem bestimmten Verzeichnis durch Doppelklick auf die Datei. In "Datei Eigenschaften" wird der richtige Ordner angezeigt.
Ich starte ein Basic-Skript, in dem die Anweisung "pfad = pm.Application.Options.DefaultFilePath" ausgeführt wird. Alles ist ok.
Ich schließe die Datei, wechsle in einen anderen Ordner und klicke auf eine andere pmdx-Datei. Auch hier wird in "Datei Eigenschaften" der richtige Ordner angezeigt. Ich starte mein Basic-Skript. Nun steht in pm.Application.Options.DefaultFilePath noch der Ordner aus dem vorherigen Aufruf.
Das einfache Basic-Skript:
Code: Alles auswählen
Sub defaultpfad
Dim pm as Object
Dim pfad as String
Set pm = CreateObject("PlanMaker.Application")
pm.Application.Visible = True
pfad = pm.Application.Options.DefaultFilePath
MsgBox pfad
Set pm = Nothing
End Sub
Windows 10, 64bit, Softmaker Professional 2018, (rev. 928.0314), 32bit