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)
Code: Select all
- Fix [MorphOS]: zip.OpenArchive() with #MODE_WRITE didn't work if the target file didn't exist