#include "Directry.ch"

/*
1º Pasta de Origem dos Arquivos a Ser Copiados
2º Pasta de Destino dos Arquivos a Ser Copiados
2º Tipo de Arquivo a ser Copiados
Ex:
Copia_Varios_Arquivo("dados\" ,"bak\"  ,"*.dbf")
*/
****************************************************
Function Copia_Varios_Arquivo( cORIG, cDEST , cTIPO )
****************************************************
IF IsDirectory(curdrive()+":\"+rtrim(curdir())+"\"+ cORIG) = .F.
   alert("Pasta de Origem Invalida")
   Return
Endif

IF IsDirectory(curdrive()+":\"+rtrim(curdir())+"\"+ cDEST) = .F.
   alert("Pasta de Destino Invalida")
   Return
Endif

aDir0 := directory(curdrive()+":\"+rtrim(curdir())+"\"+ cORIG + cTIPO)
for x=1 to len(aDir0)
    __CopyFile( curdrive()+":\"+rtrim(curdir())+"\"+ cORIG + aDir0[x,1],curdrive()+":\"+rtrim(curdir())+"\"+cDEST + aDir0[x,1])
*    __copyfile( curdrive()+":\"+rtrim(curdir())+"\"+ cORIG + aDir0[x,1], curdrive()+":\"+rtrim(curdir())+"\"+cDEST + aDir0[x,1], {|n| ( nBytes += n, QOut("Bytes copiado:",nBytes) ) } )  // esse somente com xharbour >= 1.1.0
Next
Return Nil


/*
Parametros:
1º Pasta onde se encontra os Arquivos a Ser Deletados
2º Tipo de Arquivos a ser Deletados
Ex:
*deleta_Varios_Arquivo("bak\"  ,"*.dbf")
*/
***********************************************
Function Deleta_Varios_Arquivo( cDEST , cTIPO )
***********************************************
IF IsDirectory(curdrive()+":\"+rtrim(curdir())+"\"+ cDEST) = .F.
   alert("Pasta de Destino Invalida")
   Return
Endif

aDir0 := directory(curdrive()+":\"+rtrim(curdir())+"\"+ cDEST + cTIPO)
for x=1 to len(aDir0)
    Ferase(curdrive()+":\"+rtrim(curdir())+"\"+ cDEST + aDir0[x,1])
Next
Return Nil

/*
Parametros:
1º Pasta onde se encontra os Arquivos a Ser renomeado
2º Tipo de Arquivo a ser Renomeado
3º Tipo de Arquivo que vai ficar depois que renomeado
Ex:
*Renomeia_Varios_Arquivo("bak\" ,"*.dbf" ,"*.bak")
*/

****************************************************************
Function Renomeia_Varios_Arquivo( cDEST , cTIPO_ORI, cTIPO_DEST)
****************************************************************
IF IsDirectory(curdrive()+":\"+rtrim(curdir())+"\"+ cDEST) = .F.
   alert("Pasta de Destino Invalida")
   Return
Endif

aDir0 := directory(curdrive()+":\"+rtrim(curdir())+"\"+ cDEST + cTIPO_ORI)
for x=1 to len(aDir0)
    RenameFile( curdrive()+":\"+rtrim(curdir())+"\"+ cDEST + aDir0[x,1], curdrive()+":\"+rtrim(curdir())+"\"+ cDEST + aDir0[x,1] + RIGHT(cTIPO_DEST,4) )
Next
Return Nil