Lianja

Transition from Zip.AppendNew to Zip.AddEmpty

Provides instructions for replacing deprecated AppendNew method calls with AddEmpty. Lianja

llSuccess = .F.

loZip = createobject("CkZip")

// ...
// ...
lcPathInZip = "example.dat"

// ------------------------------------------------------------------------
// The AppendNew method is deprecated:

loEntryObj = loZip.AppendNew(lcPathInZip)
if (loZip.LastMethodSuccess = .F.) then
    ? loZip.LastErrorText
    release loZip
    return
endif

// ...
// ...

release loEntryObj

// ------------------------------------------------------------------------
// Do the equivalent using AddEmpty.

// Indicate the newly appended entry is not a directory entry.
llIsDir = .F.

llSuccess = loZip.AddEmpty(llIsDir,lcPathInZip)
if (llSuccess = .F.) then
    ? loZip.LastErrorText
    release loZip
    return
endif

// Do the following if you need the zip entry object for what was just appended.
// The newly appended entry is the last one.
loZe = createobject("CkZipEntry")
lnIndex = loZip.NumEntries - 1
loZip.EntryAt(lnIndex,loZe)


release loZip
release loZe