Quedo resuelto no ? Bruno
2010/5/14 CarozoDeQuilmes <carozodequil...@gmail.com> > 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 > >
_______________________________________________ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
