Unzip/zip files (on Windows) without use of xop (using JScript)

Function UnzipFileOnDesktop(ZipFileName, NewDataFolderName, deleteSource)
    string ZipFileName, NewDataFolderName
    variable deleteSource
    //create Path to Desktop
    NewPath/O Desktop, SpecialDirPath("Desktop", 0, 0, 0 )
    //check that the file exists
    GetFileFolderInfo /P=Desktop /Q/Z=1 ZipFileName
    if(V_Flag!=0)
        Abort "Zip file not found on Desktop"
    endif  
    //create the command file on the desktop, this is Zipjs.bat per
    //from https://github.com/npocmaka/batch.scripts/blob/master/hybrids/jscript/z…;
    DoWindow zipjsbat
    if(V_Flag==0)
        CreateZipjsbat()   
    endif
    SaveNotebook/O/P=Desktop zipjsbat as "zipjs.bat"
    DoWindow/K zipjsbat
    //created the zipjs.bat command file which will unzip the file for us, note must kill the internal Notebook
    //or Igor will held the file and Windows will throw errors
    //now create cmd in line with
    //             zipjs.bat unzip -source C:\myDir\myZip.zip -destination C:\MyDir -keep no -force no
    // the destination folder is created by the script.
    // -keep yes will keep the content of the zip file, -force yes will overwrite the tempfolder for the data if exists
    // be careful, -force yes will wipe out the destination, if exists, so make sure the data are directed to non-existing folder.
        // later mod - put the unzipped file in temporary folder and create proper zip folder on the desktop. Cleaner
    string strToDesktop = SpecialDirPath("Desktop", 0, 1, 0 )
    string strToTemp     = SpecialDirPath("Temporary", 0, 1, 0 )
        string shortZipFileName= stringFromList(ItemsInList(ZipFileName,":")-1, ZipFileName,":")
    string cmd = strToDesktop+"zipjs.bat unzip -source "
    cmd +=strToDesktop+ shortZipFileName +" -destination "
    cmd +=strToTemp+"ZipFileTempFldr -keep yes -force yes"
    ExecuteScriptText cmd
        // now the unzipped data are in temporary:ZipFileTempFldr
    //delete the batch file to clean up...
    if(deleteSource)
        DeleteFile /P=Desktop /Z  ZipFileName      
    endif
    //now create the folder IgorCode is in the Desktop/NewDataFolderName
    //and we need it in Desktop...
        //create new folder which user wants
    NewPath /C /O/Q/Z tempForIgorCode, strToDesktop+NewDataFolderName
        //and copy the data there.
    cmd ="Xcopy  /E /I "+strToTemp+"ZipFileTempFldr\\shortZipFileName\\*    "+strToDesktop+ NewDataFolderName
    ExecuteScriptText cmd
        //note: cannot delete the ZipFileTempFldr folder as that action in Igor throws many warnings to users, so this leaves garbage in the user temporary folder.
end