Página 1 de 1

TFileOperationDlg

Publicado: Lun May 02, 2005 5:49 pm
por Francisco Sanchez
Podrias ponerme un ejemplo del uso de esta clase?. Parece que su finalidad
esta clara, de gran utilidad si señor, ahora solo me falta un ejemplo pues
no veo como hacerla funcionar pues Run() dice que es si tiene exito, no
entiendo....
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL

TFileOperationDlg

Publicado: Lun May 02, 2005 6:54 pm
por jlalin
Francisco,
aquí­ tienes. Es de memoria:
METHOD MyCopyFile( oParent, ... )
WITH OBJECT TFileOperationDlg():New( oParent )
:nAction := foCOPY //Vamos a copiar
:cText := "Copiando archivos..."
:aFrom := "c:testsTest.exe" //Puedes usar un archivo o un array
:aTo := "c:testsMiTest.exe"
:Run()
END
RETURN Nil
Si no consigues echarlo a andar, dime qué quieres hacer y te echo un cable.
Saludos,
José Lalí­n

TFileOperationDlg

Publicado: Lun May 02, 2005 11:07 pm
por Francisco Sanchez
Muchisimas gracias me ha sido de gran utilidad.
Un saludo