Form1 DIMENSION laFiles[nCopyNo] lnFiles=ADIR(laFiles,oApp.cAppPath+"\Tmp\"+lcNameFile+"*.*") DO FORM gc_sendmail WITH lcNameFileToPrint, .txtCodigo.Value, 1,laFiles Form2 INIT: LPARAMETERS tcNomeFicheiro,tcCodTer,tnTipoTer,taFiles ThisForm.aFiles=taFilesThank's