CHGVAR

VAR(&CMD) VALUE('SELECTFILE')

CHGVAR

VAR(&PARM1) VALUE('
[Pattern="Fichiers recherchés"] 

[; File="Nom du Fichier recherché" ]

[; Title="Titre de la fenêtre" ]
[; Directory="Répertoire initial" ]

[; PathMustExist ]
[; FileMustExist ]
[; CreatePrompt ]
[; OverWritePrompt ]
[; NameOnly ]
[; DftExt="Extension par défaut" ]
[; Save ]
[; Folders ]
[; Copy ]

')

CHGVAR

VAR(&PARM2) VALUE(' ')

CALL

PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +

&PARM2 &RESULT)

Paramètres

Parm1

Pattern donne la liste des catégories de fichiers recherchés.

Chaque catégorie est représentée par un texte de description, suivi du caractère "=", et suivi de la liste des types séparés par un point virgule.
Les catégories sont séparées entre elles par un double point virgule.

Exemple :
Pattern="Fichiers textes=*.doc ;*.dot ;*.txt ;;Tous=*.*"

Si Pattern n’est pas précisé, se sont les fichiers Word qui sont recherchés.

File permet de donner un nom initial recherché.

Title change le titre de la fenêtre de recherche.

Directory donne le répertoire initial de la recherche.

PathMustExist indique que le répertoire doit exister.

FileMustExist indique que le fichier doit exister.

CreatePrompt indique que l’on veut une confirmation pour la création du fichier si celui ci n’existe pas.

OverWritePrompt indique que l’on veut une confirmation du remplacement du fichier si celui existe déjà.

NameOnly indique que l’on ne veut que le nom du fichier en retour, sans le chemin complet.

DftExt permet de donner une extension par défaut, qui sera ajouté au nom choisi, si l’utilisateur n’a pas entré d’extension.

Save permet de choisir la boîte de dialogue de Windows dédiée à la recherche d’un fichier à sauver.

Folders indique que l’on veut parcourir les répertoires seulement.

Copy entraînera la copie du chemin et du nom du fichier sélectionné, vers le presse papier. L'utilisateur pourra les coller dans une autre application

CHGVAR

VAR(&CMD) VALUE('SELECTFILE')

CHGVAR

VAR(&PARM1) VALUE(' +
Pattern=”Text file=*.doc;*.dot;*.txt;;Excel files=*.xls;;All files=*.*”; +
Directory=”C:\My Documents”;FileMustExist')

CHGVAR

VAR(&PARM2) VALUE(' ')

CALL

PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)