|
|
|
|
|
|
|
|
- Returning the list of files found in an archive
Returning the list of files found in an archive The following code is used to display the list of archive files in a Table control populated programmatically (TABLE_FileArchive). // Declare and initialize the variables
ArchiveName is string = "MyArchive"
DirectoryName is string
AListOfFiles is string
CreationErrorCode is int
AdditionErrorCode is int
// Create an archive
CreationErrorCode = zipCreate(ArchiveName, "C:\Directory\Archives\ArchivePdf.zip")
// Create an archive (WINDEV Mobile)
// CreationErrorCode = zipCreate(ArchiveName, "\Directory\Archives\PdfArchive.wdz")
IF CreationErrorCode = 0 THEN
// Select the directory
DirectoryName = fSelectDir("", "", "Directory to add")
// Add all the files found in the selected directory
// and subdirectories to the archive
AdditionErrorCode = zipAddDirectory(ArchiveName, DirectoryName, True, zipDirectory)
IF AdditionErrorCode = 0 THEN
// Return the list of files found in the archive
AListOfFiles = zipListFile(ArchiveName)
// Display the list of files in a Table control populated programmatically
TableAdd(TABLE_FileArchive, AListOfFiles)
ELSE
// Display an error message if the files have not been added
Error(zipMsgError(AdditionErrorCode))
END
ELSE
// Display an error message if the archive was not created
Error(zipMsgError(CreationErrorCode))
END
Esta página también está disponible para…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|