Frage : Abbruch beim Save File Requester

[Peter aus der Nordheide]

Hallo zusammen,

ich habe wieder einmal ein kleines Problemchen :

Code: Alles auswählen

If OpenWindow(0,0,0,800,600,#PB_Window_Systemmenu|#PB_Window_screencentered,"Frage Save File Requester")
EndIf                                             


StandardFile$="C:\Dokumente und Einstellungen\"    ;Peter\Eigene Dateien\PureBasic Ergebnisse\" 
                                                  

DateiName.s = StandardFile$ + "Bla Bla Bla" + ".txt"
Pattern$ = "Text (*.txt)|*.txt"
Pattern = 0    
File$ = SaveFileRequester("Bitte Datei zum Speichern auswählen", DateiName.s, Pattern$, Pattern)

;
;
; Wenn ich an dieser Stelle beim geöffneten SaveFileRequester auf "Abbrechen" drücke, 
;
; wird die Datei  "C:\Dokumente und Einstellungen\Bla Bla Bla.txt" 
;
; trotzdem gespeichert !!! ??? 
; 
; Wie kann ich den Abbruch "abfangen" und eine entsprechende "Behandlung" durchführen ? 
;
; Gibt der Save File Requester überhaupt "Werte" zurück ?
;
; Jetzt läuft das Ding bis zum Ende durch ! 
;
;

If OpenFile(0,DateiName) 

Ergebnis = IsFile(0)
   If Ergebnis <> 0
   ElseIf ErrorFileOperation
   EndIf 


WriteStringN("xxxxxxxxxxxxx")


CloseFile(0)
 
EndIf  
ErrorFileOperation: ; Hier muß später natürlich auch noch was rein. 
End

In der Hilfe und in den Beispielen habe ich dazu nichts gefunden.

Für Eure Hilfe schon mal vorab ein herzliches Dankeschön.

Gruß Peter

[Andre]

In der Hilfe nichts gefunden?

StandardFile$ = "C:\autoexec.bat" ; anfänglichen Pfad + Dateiname festlegen
; Mit dem nächsten String werden die Pattern (mit "|" als Trennzeichen) für anzuzeigende
; Dateitypen festgelegt:
; Erster: "Text (*.txt)" als Name, ".txt" und ".bat" als erlaubte Dateiendungen
; Zweiter: "PureBasic (*.pb)" als Name, ".pb" al erlaubte Dateiendung
; Dritter: "Alle Dateien (*.*) als Name, "*.*" als erlaubte Dateiendung, gültig für alle Dateien
Pattern$ = "Text (*.txt)|*.txt;*.bat|PureBasic (*.pb)|*.pb|Alle Dateien (*.*)|*.*"
Pattern = 0 ; wir verwenden den ersten von drei möglichen Pattern als Standard
File$ = SaveFileRequester("Bitte Datei zum Speichern auswählen", StandardFile$, Pattern$, Pattern)
If File$
MessageRequester("Information", "Sie haben folgende Datei ausgewählt:"+Chr(10)+File$, 0)
Else
MessageRequester("Information", "Der Requester wurde abgebrochen.", 0)
EndIf

[Peter aus der Nordheide]

Hallo André,

ok, großes Schämen ist angesagt, wo gibt es die gelbe Binde ?

Aber irgendwie war ich auf dem falschen Trip und hatte

If File$ = ... erwartet.

Trotzdem Danke

und gute Nacht

Peter