Karinha, Checa estas funciones, a mi me funcionan!! STATIC FUNCTION Comprime(cFile,aFile) LOCAL oDlg,oMeter,oText,cMsg,nLen,lVal,nActual:=0 nLen:=Len(aFile) DEFINE DIALOG oDlg FROM 1, 1 TO 10, 60 TITLE "Espere, reuniendo archivos..." @ 0.5, 2 SAY oText VAR cMsg SIZE 180, 20 OF oDlg @ 2, 2 ...