PC SOFT

ONLINE HELP
 WINDEVWEBDEV AND WINDEV MOBILE

Home | Sign in | English EN
This content has been translated automatically. Click here to view the French version.
  • Example of values that can be taken by
  • Complete interruption of fListFile
  • Partial interruption of fListFile
WINDEV
WindowsLinuxUniversal Windows 10 AppJavaReports and QueriesUser code (UMC)
WEBDEV
WindowsLinuxPHPWEBDEV - Browser code
WINDEV Mobile
AndroidAndroid Widget iPhone/iPadIOS WidgetApple WatchMac CatalystUniversal Windows 10 App
Others
Stored procedures
WLanguage procedure called by fListFile
Procedure WLanguage (also called "Callback") called by the fListFile function for each file found. This procedure can be a local, global or internal procedure.
Example
// Connaître le nombre de fichiers de type "*.DOC" en lecture seule
// dans un répertoire.
 
// Déclaration et initialisation des variables
 
// Nombre de fichiers répondant aux critères
NbFichierLS is int
// Nombre de fichiers de type "*.DOC"
NbFichierDoc is int
NbFichierDoc = 0
CritèreRecherche is string
 
// Sélection du répertoire dans lequel les fichiers vont être listés
CritèreRecherche = "C:\MesDocuments\"
 
// Ajout du critère "\*.doc" à la fin du nom du répertoire sélectionné
CritèreRecherche = CritèreRecherche + "\*.doc"
 
// Liste des fichiers de type "*.DOC"
NbFichierDoc = fListFile(CritèreRecherche, "AttributFichier", &NbFichierLS)
 
// Affichage du nombre de fichiers répondant aux critères
Info("Il y a" + NbFichierLS + "fichiers en lecture seule sur" + ...
NbFichierDoc + "fichiers listés")
 
// ---------------------------------------------------
 
// Procédure locale appelée par fListeFichier
PROCÉDURE AttributFichier(Repertoire, Nom, Change, NbFichierDoc)
// Déclaration de la variable
NbFichierLS is int
// Fichiers en lecture seule?
IF Position(fAttribute(Repertoire + Nom), "R") <> 0 THEN
Transfer(&NbFichierLS, NbFichierDoc, 4)
NbFichierLS++
Transfer(NbFichierDoc, &NbFichierLS, 4)
// Affichage du nom du fichier dans la liste "LISTE_ListeFichier"
ListAdd(LISTE_ListeFichier, Repertoire + Nom)
END
RETURN True
Syntax
<Result> = fListFile_Callback(<Path> , <File name> [, <Change> [, <Procedure pointer>]])
<Result>: Boolean
  • True to continue browsing the files,
  • False to stop browsing the files.
<Path>: Character string
Path of file used (it always ends with a "\" character ; for example, "C:\WINDEV\").
<File name>: Character string
Name of file found.
<Change>: Optional Integer constant
Used to know if there was a directory change. The possible values are:
flFirstFileThe file is the first one listed in the <Path>.
flChangeDirThe file is the first one listed in a subdirectory of <Path> (this means that there was a change of directory).
flFileAll other cases.
<Procedure pointer>: Optional integer
Value passed in the <Pointer> of fListFile. If <Pointer> is not specified in fListFile, <Procedure pointer> is set to 0.
Remarks

Example of values that can be taken by <Change>

The following are the different values that can be taken by <Change> when browsing the files listed by fListFile:
Current file<Change>
Dir\File 1flFirstFile
Dir\File nflFile
Dir\SubDir 1\File 1flChangeDir
Dir\SubDir 1\File mflFile
Dir\SubDir 2\File 1flChangeDir
Dir\SubDir 2\File xflFile

Complete interruption of fListFile

As long as there are files to browse, fListFile cannot be interrupted.
To force the interruption of the complete browse, use the following line in the procedure:
RESULT False
For example, the "FindProduct" procedure is automatically called by fListFile:
PROCÉDURE RechProduit(Chemin, NomFichier)
...
// Arrêt demandé?
Multitask(-1)
IF KeyPressed(kpEscape) = True THEN
Info("La recherche va être arrêtée")
RETURN False
END
...
RETURN True
In this case, fListFile returns the number of files browsed until the call to "RESULT False".
In any other case (to continue browsing), the procedure MUST return True.
An error is generated if the procedure returns no value (neither True nor False).
PHP No error is generated if the procedure returns no value.

Partial interruption of fListFile

To prevent the procedure from running for a given file, use the following line:
RETURN True
For example, the "FindProduct" procedure is automatically called by fListFile:
PROCÉDURE RechProduit(Chemin, NomFichier)
...
// Fichier à ne pas prendre en compte
IF NomFichier = "MauvaisFichier.XLS" THEN
RETURN True
END
...
RETURN True
In this case, fListFile automatically calls the procedure for the next file found.
An error is generated if the procedure returns no value (neither True nor False).
PHP No error is generated if the procedure returns no value.
Business / UI classification: Neutral code
Component: wd270std.dll
Minimum version required
  • Version 25
This page is also available for…
Comments
Click [Add] to post a comment