OK, so where do you stand?

Steven has provided VB code for creating zip files under Windows. Does it meet your needs? Do you need help integrating it with JavaScript? Or does it not work?

Sorry for the delay. I had hoped someone with more VB experience would appear.

It looks from Steven's example and from Googling that under Windows, the way you create .ZIP files is you manually create an empty ZIP file by writing the ZIP header, and then Windows will let you open the ZIP file and copy in files.

You can call the VBScript code from JavaScript. I don't use InDesign under Windows, so I can't test this for you, but you put it all together something like this:

var myDocument = app.activeDocument;
var myDocName = myDocument.name;
var temp=myDocName.replace(/\.indd/g,"");
var myFileNme=temp.toString();
var myFolder =myDocument.filePath;
var to = new File(myFolder + "/" + myFileNme + "/");
var tozip = myFolder+"\"+temp+".zip";
var flag = Folder(to).create();
var copyingFonts = true;
var copyingLinkedGraphics = true;
var copyingProfiles = true;
var updatingGraphics = true;
var includingHiddenLayers = true;
var ignorePreflightErrors = true;
var creatingReport = false;
var versionComments = "comment";
var forceSave = true;
if ( flag === true){
    app.activeDocument.packageForPrint (
          to, 
          copyingFonts, 
          copyingLinkedGraphics, 
          copyingProfiles, 
          updatingGraphics, 
          includingHiddenLayers,
          ignorePreflightErrors, 
          creatingReport, 
          versionComments,
          forceSave
         );
}

var makezip = [
' REM  Pass path & name to original & zip file',
' Sub CreateZip(OriginalFile,ZipFile)  ',
'   ',
'   Set oZipShell = CreateObject("WScript.Shell")  ',
'   Set oZipFSO = CreateObject("Scripting.FileSystemObject")',
'   ',
'   If Not oZipFSO.FileExists(ZipFile) Then',
'     NewZip(ZipFile)',
'   Else',
'      Set aFile = oZipFSO.GetFile(ZipFile)',
'      aFile.Delete',
'      NewZip(ZipFile)',
'   End If',
'  ',
'   Set oZipApp = CreateObject("Shell.Application")',
'   ',
'   sZipFileCount = oZipApp.NameSpace(ZipFile).items.Count',
'  ',
'   aFileName = Split(OriginalFile, "\")',
'   sFileName = (aFileName(Ubound(aFileName)))',
'   ',
'   REM listfiles',
'   sDupe = False',
'   For Each sFileNameInZip In oZipApp.NameSpace(sZipFile).items',
'     If LCase(sFileName) = LCase(sFileNameInZip) Then',
'       sDupe = True',
'       Exit For',
'     End If',
'   Next',
'   ',
'   If Not sDupe Then',
'     oZipApp.NameSpace(sZipFile).Copyhere sFile',
'  ',
'     REM Keep script waiting until Compressing is done',
'     On Error Resume Next',
'     sLoop = 0',
'     Do Until sZipFileCount < oZipApp.NameSpace(sZipFile).Items.Count',
'       Wscript.Sleep(100)',
'       sLoop = sLoop + 1',
'     Loop',
'     On Error GoTo 0',
'   End If',
' End Sub',
'  ',
' Sub NewZip(sNewZip)',
'   ',
'   Set oNewZipFSO = CreateObject("Scripting.FileSystemObject")',
'   Set oNewZipFile = oNewZipFSO.CreateTextFile(sNewZip)',
'     ',
'   oNewZipFile.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, 0)',
'   ',
'   oNewZipFile.Close',
'   Set oNewZipFSO = Nothing',
'  ',
'   Wscript.Sleep(500)',
' End Sub',
'CreateZip("'+to+'","'+tozip+'")'
].join("\r\n");

app.doScript(makezip, ScriptLanguage.visualBasic);

Note that to avoid quoting frustrations, I just changed the single quote-based VB comment characters to REM statements. Supposedly that works.

I also define tozip as the destination zip file, and then call the CreateZip subroutine as the last part of the VBscript.

I am a beginner in scripting so, generally, got a problem with determine where is a mistake and where is my less of knowledge.

 

Could you, John, or some of you, Masters, look back into this code, pls

Unfortunately, Jump_Over, I don't have the answer here. I merely took Steven's code from post #3 and wrapped it in JavaScript.

You are correct that it looks like it has some real problems. I also think you are right about the backslash, but I am not sure what is intended with the undefined variables.

I would suggest you look elsewhere for VB to create zip files. I know there have been other threads on this forum and almost certainly there are better places to look off of this forum. Sorry I can't be more helpful.