FSaveFile bildet einen SaveFile Dialog ab.
Property | Datentyp(Read/Write) | Hinweise |
Caption | String (R/W) | Titel des Dialog |
FileName | String (R/W) | DateiName incl. Path |
Filter | String (R/W) | z.B. fopen.Filter = "All File|*.*|Text|*.txt|RTF|*.rtf" |
FilterIndex | Integer (W) | Index des beim Start angezeigten Filter |
InitialDir | String (W) | beim Start angezeigtes Verzeichnis |
Sub/Function | Argumente | Hinweise |
Function Execute | (ByVal hParent As HWND) | Bei Abbruch wird 0 (False) zurückgegeben andernfalls enthält FileName den Dateinamen mit Path |
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