Posted to tcl by jdc at Thu Jun 21 16:08:12 GMT 2012view raw

  1. # 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
  2. # The zip files unzip correctly when using zip or 7zip
  3. # When it fails, one file is not completely copied out of the zip
  4.  
  5. package require vfs::zip
  6.  
  7. set f [vfs::zip::Mount test.zip Z]
  8. cd Z/a/b/c/d/e
  9. puts [file copy -force test.dat c:/tmp/test.dat]