FOpenFile

FOpenFile bildet einen LoadFile 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 FOpenFile fopen
    Dim sFile As String
    
	sFile = ""
	fopen.Filter = "All File|*.*|Text|*.txt|RTF|*.rtf"	
	fopen.FilterIndex = 2    ' Stellt RTF ein'
	If fopen.Execute(form1.Handle) Then	
		sFile = fopen.FileName
        '..... Öffnen ..... '	
	EndIf