Posted to tcl by jdc at Thu Jun 21 16:08:12 GMT 2012view raw
- # This piece of code works fine when using vfs::zip version 1.0.1 with Tk 8.5.4 but fails when using vfs::zip 1.0.3 with Tcl 8.6b2
- # The zip files unzip correctly when using zip or 7zip
- # When it fails, one file is not completely copied out of the zip
- package require vfs::zip
- set f [vfs::zip::Mount test.zip Z]
- cd Z/a/b/c/d/e
- puts [file copy -force test.dat c:/tmp/test.dat]