Call to Java Method to Zip directory fails with error Invalid parameter 1

Question

Hi all,
I try to translate the following Java Code to PeopleCode and I do not succeed in it.
Can somebody please help me out ?
On that website http://www3.ntu.edu.sg/home/ehchua/programming/java/J5b_IO.html I extracted the Java Code:
import java.io.File;
public class ListDirectoryRecusive {
public static void main(String[] args) {
File dir = new File("d:\\myproject\\test"); // Escape sequence needed for '\'
listRecursive(dir);
public static void listRecursive(File dir) {
if (dir.isDirectory()) {
File[] items = dir.listFiles();
for (File item : items) {
System.out.println(item.getAbsoluteFile());
if (item.isDirectory()) listRecursive(item); // Recursive call
PeopleCode
I want to get all the files included in the directory
Local string &SourceDirPath = S1_FS_RDCFG_AET.S1_CHMN_TODO;
Local JavaObject &Javadir = CreateJavaObject("java.io.File", &SourceDirPath);
Local array of any &StrArray;
&ArrayOfAny = CreateArrayAny();
Local JavaObject &JavaFilesArray = CreateJavaArray("java.lang.Object[]", 1024);
&JavaFilesArray = &Javadir.listFiles();
CopyFromJavaArray(&JavaFilesArray, &ArrayOfAny);
==> I alway get the error
Message:
Invalid parameter 1 for function CopyFromJavaArray. (2,116) S1_DSITE_ZIP.MAIN.GBL.default.1900-01-01 .DIRECTOR.OnExecute PCPC:511 Statement:9
I thank you in avance
Edited by: Meapri on Jan 23, 2013 9:33 AM

Answer 1

The Pcode I wrote to Zip Directories
Function AddFileToZip(&sDirSeparator, &zipInternalPath, &fileNameToZip, &zipFileName, &outFileStream, &zipStreamOut)
   Local JavaObject &file = CreateJavaObject("java.io.File", &fileNameToZip);
   Local JavaObject &inFileStream = CreateJavaObject("java.io.FileInputStream", &fileNameToZip);
   Local JavaObject &zipEntry = CreateJavaObject("java.util.zip.ZipEntry", &fileNameToZip);
   REM **  Créer le flux de sortie de données pour le fichier ZIP final;
   REM ** We will read &fileNameToZip into a buffer and write it out to &zip;
   Local string &ZippedfileName = &zipInternalPath | &sDirSeparator | &zipFileName;
   REM ** Make sure zip entry retains original modified date;
   &zipEntry.setTime(&file.lastModified());
   &zipStreamOut.putNextEntry(&zipEntry);
   Local JavaObject &buf = CreateJavaArray("byte[]", 1024);
   Local number &byteCount;
   &byteCount = &inFileStream.read(&buf);
   While &byteCount > 0
      &zipStreamOut.write(&buf, 0, &byteCount);
      &byteCount = &inFileStream.read(&buf);
   End-While;
   &inFileStream.close();
   MessageBox(0, "", 99000, 0, "Zipped File : " | &fileNameToZip);
End-Function;
Function getDirContent(&sDirSeparator, &parentFolder, &zipFileName, &outFileStream, &zipStreamOut)
   MessageBox(0, "", 99000, 0, "Directory to scan : " | &parentFolder);
   Local JavaObject &Folder = CreateJavaObject("java.io.File", &parentFolder);
   Local JavaObject &jItems = &Folder.list();
   /* Transformation en Array Pcode*/
   Local array of any &items = CreateArrayAny();
   Local number &idx = 1;
   &items [&jItems.length] = Null;
   CopyFromJavaArray(&jItems, &items);
   For &idx = 1 To &jItems.length
      Local string &Entry = &parentFolder | &sDirSeparator | &items [&idx];
      Local JavaObject &FileOrFolder = CreateJavaObject("java.io.File", &Entry);
      If &FileOrFolder.isDirectory() Then
         getDirContent(&sDirSeparator, &Entry, &zipFileName, &outFileStream, &zipStreamOut);
      Else
         AddFileToZip(&sDirSeparator, &parentFolder, &Entry, &zipFileName, &outFileStream, &zipStreamOut);
      End-If;
   End-For;
End-Function;
Local string &RootName = "C:\TEMP\TEST";
Local string &sDirSeparator = "\";
REM ** Create Output Zip File ;
Local string &ZipFileName = &RootName | &sDirSeparator | "Temp2_Zip.zip";
Local JavaObject &OutFileStream = CreateJavaObject("java.io.FileOutputStream", &ZipFileName, True);
Local JavaObject &zipStreamOut = CreateJavaObject("java.util.zip.ZipOutputStream", &OutFileStream);
REM ** Create Zip File Entries found in the directory;
getDirContent(&sDirSeparator, &RootName, &ZipFileName, &OutFileStream, &zipStreamOut);
REM Close Output Zip File ;
&zipStreamOut.close();Edited by: Meapri on Feb 2, 2013 10:54 AM : copy and paste code that works!
Edited by: Meapri on Feb 2, 2013 10:56 AM
Edited by: Meapri on Feb 2, 2013 11:02 AM