|
|
|
|
|
|
|
|
WLanguage Procedure llamado por zipAddDirectory WLanguage Procedure ("Callback") llamado al añadir archivos con zipAddDirectory. Este Procedure permite archivar una estructura de árbol excluyendo uno o más archivos. // Declare and initialize the variables
DirectoryName is string
ArchiveName is string = "MyArchive"
CreationErrorCode is int
AdditionErrorCode is int
// Create an archive
CreationErrorCode = zipCreate(ArchiveName, "C:\MyDirectory\MyArchives\PdfArchive.wdz")
// Display an error message if the archive was not created
IF CreationErrorCode = 0 THEN
// Select the directory
DirectoryName = fSelectDir("", "", "Directory to add")
// Adds "BMP" files from the selected directory
// and subdirectories to the archive
AdditionErrorCode = zipAddDirectory(ArchiveName, DirectoryName, True, ...
zipDrive, zipAddDirectory_Callback)
// Display an error message if the files have not been added
IF AdditionErrorCode <> 0 THEN
Error(zipMsgError(AdditionErrorCode))
END
ELSE
Error(zipMsgError(CreationErrorCode))
END
INTERNAL PROCEDURE zipAddDirectory_Callback(FileName is string)
IF fExtractPath(FileName, fExtension) ~= ".gif" THEN
RESULT True
ELSE
RESULT False
END
END
Sintaxis
<Result> = zipAddDirectory_Callback(<File name>)
<Result>: booleano - Si el procedimiento devuelve True, el archivo debe incluirse en el archivo comprimido.
- Si el procedimiento devuelve False, el archivo no debe incluirse en el archivo comprimido.
<File name>: Cadena de caracteres Ruta del archivo que será procesado por zipAddDirectory.
Esta página también está disponible para…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|