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.
karinha wrote:Francisco, en la práctica sería como?
LMKDIR "D:\SISTEMAS"
WaitRun("XCopy C:\SISTEMAS\*.* D:\SISTEMAS /S",0)
//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
#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
#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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 32 guests