FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour copyfile... no entiendo.
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
copyfile... no entiendo.
Posted: Wed Sep 24, 2014 11:43 AM
Hola.

Quiero copiar un archivo de 100 kb de una carpeta a otra
Code (fw): Select all Collapse
   copyfile( "d:\datos\tbtabla.MYD", "z:\a" )


y reviso la carpeta "a" y no tiene nada. no entiendo que esta pasando , el archivo origen ("d:\datos\tbtabla.myd") existe.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: copyfile... no entiendo.
Posted: Wed Sep 24, 2014 11:55 AM

Hola,

¿No habrá que poner el nombre fichero destino?

     copyfile( "d:\datos\tbtabla.MYD", "z:\a\tbtabla.MYD" )
Un Saludo,

Joaquín Martínez
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: copyfile... no entiendo.
Posted: Wed Sep 24, 2014 12:09 PM

ya probé de esa manera y tampoco.

Hy no es mi dia para programar evidentemente...

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: copyfile... no entiendo.
Posted: Wed Sep 24, 2014 12:48 PM

Un posible problema es el destino que especificas "a".
Si por ejemplo existe una carpeta llamada "a" no te va a crear el archivo. Prueba con otro nombre de archivo o prueba a ver si existe la carpeta "a" en destino.

En esos casos, antes de caer en locura, en bueno ver qué devuelve el FError()... También comprueba si CopyFile() devuelve algún resultado.

Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: copyfile... no entiendo.
Posted: Wed Sep 24, 2014 12:48 PM
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: copyfile... no entiendo.
Posted: Wed Sep 24, 2014 12:55 PM

Mira también, \samples\DLGFILE.PRG

Salu2

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: copyfile... no entiendo.
Posted: Wed Sep 24, 2014 02:29 PM
Goos;
probe con este sample (son de unos samples que baje, hace bastante, de la pagina de xHarbour(org) ).
Lo compile con Harbour (presupongo que con xHarblur anda), y copió Ok
Code (fw): Select all Collapse
#include "fivewin.ch"

procedure main()
   local nBytes := 0

   ? "comenzamos"
   __copyfile( "..\tExplore.exe", "d:\a\tExplore.exe", /*{|n| ( nBytes += n, QOut("Bytes copied:",nBytes)}*/  ) // 3 Parametro comentado
   ? "terminamos"
return
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: copyfile... no entiendo.
Posted: Wed Sep 24, 2014 03:13 PM

si MArio.

Gracias. Tengo problemas al generar el exe y postie para ver que me dice Antonio, porque hacia modificaciones chicas de las pruebas que hacia y no
obtenia resultados, asi como me dijiste anduvo desde el principio pero mi aplicacion no contemplaba el cambio del SOURCE y es por eso
que no me copiaba.

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 498
Joined: Thu May 10, 2007 08:30 PM
Re: copyfile... no entiendo.
Posted: Wed Sep 24, 2014 05:36 PM
Yo lo utilizo bastante:
Code (fw): Select all Collapse
CopyFile(c:\Origen\Fichero.Org","C:\Destino\Fichero.Dest",0)

A lo mejor te faltaba el ",0" final.
Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: copyfile... no entiendo.
Posted: Wed Sep 24, 2014 07:21 PM

sisi.
funciona bien. es que las pruebas que hacia no respondian pero si funciona, con y sin el cero.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 498
Joined: Thu May 10, 2007 08:30 PM
Re: copyfile... no entiendo.
Posted: Thu Sep 25, 2014 08:16 AM

Ok. El 0 es para sustituir el fichero destino sin preguntar (creo).

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

Continue the discussion