Xailer & OZ Software

Quiero copiar un archivo al seleccionarlo dentro de un TFileOpenDialog?
With Object ::oFileOpenDlg1
:cTitle := "Producto: " + ::oDBEdit8:value
:cInitialDir := AppData:Dir_Imagenes
IF :Run()
//Si el directorio de la imagen es distinto al del sistema,
//la copio a la carpeta de imagenes del sistema
::oImage1:oPicture := :cFullFileName
End
END
De antemano, gracias.
Saludos.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com

Ramón,
> Quiero copiar un archivo al seleccionarlo dentro de un TFileOpenDialog?
> With Object ::oFileOpenDlg1
> :cTitle := "Producto: " + ::oDBEdit8:value
> :cInitialDir := AppData:Dir_Imagenes
>
> IF :Run()
> //Si el directorio de la imagen es distinto al del sistema,
> //la copio a la carpeta de imagenes del sistema
>
> ::oImage1:oPicture := :cFullFileName
>
> End
>
> END
puedes utilizar el comando de xbase de siempre 'COPY FILE origen TO
destino'. O si el fichero es grande y va a tardar puedes utilizar la clase
TFileOperationDlg
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info