Documentation by John Kelly	QFILEDIALOG

QFILEDIALOG Component

This is a new custom component in RAPIDQ2.INC. Creates an Open or Save Dialog box that is set by Mode property. The dialog box is sizeable and allows selection of multiple files. If you use it to save a file it will ask if you want to overwrite the existing file. There will be icons for quick links to the desktop, network locations, and myDocuments folder. See limitations.

QFileDialog Properties

Field	Type	R/W	Default

Caption	STRING	RW	"Open"
DefaultExt	STRING Default extension that will be automatically added to filename if user doesn't include it.	RW
FileName	STRING Returns file name with path information	RW
FileTitle	STRING Returns the file name without path information	R
Files()	Array of STRING If Mode = fdOpen,and MultiSelect = True,then the array has a list of selected files. Files(0) is the directory, Files(1) is the first file name without the path	RW	All Files\|.
Filter	STRING	RW	All Files\|.
FilterIndex	INTEGER 1st index is 0	RW	1
InitialDir	STRING	RW
Mode	INTEGER sets whether the dialog box will be an Open dialog or Save. Valid arguments: fdOpen = 0 fdSave = 1	RW	fdOpen
MultiSelect	INTEGER If set to true and Mode = fdOpen, then the user can select up to 256 files	RW	False
NoChangeDir	INTEGER If set to true the QFileDialog will not change the current directory	RW	False
Parent	LONG This is the parent form handle, can be null	RW	Null
SelCount	INTEGER Number of files the user selected when Multiselect = true	R	0
WarnIfOverWrite	INTEGER Flag for warning if you want to overwrite the file when mode is fdSave	RW	True

QFileDialog Methods

Method	Type	Description	Params

Execute	FUNCTION	Returns TRUE (user picked files) or FALSE (user picked Cancel)	0

QFileDialog Examples

$INCLUDE "RapidQ2.inc"
DIM i as integer
DIM fDialog as qfiledialog
fDialog.Caption = "QfileDialog test"
fDialog.FileName= "test.txt"
fDialog.InitialDir = "C:\RapidQ"
fDialog.MultiSelect = 1
IF fDialog.Execute THEN
  IF fDialog.MultiSelect THEN
     for i = 0 to fDialog.SelCount
        ShowMessage fDialog.Files(i)	'item #0 is the directory
     next i
  ELSE
     ShowMessage "file name & path =" + fDialog.FileName
     ShowMessage "file name no path =" + fDialog.FileTitle
  END IF
END IF

Prev Component

Contents

Next Component