Code: Select all
@REQUIRE "zip"
f$ = "ram:test.zip"
StringToFile("test", f$ .. ".data")
DeleteFile(f$)
;StringToFile("", f$) ; without this the next line fails
zip.OpenArchive(1, f$, #MODE_WRITE)
zip.AddFile(1, f$ .. ".data")
zip.CloseArchive(1)
Code: Select all
@REQUIRE "zip"
f$ = "ram:test.zip"
StringToFile("test", f$ .. ".data")
DeleteFile(f$)
;StringToFile("", f$) ; without this the next line fails
zip.OpenArchive(1, f$, #MODE_WRITE)
zip.AddFile(1, f$ .. ".data")
zip.CloseArchive(1)