FSaveFile

FSaveFile bildet einen SaveFile Dialog ab.

PropertyDatentyp(Read/Write)Hinweise
CaptionString (R/W) Titel des Dialog
FileNameString (R/W) DateiName incl. Path
FilterString (R/W) z.B. fopen.Filter = "All File|*.*|Text|*.txt|RTF|*.rtf"
FilterIndexInteger (W) Index des beim Start angezeigten Filter
InitialDirString (W) beim Start angezeigtes Verzeichnis
Sub/FunctionArgumenteHinweise
Function Execute (ByVal hParent As HWND) Bei Abbruch wird 0 (False) zurückgegeben andernfalls enthält FileName den Dateinamen mit Path
Beispiel :
    Dim as FSaveFile fsave
    Dim sFile As String
    
	sFile = ""
	fsave.Filter = "All File|*.*|Text|*.txt|RTF|*.rtf"	
	fsave.FilterIndex = 2    ' Stellt RTF ein'
	If fsave.Execute(form1.Handle) Then	
		sFile = fsave.FileName
        '..... Speichern ..... '	
	EndIf