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.

FileMove ?

Foro de Xailer profesional en español
User avatar
emeasoft
Posts: 1062
Joined: Wed Apr 01, 2009 4:12 pm
Location: emeasoft
Contact:

FileMove ?

Postby emeasoft » Wed Aug 20, 2014 5:05 pm

Boa tarde,
Para copiar um arquivo para outra pasta tenho que usar:
CopyFile("C:TESTE1ARQ.TXT","C:TESTE2ARQ.TXT")
FErase("C:TESTE1ARQ.TXT")
Existe uma função apenas para mover o arquivo de
uma pasta para outra sem ter que copiar e apagar na
pasta de origem ?
Grato.
Mário Angelini
Cassiano de Oliveira
Posts: 475
Joined: Tue Jul 24, 2012 10:21 pm

FileMove ?

Postby Cassiano de Oliveira » Thu Aug 21, 2014 12:28 am

Não entendi Mario... eu uso FileMove( PATH+FILE, NEWPATH+FILE)
Vc testou ai desta forma?
[]'s
"www[dot]eMeAsOfT[dot]com" wrote in message
news:53f4b94c$1@svctag-j7w3v3j....
Boa tarde,
Para copiar um arquivo para outra pasta tenho que usar:
CopyFile("C:TESTE1ARQ.TXT","C:TESTE2ARQ.TXT")
FErase("C:TESTE1ARQ.TXT")
Existe uma função apenas para mover o arquivo de
uma pasta para outra sem ter que copiar e apagar na
pasta de origem ?
Grato.
Mário Angelini
--
http://www.eMeAsOfT.com
http://emeasoft.blogspot.com/
http://twitter.com/emeasoft
http://www.facebook.com/emeasoft
https://plus.google.com/102999253031532804222
http://g.co/maps/26gey
---
Este email está limpo de ví­rus e malwares porque a proteção do avast! Antiví­rus está ativa.
http://www.avast.com
joselalinf
Posts: 291
Joined: Thu Jan 31, 2013 1:10 pm

FileMove ?

Postby joselalinf » Thu Aug 21, 2014 10:05 am

Mário,
también puedes hacerlo usando TFileOperation:
WITH OBJECT TFileOperationDlg():New( oForm )
:aFrom := "C:TESTE1ARQ.TXT"
:aTo := "C:TESTE2ARQ.TXT"
:nAction := foMOVE
:cText := "Movendo arquivo"
IF :Run()
MsgInfo( "Ok!" )
ENDIF
END
En el archivo de ayuda está toda la documentación de este componente.
Saludos,
José Lalí­n
joselalinf
Posts: 291
Joined: Thu Jan 31, 2013 1:10 pm

FileMove ?

Postby joselalinf » Thu Aug 21, 2014 10:09 am

Mário,
falta la llamada a :Create()
> :cText := "Movendo arquivo"
:Create()
> IF :Run()
Saludos,
José Lalí­n
User avatar
emeasoft
Posts: 1062
Joined: Wed Apr 01, 2009 4:12 pm
Location: emeasoft
Contact:

FileMove ?

Postby emeasoft » Thu Aug 21, 2014 12:53 pm

Bom dia,
Aproveitei e fiz a função abaixo.
Obrigado a todos.
Mário Angelini
MoveFromTo("C:TESTES"+"06000028.TXT","C:ABC"+"RESUMO.TXT ",)

FUNCTION MoveFromTo(f1,f2)
IF File(f1)
IF File(f2)
FErase(f2)
ENDIF
WITH OBJECT TFileOperationDlg():New()
:aFrom := f1
:aTo := f2
:nAction := foMOVE
:lSilent:=.T.
:Create()
:Run()
END
ENDIF
RETURN Nil
joselalinf
Posts: 291
Joined: Thu Jan 31, 2013 1:10 pm

FileMove ?

Postby joselalinf » Thu Aug 21, 2014 8:32 pm

Mário,
si se va a llamar muchas veces o se van a procesar muchos archivos de uno
en uno es mejor crear el objeto una sóla vez para optimizar el consumo de
memoria y la velocidad de ejecución:
FUNCTION MoveFromTo(f1,f2)
STATIC oFO
IF oFO == Nil
WITH OBJECT oFO := TFileOperationDlg():New()
:nAction := foMOVE
:lSilent := .T.
:Create()
END
ENDIF
IF File(f1)
...
ENDIF
oFO:aFrom := f1
oFO:aTo := f2
oFO:Run()
RETURN Nil
Saludos,
José Lalí­n
Cassiano de Oliveira
Posts: 475
Joined: Tue Jul 24, 2012 10:21 pm

FileMove ?

Postby Cassiano de Oliveira » Fri Aug 22, 2014 6:56 pm

Pegando Carona na explicação, Show de Bola...
Parabéns!
"José Lalí­n" wrote in message news:53f63ae2$2@svctag-j7w3v3j....
Mário,
si se va a llamar muchas veces o se van a procesar muchos archivos de uno
en uno es mejor crear el objeto una sóla vez para optimizar el consumo de
memoria y la velocidad de ejecución:
FUNCTION MoveFromTo(f1,f2)
STATIC oFO
IF oFO == Nil
WITH OBJECT oFO := TFileOperationDlg():New()
:nAction := foMOVE
:lSilent := .T.
:Create()
END
ENDIF
IF File(f1)
...
ENDIF
oFO:aFrom := f1
oFO:aTo := f2
oFO:Run()
RETURN Nil
Saludos,
José Lalí­n
---
Este email está limpo de ví­rus e malwares porque a proteção do avast! Antiví­rus está ativa.
http://www.avast.com
joselalinf
Posts: 291
Joined: Thu Jan 31, 2013 1:10 pm

FileMove ?

Postby joselalinf » Sat Aug 23, 2014 10:53 am

Mário,
recuerda que también puedes usar máscaras como "*.tmp" o "*.*" para
procesar lotes de archivos.
Saludos,
José Lalí­n
joselalinf
Posts: 291
Joined: Thu Jan 31, 2013 1:10 pm

FileMove ?

Postby joselalinf » Sat Aug 23, 2014 10:55 am

Cassiano,
> Pegando Carona na explicação, Show de Bola...
demasiado portugués para mí­ :-)
> Parabéns!
Obrigado.
Saludos,
José Lalí­n
User avatar
emeasoft
Posts: 1062
Joined: Wed Apr 01, 2009 4:12 pm
Location: emeasoft
Contact:

FileMove ?

Postby emeasoft » Mon Aug 25, 2014 11:59 am

Lalin:
" Pegando Carona na explicação, Show de Bola..."
é uma expressão no portuguíªs brasileiro
o mesmo que:
Acompanhando bem a explicação, muito bom...

Pedir Carona/Pegar Carona = Hitchhike, Hitch a ride
Exemplos:
1 - Hitchhiking is one of the cheapest ways of travelling (Viajar de carona é uma das maneiras mais baratas de viagem.)
2 - We were hitchhikin' down a long and lonesome road. (Estavamos pedindo carona em uma longa e deserta estrada.)
3 - I have no car, can I hitch a ride home with you? (Eu não tenho carro, posso pegar carona pra casa com vocíª?)
4 - Pegar carona: Get a ride.

Show de bola:
http://goo.gl/oDTvMd
Abraços.
Mário
joselalinf
Posts: 291
Joined: Thu Jan 31, 2013 1:10 pm

FileMove ?

Postby joselalinf » Fri Aug 29, 2014 2:18 pm

Mário,
valeu ;-)
Saludos,
José Lalí­n

Return to “Spanish”