Scripting Example 89

; *****************************************************

; Example89.ftp

; =============

; This example shows how to manipulate Active/Automation

; Objects.

; ---

; -----------------------------------------------------------

; Commands demonstrated:

;

; AXCreate

; AXKill

; "Object.Method"

; "Object.Property" assignment

; "Object.Property" retrieval.

;

;

; Syntax:

; See example source.

;

; -----------------------------------------------------------

; NOTE: You are NOT able to execute this example unchanged

; because of ActiveX Control inavailability.

; ***********************************************************

AXCreate TheZipper "FileZipperX.ActiveFileZipper"

TheZipper.ZipFile "C:\MyZippedFile.zip"

TheZipper.RecurseDirectories false

TheZipper.RelativePaths true

TheZipper.StorePaths true

TheZipper.AddFile "C:\*.txt"

let ii=TheZipper.AReadWriteInt

message ii

let TheZipper.AReadWriteInt=123

let ii=TheZipper.AReadWriteInt

message ii

TheZipper.Perform

AXKill TheZipper

message "done"