XProfan

Def APIGetSaveFileName(1) ! "COMDLG32.DLL","GetSaveFileNameA","#","&"
Def APICommDlgExtendedError(0) ! "COMDLG32.DLL","CommDlgExtendedError","","&"
cls
Declare Name#,opensave#,filter#,filter$,vorgabe#,Sichpfad$
Dim Filter#,255
Dim Vorgabe#,255
Dim name#,255
filter$="Alle Dateien (*.zip)",chr$(0),"*.*",chr$(0)
Dim opensave#,80
Long opensave#,0 = 76                 Groesse der Struktur
word opensave#,4 = %hwnd              Aufrufendes Fenster
Long opensave#,12 = filter#           Vorgabefilter
Long opensave#,24 = 0                 0 wenn abgebrochen
Long opensave#,28 = vorgabe#          Vorgabestring
Long opensave#,32 = 256               MaxFile
Long opensave#,48 = Name#             Dialogbox-Überschrift
Long opensave#,52 = $00001002         Flags As Long
string filter#,0 =filter$
string vorgabe#,0 = "Verein-" + Date$(3) + ".zip"
String name#,0="Datensicherung"
ApiGetSaveFileName(opensave#)

If @Long(opensave#,24)=0

    @Messagebox("Die  Operation wurde abgebrochen!","Datensicherung abgebrochen!",64)

Else

    Sichpfad$ = string$(vorgabe#,0) Auslesen des Pfades
    print APICommDlgExtendedError()," <- Fehlerrückgabe der Dialogbox , bei 0 ist alles glattgegangen"

EndIf

WaitInput
Fin