Copiar Carpeta/Directorio

[RodolfoRBG]

Existe alguna instruccion que invoque a la funcion de Windows para copiar una carpeta completa (archivos y subdirectorios) de un HD a un USB?

Lo puedo hacer "a mano" pero no quiero inventar el hilo negro.

Salu2 y gracias.

[FranciscoA]

Rodolfo mira esto, tal vez es lo que quieres.
viewtopic.php?f=3&t=22218#p118291
Saludos.

[karinha]

Francisco, en la práctica sería como?

[FranciscoA]

Francisco, en la práctica sería como?

Puedes hacerlo asi: (Recuerda enlazar Shell32.lib del directorio de Borlan)

//------------------
Function Prueba()
local cDirDest := "C:\FRANCISCO\DOCUMENTOS\DIVERSOS\"

ShCreateDirectory( cDirDest )

Return Nil


#pragma BEGINDUMP

#include <shlobj.h>
#include <hbapi.h>

HB_FUNC (SHCREATEDIRECTORY)
{
hb_retni( SHCreateDirectoryEx( NULL, hb_parc( 1 ), NULL ) );
}

#pragma ENDDUMP

Saludos.

[acuellar]

Francisco

Con esta función se crea la cadena de directorios/folders.

Lo que pide Rodolfo es copiar todo el contenido

Algo asi:

Code: Select all  Expand view

LMKDIR "D:\SISTEMAS"
WaitRun("XCopy C:\SISTEMAS\*.* D:\SISTEMAS /S",0)
 

Saludos,

Adhemar

[RodolfoRBG]

Francisco, gracias por responder, Adhemar, gracias por tu solucion.

Buscaba mas bien que fuera Windows quien hiciera la copia en su dialogo con animacion, meter, etc, pero la solucion que me das es muy practica. Gracias.

Salu2

[sambomb]

DirectoryRecurse(<cDisSpec>,[<cAttributes>])

This function return an array with all files and internal folders(with all files)
Then all you have to do is create the folders and move the files...

Code: Select all  Expand view

//cOrigin := "C:\Test\"
//cDestiny := "D:\Test\"

aFiles := DirectoryRecurse(cOrigin)

For i := 1 to Len(aFiles)

   If IsDirectory(aFiles[i,1])
      MakeDir(StrTran(aFiles[i,1],cOrigin, cDestiny))
   else
      CopyFile(aFiles[i,1],StrTran(aFiles[i,1],cOrigin, cDestiny))
   end

end
 

[acuellar]

Thanks Sabomb

The sample don't work

This work

Code: Select all  Expand view

#Include "FiveWin.ch"
*
Function Main()
  cOrigen:="C:\SISTEMAS\*";cDestino:="D"
  aFiles := DirectoryRecurse(cOrigen)

  For i := 1 to Len(aFiles)
   cFile:=aFiles[i,1]
   cDir:=cDestino+Subs(cFilePath(cFile),2,Len(cFile))
   makedir(cDir)
   LZCOPYFILE( cOrigen,cDestino+Subs(cFile,2,Len(cFile)) )
 Next I
 MsgAlert("Se copiaron "+Str(I,3)+" archivos")

return nil
 

Regards,

Adhemar

[RodolfoRBG]

Gracias jovenes, pero a mi:

XBROWSE(DirectoryRecurse("C:\Prueba"))
XBROWSE(DirectoryRecurse("C:\Prueba*"))
XBROWSE(DirectoryRecurse("C:\Prueba\"))
XBROWSE(DirectoryRecurse("C:\Prueba\*"))
XBROWSE(DirectoryRecurse("C:\Prueba\*.*"))
XBROWSE(DirectoryRecurse("C:\Prueba",'D'))
XBROWSE(DirectoryRecurse("C:\Prueba*",'D'))
XBROWSE(DirectoryRecurse("C:\Prueba\",'D'))
XBROWSE(DirectoryRecurse("C:\Prueba\*",'D'))
XBROWSE(DirectoryRecurse("C:\Prueba\*.*",'D'))

me regresa un arreglo vacio en cada caso

[acuellar]

Rodolfo,

Funciona, has prueba con el ejemplo.

Saludos,

Adhemar

[FranciscoA]

Amigos, el ejemplo de Cuellar funciona asi: cOrigen:="C:\SISTEMAS\*";cDestino:="D". Es rapidisimo (5800 files no grandes, en 5 segundos, en mi pobre equipo), pero...
así, no: cOrigen:="C:\SISTEMAS\BANCOS\*";cDestino:="D" (por ejemplo)

[acuellar]

Francisco,
con la función que colocaste funciona
Sería asi:

Code: Select all  Expand view

#Include "FiveWin.ch"
*
Function Main()
  cOrigen:="D:\SISTEMAS\BANCOS\*";cDestino:="C"
  aFiles := DirectoryRecurse(cOrigen)

  For i := 1 to Len(aFiles)
   cFile:=aFiles[i,1]
   cDir:=cDestino+Subs(cFilePath(cFile),2,Len(cFile))
   ShCreateDirectory( cDir )

   LZCOPYFILE( cOrigen,cDestino+Subs(cFile,2,Len(cFile)) )
 Next I
 MsgAlert("Se copiaron "+Str(I,3)+" archivos")
 XBROWSE(aFiles)
return nil
 
#pragma BEGINDUMP

#include <shlobj.h>
#include <hbapi.h>

HB_FUNC (SHCREATEDIRECTORY)
{
 hb_retni( SHCreateDirectoryEx( NULL, hb_parc( 1 ), NULL ) );
}

#pragma ENDDUMP
 

No olvidar enlazar la librería SHELL32.LIB DE BCC

Saludos,

Adhemar

[FranciscoA]

Correcto, Adhemar. ¡Funciona! Gracias.
Saludos.