|
|
|
|
|
|
|
|
- Ejemplo de valores que pueden ser tomados por el parámetro
- Interrupción completa de la función fListDirectory
Procedimiento WLanguage llamado por la función fListDirectory Procedimiento ("Callback") llamado por la función fListDirectory por cada archivo encontrado. Este procedimiento puede ser local, global o interno. // Declare and initialize the variables
// Number of directories matching the criteria
NbDirectoryLS is int
NbDirectory is int = 0
SearchCriterion is string
// Select the directory in which the directories will be listed
SearchCriterion = fSelectDir("", "Select a directory", ...
"Searching for hidden directories")
// List of directories
NbDirectoryLS = fListDirectory("C:\MyDocuments", "DirectoryAttribute", ...
&NbDirectoryLS)
// Display the number of files matching the criteria
Info("There are " + NbDirectoryLS + " hidden directories on " + ...
NbDirectory + " listed directories")
// --------------------------------------------------------
// Local procedure called by fListDirectory
PROCEDURE DirectoryAttribute(Directory, Name, Change, NbDirectory)
// Declare the variable
NbDirectoryLS is int
// Hidden directory?
IF Position(fAttribute(Directory + Name), "H") <> 0 THEN
Transfer(&NbDirectoryLS, NbDirectory, 4)
NbDirectoryLS ++
Transfer(NbDirectory, &NbDirectoryLS, 4)
// Display the name of the directory in the "LIST_FileList" list
ListAdd(LIST_FileList, Directory + Name)
END
RETURN True
Sintaxis
<Result> = fListDirectory_Callback(<Path> , <Directory name> [, <Change> [, <Procedure pointer>]])
<Result>: booleano - True para seguir navegando por los archivos,
- False para dejar de navegar por los archivos.
<Path>: Cadena de caracteres Ruta del directorio (siempre termina con "\"; por ejemplo, "C:\MisArchivos\"). <Directory name>: Cadena de caracteres Nombre del directorio encontrado. <Change>: Constante opcional de tipo Integer Permite saber si se cambió de directorio. Los valores posibles son: | | | flChangeDir | El directorio es el primero que aparece en un subdirectorio de <Ruta> (esto significa que ha habido un cambio de directorio). | | flDirectory | Todos los demás casos. |
<Procedure pointer>: Entero opcional Valor pasado en el parámetro <Puntero> de la función fListDirectory. Si no se especifica el parámetro <Puntero> en la función fListDirectory, el valor de <Puntero de procedimiento> es 0.Para obtener el valor del <Puntero de procedimiento>, asigne su valor al <Puntero> en el procedimiento con la función Transferencia (Ver ejemplo detallado en la parte superior de la página). Observaciones Ejemplo de valores que pueden ser tomados por el parámetro <Cambiar> A continuación se detallan los diferentes valores que puede tomar <Cambio> al navegar por los archivos listados por fListDirectory: | | | Directorio actual | <Cambiar> |
|---|
| Dir\Directorio 1 | flDirectory | | Dir\Directorio n | flDirectory | | Dir\SubDir 1\Directorio 1 | flChangeDir | | Dir\SubDir 1\Directorio m | flDirectory | | Dir\SubDir 2\Directorio 1 | flChangeDir | | Sub\SubDir 2\Directorio x | flDirectory |
Interrupción completa de la función fListDirectory Mientras haya archivos que navegar, fListDirectory no puede ser interrumpida. Para forzar la interrupción completa de la navegación, utilice la siguiente línea en el procedimiento: En este caso, la función fListDirectory devuelve el número de directorios encontrados hasta que se llame a "RESULT False". En los demás casos (para continuar la navegación), el procedimiento <Nombre de procedimiento> DEBE devolver True. Si el procedimiento <Nombre de procedimiento> no devuelve ningún valor (ni True, ni False), se genera un error.
Esta página también está disponible para…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|