Como puedo cortar y pegar muchos archivitos ??

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Como puedo cortar y pegar muchos archivitos ??
Posted: Wed Nov 07, 2012 09:46 PM

Hola

Como puedo cortar y pegar muchos archivitos de diferentes nombres que jamas se repiten de una carpeta a otra carpeta

ya vi que con MoveFile() pero es uno por uno y tengo que dar el nombre y eso seria imposible ya que jamas seran los mismos archivos a mover es decir todo el contenido de una carpeta moverlo a otra de una sola pasada

Espero me puedan orientar

MUCHAS GRACIAS

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: Como puedo cortar y pegar muchos archivitos ??
Posted: Wed Nov 07, 2012 11:47 PM

Aida, lo primero que debes hacer es leer los archivos de la carpeta de donde vas a mver, puedes agregar los nombres en un array, luego pudes hacer un for n=1 hasta le len del array y dentro de ese for usas el move() con el nombre del archivo segun la posicion que ocupa dentro del array, algo asi como

for nFor := 1 to len(aArchivos)
move(aArchivos[nFor] lo demas que venga ya que nunca he usado move()
next

asi no tienes que agregar archivo por archivo ya que lo hara el for, espero verte dado alguna idea, cualquier cosa nos contactamos por el msn, saludos... :shock:

Dios no está muerto...

Gracias a mi Dios ante todo!

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Como puedo cortar y pegar muchos archivitos ??
Posted: Wed Nov 07, 2012 11:48 PM

Aida:

Echale una revisada a la función DIRECTORY(), tal vez te sea de ayuda.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Como puedo cortar y pegar muchos archivitos ??
Posted: Thu Nov 08, 2012 12:54 AM

Hola Aida, aqui tienes un ejemplo:

Code (fw): Select all Collapse

//------------------------
Function MoverFich()
local cFuente := ".\"
local cDestino := "C:\MiNvoFolder"
local aDirectorio

  if !lIsDir(cDestino)
     lmkDir(cDestino)
  endif

  aDirectorio:=DIRECTORY("*.PRG","D")   // "*.*","D"
  AEVAL(aDirectorio, {|aFich| MoveFile(cFuente + aFich[F_NAME], cDestino+"\"+aFich[F_NAME]), SysRefresh() } )

Return nil

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: Como puedo cortar y pegar muchos archivitos ??
Posted: Thu Nov 08, 2012 05:33 AM

Muchísimas gracias a todos

podre quedar bien con el mini programita :mrgreen:

se los agradezco que lindos :oops:

les cuento despues como quedo :roll:

saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

FiveTech Support Forums

Continue the discussion