Zu diesem Zweck kommt diesmal die API-Funktion GetSaveFileName zum Einsatz.
Die Funktion erwartet genauso wie die Funktion GetOpenFileName ein Parameter des Typs OPENFILENAME. Damit die Option Mit Schreibschütz öffnen ausgeblendet wird, fügen Sie den Flags die Konstante OFN_HIDEREADONLY hinzu. Diese Konstante können Sie wie folgt deklarieren
Public Const OFN_HIDEREADONLY = &H4
und folgendermaßen setzen:
Dim SaveDlg As OPENFILENAME
With SaveDlg ' andere SaveDlg Mitglieder setzen
Flags = OFN_HIDEREADONLY
End With
Die Funktion GetSaveFileName gibt einen Dateinamen zurück, die den Anwender aus dem Dialog ausgewählt hat:
Declare Function GetSaveFileName Lib _
"comdlg32.dll" Alias "GetSaveFileNameA" _
(pOpenfilename As OPENFILENAME) As Long