[Gambas-user] Compress

[Jacky]

Hello,
Finally i have found that is necessary to put one tempo before compress big 
file.

<My code>
DIM Compres AS NEW Compress
Compres.Type = "zlib"
IF Exist(User.home & "/test.sql") THEN KILL User.home & "/test.sql"
SHELL "mysqldump" & " " & "-u" & " " & Fmenu.hcon.Login & " " & "-p" & 
Fmenu.hcon.Password & " " & "test" & " " & "--add-drop-table" & " " & ">" & " 
" & User.home & "/test.sql"
WAIT 3 
Compres.File ( system.home & "/test.sql" , system.Home & "/test.sql.gz" , 
Compres.Max)
<end my code>

Jack