AYUDA EN LÍNEA
 WINDEVWEBDEV Y WINDEV MOBILE

Ayuda / WLanguage / Funciones WLanguage / Funciones estándar / Funciones de archivos
  • Finding the type of the archive
zipIsMulti (Example)
Finding the type of the archive
WINDEVWEBDEV - Código ServidorReportes y ConsultasCódigo de Usuario (UMC)Ajax
The following code is used to find out the type of an archive: single-part or multi-part archive.
// Declare and initialize the variables
CreationErrorCode is int
AdditionErrorCode is int
ErrorCodeSplit is int
NbNecessaryParts is int
ResIsMulti is boolean
 
// Create an archive
CreationErrorCode = zipCreate("MyArchive", "C:\MyArchives\MyArchive.WDZ")
 
IF CreationErrorCode = 0 THEN
// Add files into this archive
AdditionErrorCode = zipAddDirectory("MyArchive", ...
"C:\MyDir\MyFiles", True, zipDirectory)
 
IF AdditionErrorCode = 0 THEN
// Number of necessary diskettes
NbNecessaryParts = zipNbPartNeeded("MyArchive", ...
1400*1024)
Info(NbNecessaryParts + "diskettes are required")
// Split the archive
ErrorCodeSplit = zipSplit("MyArchive", ...
"A:\Archive.WDZ", 1400*1024, False, 100*1024)
// Display the error message
// if the archive was not split
IF ErrorCodeSplit <> 0 THEN
Error(zipMsgError(ErrorCodeSplit))
END
ELSE
// Display an error message if the archive was not created
Error(zipMsgError(AdditionErrorCode))
END
ELSE
// Display an error message if the files have not been added
Error(zipMsgError(CreationErrorCode))
END
 
// Single-part or multi-part archive?
ResIsMulti = zipIsMulti(ArchiveName)
 
// Display the result
IF ResIsMulti = True THEN
Info("The archive is a multi-part archive")
ELSE
Info("The archive is a single-part archive")
END
Versión mínima requerida
  • Versión 9
Esta página también está disponible para…
Comentarios
Haga clic en [Agregar] para publicar un comentario

Última modificación: 27/05/2022

Señalar un error o enviar una sugerencia | Ayuda local