Hi, three or four days ago I had download the Harbour 2.1.0beta1 (Rev.
14468) that solve the overwrite problem with the HB_ZipFile.
It work fine for me, but today I found that:
HB_ZipFile( cFileZip , cFile )
doesn't work anymore....
cFileZip don't exists and (obvious) cFile exists
Little program to test:

function main
   memowrit( "test.txt" , "sample line" )
   memowrit( "test2.txt" , "sample line" )
   if !file( "test.txt" ) .or. !file( "test2.txt" )
      ? "Error creating test files"
      inkey(0)
      return .F.
   endif
   ferase( "pepe.zip" )
   ? "pepe.zip erased"
   inkey(0)
   HB_ZIPFILE( "pepe.zip" , "test.txt"     )
   ? "end first zip, pepe.zip found: " + if( file( "pepe.zip" ) , " .T. " ,
" .F. " )
   inkey(0)
   ferase( "pepe.zip" )
   ? "pepe.zip erased"
   inkey(0)
   HB_ZIPFILE( "pepe.zip" , "test.txt"     , 8 , NIL , .T. , NIL , .T. , .F.
)
   ? "First file added, pepe.zip found: " + if( file( "pepe.zip" ) , " .T. "
, " .F. " )
   inkey(0)
   HB_ZIPFILE( "pepe.zip" , "test2.txt" , 8 , NIL , .F. , NIL , .T. , .F. )
   ? "Finished.  Press any key to continue"
   inkey(0)
Return .T.

Thanks in advance
CdQ






-- 
Saludos/Regards/Abraços
CdQ
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to