In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

TFileOperationDlg

Foro de Xailer profesional en español
Responder
Francisco Sanchez
Mensajes: 532
Registrado: Mié Feb 09, 2005 6:20 pm

TFileOperationDlg

Mensaje 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
jlalin
Mensajes: 926
Registrado: Sab Dic 25, 2010 11:10 pm

TFileOperationDlg

Mensaje 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
Francisco Sanchez
Mensajes: 532
Registrado: Mié Feb 09, 2005 6:20 pm

TFileOperationDlg

Mensaje por Francisco Sanchez »

Muchisimas gracias me ha sido de gran utilidad.
Un saludo
Responder