|
28.08.2015, 11:33 | #1 |
Участник
|
Запаковка в ZIP архив
Было задание запаковать файл прямо в аксапте. На основе интернета написал такую функцию. Может кому пригодится.
X++: boolean zip(str sSourceFile, str sTargetZIPFile) { str fzip; FileName tmpFileName; FileName tmpZipFileName; boolean retVal; AsciiIO file; int ret; ; if (!(sSourceFile && sTargetZIPFile)) return retVal; //Windows vbScript fzip += '\n'+'Dim oShellApp, oFSO, sSourceFile, sTargetZIPFile, oZipFile, objFolder'; fzip += '\n'+'Set oShellApp = CreateObject(\"Shell.Application\")'; fzip += '\n'+'Set oFSO = CreateObject(\"Scripting.FileSystemObject\")'; fzip += '\n'+'sSourceFile = Wscript.Arguments.Item(0)'; fzip += '\n'+'sTargetZIPFile = Wscript.Arguments.Item(1)'; fzip += '\n'+'\'Write the fileheader for a blank zipfile.'; fzip += '\n'+'Set oZipFile = oFSO.OpenTextFile(sTargetZIPFile, 2, True)'; fzip += '\n'+'oZipFile.Write \"PK\" & Chr(5) & Chr(6) & String(18, Chr(0))'; fzip += '\n'+'oZipFile.Close'; fzip += '\n'+'\'Start copying file into the zip from the source folder.'; fzip += '\n'+'Set objFolder = oShellApp.NameSpace(sTargetZIPFile)'; fzip += '\n'+'if not objFolder is nothing then '; fzip += '\n'+' objFolder.CopyHere sSourceFile'; fzip += '\n'+' \'Because the copying occurs in a separate process, the script will just continue. Run a DO...LOOP to prevent the function'; fzip += '\n'+' \'from exiting until the file is finished zipping.'; fzip += '\n'+' Do'; fzip += '\n'+' WScript.Sleep 1000'; fzip += '\n'+' Loop While objFolder.Items.Count < 1'; fzip += '\n'+'End If'; tmpFileName = Winapi::getTempFilename(WinApi::getTempPath(),'_zip'); tmpFileName = strreplace(tmpFileName,'.tmp','.vbs'); tmpZipFileName = Winapi::getTempFilename(WinApi::getTempPath(),'_tz'); tmpZipFileName = strreplace(tmpZipFileName,'.tmp','.zip'); // info(strfmt('temp script file: %1',tmpFileName)); // info(strfmt('temp zip file: %1',tmpZipFileName)); if (WinApi::fileExists(tmpFileName)) WinApi::deleteFile(tmpFileName); if (WinApi::fileExists(tmpZipFileName)) WinApi::deleteFile(tmpZipFileName); //BP Deviation documented file = new AsciiIO(tmpFileName,'w'); file.outRecordDelimiter('\n'); if (file) { file.write(fzip); file = null; ret = Winapi::shellExecute('wscript.exe',strfmt('\"%1\" \"%2\" \"%3\"',tmpFileName, sSourceFile, tmpZipFileName),'','',0,true); //Sleep(1000); if (ret && Winapi::fileExists(tmpZipFileName)) { if (WinApi::fileExists(sTargetZIPFile)) WinApi::deleteFile(sTargetZIPFile); ret = WinApi::moveFile(tmpZipFileName,sTargetZIPFile); if (!ret) retVal = true; } } return retVal; } |
|
|
За это сообщение автора поблагодарили: macklakov (5), Ace of Database (3), (1). |
28.08.2015, 11:43 | #2 |
Гость
|
Еще можно было бы что то типа
X++: System.IO.Compression.ZipFile::CreateFromDirectory("C:\\Test", "C:\\TestZip.zip"); |
|
28.08.2015, 11:57 | #3 |
Участник
|
Функция писалась для третьей аксапты, где нет .net
Даже последний параметр в shellExecute пришлось дописывать отдельно (частично скопировал с 4ой версии). |
|
Теги |
shellexecute, vbs, zip, архив, запаковка, паковать |
|
|