When I am running the bellow code from Classic it works great.
When I am running the code from Role Tailored Client it send back the error
"The automation variable has not been instantiated".
Can anybody help me?
Name DataType Subtype Length
Shell32 Automation 'Microsoft Shell Controls And Automation'.Shell
ZipFolder Automation 'Microsoft Shell Controls And Automation'.Folder
IntegerValue Integer
i Integer
TextFile File
ZipFileName Text 1024
SourceFileName Text 1024
ZipFile File
CompressFileToZip(sourceFileAddress : Text[1024];destenationFileAddress : Text[1024])
ZipFileName := destenationFileAddress;
SourceFileName := sourceFileAddress;
//>>CREATING ZIP FILE
ZipFile.CREATE(destenationFileAddress); //here goes Your zip filename
ZipFile.TEXTMODE(FALSE); //binary mode
IntegerValue:=101010256;
//>>writing zip header
ZipFile.WRITE(IntegerValue);
IntegerValue:=0;
FOR i:=1 TO 9 DO
ZipFile.WRITE(IntegerValue);
//<<writing zip header
ZipFile.CLOSE;
//<<zip file created c:\myzipfolder.zip
CREATE(Shell32,False, True); //creating shell automation
ZipFolder:=Shell32.NameSpace(destenationFileAddress); //ZIPFolder is now our folder in zip format which will be used
SourceFileName := sourceFileAddress;
//>>Copying file to our zip folder
ZipFolder.CopyHere(SourceFileName);
CLEAR(Shell32);
