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.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Copiar Carpeta/Directorio
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Francisco, en la práctica sería como?
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha wrote: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.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Francisco
Con esta función se crea la cadena de directorios/folders.
Lo que pide Rodolfo es copiar todo el contenido
Algo asi:
Saludos,
Adhemar
Con esta función se crea la cadena de directorios/folders.
Lo que pide Rodolfo es copiar todo el contenido
Algo asi:
LMKDIR "D:\SISTEMAS"
WaitRun("XCopy C:\SISTEMAS\*.* D:\SISTEMAS /S",0)Saludos,
Adhemar
Saludos,
Adhemar C.
Adhemar C.
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
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...
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...
//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
endEmail: SamirSSabreu@gmail.com
xHarbour 1.2.3 + Fwhh 20.2
xHarbour 1.2.3 + Fwhh 20.2
Thanks Sabomb
The sample don't work
This work
Regards,
Adhemar
The sample don't work
This work
#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 nilRegards,
Adhemar
Saludos,
Adhemar C.
Adhemar C.
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
Rodolfo,
Funciona, has prueba con el ejemplo.
Saludos,
Adhemar
Saludos,
Adhemar C.
Adhemar C.
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)
así, no: cOrigen:="C:\SISTEMAS\BANCOS\*";cDestino:="D" (por ejemplo)
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Francisco,
con la función que colocaste funciona
Sería asi:
No olvidar enlazar la librería SHELL32.LIB DE BCC
Saludos,
Adhemar
con la función que colocaste funciona
Sería asi:
#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 ENDDUMPNo olvidar enlazar la librería SHELL32.LIB DE BCC
Saludos,
Adhemar
Saludos,
Adhemar C.
Adhemar C.
Correcto, Adhemar. ¡Funciona! Gracias.
Saludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql