|
|
|
|
|
|
|
|
|
|
- Ejemplo de valores que pueden ser tomados por el parámetro
- Valores devueltos por el procedimiento
Procedimiento WLanguage llamado por fCopyFile Procedimiento WLanguage ("callback") llamado por fCopyFile para cada archivo copiado. Este procedimiento se utiliza para obtener la ruta del archivo que se va a copiar y la ruta de destino asociada. Por ejemplo, este procedimiento puede utilizarse para filtrar los archivos que deben copiarse. Este procedimiento puede ser local, global o interno.
ResCopie = fCopyFile("C:\MesImages\*.*", "D:\MesFichiers\", fCopieFichier_Callback)
INTERNAL PROCEDURE fCopieFichier_Callback(ACopier, Destination)
IF fExtractPath(ACopier, fExtension) = ".xlsx" THEN
RETURN fcIgnore
ELSE
LIB_Fichier_EnCours = ACopier
RETURN fcCopy
END
END
Sintaxis
<Result> = fCopyFile_Callback(<File to copy> , <Destination file> [, <Change> [, <Procedure pointer>]])
<Result>: Constante de tipo Integer Copia del elemento actual: | | | fcCopy | Permite continuar la copia. | | fcIgnore | Permite ignorar la copia de un archivo. | | fcStop | Permite detener la copia de forma permanente. |
<File to copy>: Cadena de caracteres Ruta y nombre del archivo a copiar. <Destination file>: Cadena de caracteres Ruta y nombre del archivo de destino. <Change>: Constante opcional de tipo Integer Permite saber si se cambió de directorio. Los valores posibles son los siguientes: | | | flChangeDir | El archivo es el primero que aparece en un subdirectorio de <File to copy> (esto significa que se ha modificado el directorio). | | flFile | Todos los demás casos. | | flFirstFile | El archivo es el primero que aparece en el directorio de <File to copy>. |
<Procedure pointer>: Entero opcional Valor pasado en el parámetro <Puntero> de la función fCopyFile. Si no se especifica el parámetro <Puntero> en la función fCopyFile, el valor de <Puntero de procedimiento> es 0. Observaciones Ejemplo de valores que pueden ser tomados por el parámetro <Cambiar> A continuación se indican los distintos valores que puede tomar <Change> al examinar los archivos copiados por fCopyFile: | | | Archivo actual | <Cambiar> |
|---|
| Dir\Archivo 1 | flFirstFile | | Dir\Archivo n | flFile | | Dir\SubDir 1\Archivo 1 | flChangeDir | | Dir\SubDir 1\Archivo m | flFile | | Dir\SubDir 2\Archivo 1 | flChangeDir | | Dir\SubDir 2\Archivo x | flFile |
Valores devueltos por el procedimiento El procedimiento llamado por fCopyFile debe devolver uno de los siguientes valores: | | | fcCopy | Permite continuar la copia. | | fcIgnore | Permite ignorar la copia de un archivo. | | fcStop | Permite detener la copia de forma permanente. |
Se produce un error WLanguage si el procedimiento no devuelve uno de estos valores. Caso 1. Interrupción total de la copia Para forzar la interrupción de la copia, el procedimiento llamado por fCopyFile debe devolver el valor fcStop constante. Ejemplo: el procedimiento "CopyProduct" es llamado automáticamente por fCopyFile: PROCEDURE CopieProduit(CheminFichierSource, CheminFichierDestination)
...
Multitask(-1)
IF KeyPressed(kpEscape) = True THEN
Info("La copie va être arrêtée")
RETURN fcStop
END
...
RETURN fcCopy
Si se pulsa la tecla Esc, el procedimiento llamado por fCopyFile devuelve el valor fcStop constante. En cualquier otro caso (para continuar copiando), el procedimiento llamado por fCopyFile devuelve el valor fcCopy constante. Caso 2. Interrupción parcial de la copia Para evitar que el procedimiento llamado por fCopyFile se ejecute para un archivo determinado, este procedimiento debe devolver el valor fcIgnore constante. Ejemplo: El procedimiento "BuscarProducto" es llamado automáticamente por fCopyFile: PROCEDURE RechercheProduit(CheminFichierSource, CheminFichierDestination)
...
IF StringEndsWith(CheminFichierSource, "MauvaisFichier.XLS") THEN
RETURN fcIgnore
END
...
RETURN fcCopy
Para evitar copiar el archivo "WrongFile.XLS", el procedimiento devuelve el valor fcIgnore constante. El procedimiento se llama automáticamente para el siguiente archivo copiado, sin copiar el archivo actual. Clasificación Lógica de negocio / UI: Código neutro
Esta página también está disponible para…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|