Como puedo cortar y pegar muchos archivitos ??

[AIDA]

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

[joseluisysturiz]

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...

[Armando]

Aida:

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

Saludos

[FranciscoA]

Hola Aida, aqui tienes un ejemplo:

Code: Select all  Expand view

//------------------------
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.

[AIDA]

Muchísimas gracias a todos

podre quedar bien con el mini programita

se los agradezco que lindos



les cuento despues como quedo


saluditos