BACKUP FREE - Novas idÃ©ias.

kapiaba · November 28, 2008

Galera, to sem tempo e sem inteligencia... kkkkkkkkkkkk

Gentileza, uma alma caridosa poderia MELHORAR esta ROTINA,

Colocar METER, SENHA, traduzir, incorporar o que mais quiser... FREE.

Gostaria de ver varias IDEIAS diferentes.

Adoro gente inteligente.

#Include "FiveWin.Ch"

STATIC mUBI_ORI

STATIC mUBI_DES

STATIC mNOMARCHIVO

Function BackupZIP()

LOCAL oDlgCar

LOCAL lSalir:= .F.

LOCAL oFont1

DbCloseAll()

DEFINE FONT oFont1 NAME 'Arial' SIZE 0,-15 BOLD

DEFINE DIALOG oDlgCar FROM 0, 0 TO 12, 80 ;

TITLE 'BACKUP de INFORMACION'

@ 1, 8 BUTTON 'Armar Backup' OF oDlgCar SIZE 50, 12 ;

ACTION ( ArmarBackup(1) )

@ 2, 8 BUTTON 'Traer Backup' OF oDlgCar SIZE 50, 12 ;

ACTION ( ArmarBackup(2) )

@ 3, 8 BUTTON 'Salir' OF oDlgCar SIZE 50, 12 ;

ACTION ( oDlgCar:End() )

ACTIVATE DIALOG oDlgCar CENTERED

DbCloseAll()

Release All

Return( .T. )

*-----------------------------------------------------------------------------

Function ArmarBackup(Arma1Extrae2)

LOCAL oDlgCar

LOCAL lSalir := .F.

LOCAL oFont1

LOCAL oUBI_ORI, oUBI_DES

LOCAL xUBI_ORI := CurDrive()+":\"+CurDir()+"\"

mUBI_ORI := xUBI_ORI+SPACE(60-LEN(xUBI_ORI))

mUBI_DES := xUBI_ORI+SPACE(60-LEN(xUBI_ORI))

mNOMARCHIVO := SPACE(20)

DbCloseAll()

DEFINE FONT oFont1 NAME 'Arial' SIZE 0,-9 //BOLD

DEFINE DIALOG oDlgCar FROM 0, 0 TO 15, 80 ;

TITLE If( Arma1Extrae2==1,'ARMA','EXTRAE`') + ;

' BACKUP de INFORMACION'

@ 1.750, 1 SAY 'Carpeta de Origen' OF oDlgCar

@ 1.500,10 BUTTON 'Buscar' OF oDlgCar SIZE 20, 10 Font oFont1 ;

ACTION( mUBI_ORI:=DIRECMain(), ;

mUBI_ORI:=ALLTRIM(mUBI_ORI)+'\', ;

mUBI_ORI:=mUBI_ORI+space(60-len(mUBI_ORI)), ;

oUBI_ORI:Refresh() )

@ 2,10 GET oUBI_ORI var mUBI_ORI of oDlgCar

@ 2.625, 1 SAY 'Carpeta de Destino' of oDlgCar

@ 2.300,10 BUTTON 'Buscar' OF oDlgCar SIZE 20, 10 Font oFont1 ;

ACTION( mUBI_DES:=DIRECMain(), ;

mUBI_DES:=ALLTRIM(mUBI_DES)+'\', ;

mUBI_DES:=mUBI_DES+space(60-len(mUBI_DES)), ;

oUBI_DES:Refresh() )

@ 3,10 GET oUBI_DES var mUBI_DES of oDlgCar

@ 3.500, 1 SAY 'Nombre de Archivo ZIP' of oDlgCar

@ 4,10 GET mNOMARCHIVO of oDlgCar

If Arma1Extrae2 == 1

@ 4, 10 BUTTON 'Generar Backup' OF oDlgCar SIZE 50, 12 ;

ACTION ( Backup1(ALLTRIM(mNOMARCHIVO), ;

ALLTRIM(mUBI_ORI), ALLTRIM(mUBI_DES)), ;

oDlgCar:End() )

Else

@ 4, 10 BUTTON 'Extraer Backup' OF oDlgCar SIZE 50, 12 ;

ACTION ( Backup2(ALLTRIM(mUBI_DES), ALLTRIM(mUBI_ORI), ;

ALLTRIM(mNOMARCHIVO)), oDlgCar:End() )

EndIf

@ 4, 20 BUTTON 'Salir' OF oDlgCar SIZE 50, 12 ;

ACTION ( oDlgCar:End() ) CANCEL

ACTIVATE DIALOG oDlgCar CENTERED

DbCloseAll()

Return( .T. )

*-----------------------------------------------------------

Function Backup1(cFile,cPath,mUBI_DES,cPass)

LOCAL aFiles , nI , aZip:={} , nFiles , cDbf

If FILE(mUBI_DES+cFile+'.zip') .and. ;

!MsgNoYes(oemtoansi('Archivo Existente, desea Reemplezar ?'),;

oemtoansi('Elija opcion SI/NO') )

Return( .T. )

EndIf

If FILE(cFile+'.zip')

FErase(cFile+'.zip')

EndIf

//-> Extensao dos Arquivos

aFiles := Array(ADir(cPath+"*.DBF"))

nFiles := aDir(cPath+"*.DBF",aFiles)

FOR nI=1 TO nFiles

cDbf := cPath+aFiles[nI]

AAdd(aZip,cDbf)

CursorWait()

NEXT nI

aFiles := Array(ADir(cPath+"*.DBT"))

nFiles := aDir(cPath+"*.DBT",aFiles)

FOR nI=1 TO nFiles

cDbf := cPath+aFiles[nI]

AAdd(aZip,cDbf)

CursorWait()

NEXT nI

aFiles := Array(ADir(cPath+"*.FTP"))

nFiles := aDir(cPath+"*.FTP",aFiles)

FOR nI=1 TO nFiles

cDbf:=cPath+aFiles[nI]

AAdd(aZip,cDbf)

CursorWait()

NEXT nI

FOR nI=1 TO Len(aZip)

CursorWait()

HB_ZipFile(mUBI_DES+cFile,aZip[nI],,,,,.F.)

NEXT nI

MsgInfo( 'Carpeta de Origen: '+cPath+chr(13)+;

'Carpeta de Destino: '+mUBI_DES+chr(13)+;

'Archivo ZIP: '+cFile+chr(13)+;

'Cantidad de Archivo Guardados: '+str(Len(aZip),3), ;

'InformaciÃ³n General')

Return( .T. )

*-----------------------------------------------------------

Function Backup2(cPath,mUBI_ORI,cFile)

LOCAL aFiles

If !FILE(cFile+'.zip')

MsgInfo('Archivo Inexistente','Archivo Inexistente')

Return( .T. )

EndIf

aFiles:=HB_GetFilesInZip(cFile)

HB_UnZipFile(mUBI_ORI+cFile,,.T.,,cPath,aFiles,NIL)

Return( .T. )

Function DIRECMain()

LOCAL cDirName := cGetDir()

MsgInfo( LFN2SFN( cDirName ) )

Return LFN2SFN( cDirName )

id=code>id=code>

// Abracos

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Editado por - kapiaba on 28/11/2008 10:19:16

kapiaba · November 28, 2008

Galera, to sem tempo e sem inteligencia... kkkkkkkkkkkk

Gentileza, uma alma caridosa poderia MELHORAR esta ROTINA,

Colocar METER, SENHA, traduzir, incorporar o que mais quiser... FREE.

Gostaria de ver varias IDEIAS diferentes.

Adoro gente inteligente.

#Include "FiveWin.Ch"

STATIC mUBI_ORI

STATIC mUBI_DES

STATIC mNOMARCHIVO

Function BackupZIP()

LOCAL oDlgCar

LOCAL lSalir:= .F.

LOCAL oFont1

DbCloseAll()

DEFINE FONT oFont1 NAME 'Arial' SIZE 0,-15 BOLD

DEFINE DIALOG oDlgCar FROM 0, 0 TO 12, 80 ;

TITLE 'BACKUP de INFORMACION'

@ 1, 8 BUTTON 'Armar Backup' OF oDlgCar SIZE 50, 12 ;

ACTION ( ArmarBackup(1) )

@ 2, 8 BUTTON 'Traer Backup' OF oDlgCar SIZE 50, 12 ;

ACTION ( ArmarBackup(2) )

@ 3, 8 BUTTON 'Salir' OF oDlgCar SIZE 50, 12 ;

ACTION ( oDlgCar:End() )

ACTIVATE DIALOG oDlgCar CENTERED

DbCloseAll()

Release All

Return( .T. )

*-----------------------------------------------------------------------------

Function ArmarBackup(Arma1Extrae2)

LOCAL oDlgCar

LOCAL lSalir := .F.

LOCAL oFont1

LOCAL oUBI_ORI, oUBI_DES

LOCAL xUBI_ORI := CurDrive()+":\"+CurDir()+"\"

mUBI_ORI := xUBI_ORI+SPACE(60-LEN(xUBI_ORI))

mUBI_DES := xUBI_ORI+SPACE(60-LEN(xUBI_ORI))

mNOMARCHIVO := SPACE(20)

DbCloseAll()

DEFINE FONT oFont1 NAME 'Arial' SIZE 0,-9 //BOLD

DEFINE DIALOG oDlgCar FROM 0, 0 TO 15, 80 ;

TITLE If( Arma1Extrae2==1,'ARMA','EXTRAE`') + ;

' BACKUP de INFORMACION'

@ 1.750, 1 SAY 'Carpeta de Origen' OF oDlgCar

@ 1.500,10 BUTTON 'Buscar' OF oDlgCar SIZE 20, 10 Font oFont1 ;

ACTION( mUBI_ORI:=DIRECMain(), ;

mUBI_ORI:=ALLTRIM(mUBI_ORI)+'\', ;

mUBI_ORI:=mUBI_ORI+space(60-len(mUBI_ORI)), ;

oUBI_ORI:Refresh() )

@ 2,10 GET oUBI_ORI var mUBI_ORI of oDlgCar

@ 2.625, 1 SAY 'Carpeta de Destino' of oDlgCar

@ 2.300,10 BUTTON 'Buscar' OF oDlgCar SIZE 20, 10 Font oFont1 ;

ACTION( mUBI_DES:=DIRECMain(), ;

mUBI_DES:=ALLTRIM(mUBI_DES)+'\', ;

mUBI_DES:=mUBI_DES+space(60-len(mUBI_DES)), ;

oUBI_DES:Refresh() )

@ 3,10 GET oUBI_DES var mUBI_DES of oDlgCar

@ 3.500, 1 SAY 'Nombre de Archivo ZIP' of oDlgCar

@ 4,10 GET mNOMARCHIVO of oDlgCar

If Arma1Extrae2 == 1

@ 4, 10 BUTTON 'Generar Backup' OF oDlgCar SIZE 50, 12 ;

ACTION ( Backup1(ALLTRIM(mNOMARCHIVO), ;

ALLTRIM(mUBI_ORI), ALLTRIM(mUBI_DES)), ;

oDlgCar:End() )

Else

@ 4, 10 BUTTON 'Extraer Backup' OF oDlgCar SIZE 50, 12 ;

ACTION ( Backup2(ALLTRIM(mUBI_DES), ALLTRIM(mUBI_ORI), ;

ALLTRIM(mNOMARCHIVO)), oDlgCar:End() )

EndIf

@ 4, 20 BUTTON 'Salir' OF oDlgCar SIZE 50, 12 ;

ACTION ( oDlgCar:End() ) CANCEL

ACTIVATE DIALOG oDlgCar CENTERED

DbCloseAll()

Return( .T. )

*-----------------------------------------------------------

Function Backup1(cFile,cPath,mUBI_DES,cPass)

LOCAL aFiles , nI , aZip:={} , nFiles , cDbf

If FILE(mUBI_DES+cFile+'.zip') .and. ;

!MsgNoYes(oemtoansi('Archivo Existente, desea Reemplezar ?'),;

oemtoansi('Elija opcion SI/NO') )

Return( .T. )

EndIf

If FILE(cFile+'.zip')

FErase(cFile+'.zip')

EndIf

//-> Extensao dos Arquivos

aFiles := Array(ADir(cPath+"*.DBF"))

nFiles := aDir(cPath+"*.DBF",aFiles)

FOR nI=1 TO nFiles

cDbf := cPath+aFiles[nI]

AAdd(aZip,cDbf)

CursorWait()

NEXT nI

aFiles := Array(ADir(cPath+"*.DBT"))

nFiles := aDir(cPath+"*.DBT",aFiles)

FOR nI=1 TO nFiles

cDbf := cPath+aFiles[nI]

AAdd(aZip,cDbf)

CursorWait()

NEXT nI

aFiles := Array(ADir(cPath+"*.FTP"))

nFiles := aDir(cPath+"*.FTP",aFiles)

FOR nI=1 TO nFiles

cDbf:=cPath+aFiles[nI]

AAdd(aZip,cDbf)

CursorWait()

NEXT nI

FOR nI=1 TO Len(aZip)

CursorWait()

HB_ZipFile(mUBI_DES+cFile,aZip[nI],,,,,.F.)

NEXT nI

MsgInfo( 'Carpeta de Origen: '+cPath+chr(13)+;

'Carpeta de Destino: '+mUBI_DES+chr(13)+;

'Archivo ZIP: '+cFile+chr(13)+;

'Cantidad de Archivo Guardados: '+str(Len(aZip),3), ;

'InformaciÃ³n General')

Return( .T. )

*-----------------------------------------------------------

Function Backup2(cPath,mUBI_ORI,cFile)

LOCAL aFiles

If !FILE(cFile+'.zip')

MsgInfo('Archivo Inexistente','Archivo Inexistente')

Return( .T. )

EndIf

aFiles:=HB_GetFilesInZip(cFile)

HB_UnZipFile(mUBI_ORI+cFile,,.T.,,cPath,aFiles,NIL)

Return( .T. )

Function DIRECMain()

LOCAL cDirName := cGetDir()

MsgInfo( LFN2SFN( cDirName ) )

Return LFN2SFN( cDirName )

id=code>id=code>

// Abracos

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Editado por - kapiaba on 28/11/2008 10:19:16

LUIS1361303120 · November 28, 2008

vou olhar, vc usa alguma coisa que copia para cd ou dvd, ele so compacta ...

luis (minas) gerais,, ei vc e sortudo em mora perto das coisas + lindas do mundo, a se aqui em minas tivesse essas mulheres da zona, gostosas pra chuchu, eu ia me acabar,trsrrrsrsrsrsrs

LUIS1361303120 · November 28, 2008

tentei compilar mas da muito erro, tem jeito de vc tentar compilar pra ver os erros

sambomb · November 28, 2008

Estou desenvolvendo um programa com essa finalidade mas estou agarrado.

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14323

MSN: samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02

kapiaba · November 28, 2008

citaÃ§Ã£o:
vou olhar, vc usa alguma coisa que copia para cd ou dvd, ele so compacta ...

luis (minas) gerais,, ei vc e sortudo em mora perto das coisas + lindas do mundo, a se aqui em minas tivesse essas mulheres da zona, gostosas pra chuchu, eu ia me acabar,trsrrrsrsrsrsrs

id=quote>id=quote>

http://fivetechsoft.com/forums/viewtopic.php?t=13749

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

kapiaba · November 28, 2008

citaÃ§Ã£o:
tentei compilar mas da muito erro, tem jeito de vc tentar compilar pra ver os erros

id=quote>id=quote>

LEVE PARA C:\FWH\SAMPLES

INCORPORE A LIB DE BACKUPS.

HBZIP.LIB ou

ZLIB.LIB versoes mais novas do FIVE.

AbraÃ§os.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Naruto uZumaki · November 28, 2008

Â¬Â¬'id=size6>

____________________________

Eder Xavier

Msn:eder_xavier_2@hotmail.com

C:\Xharbour Free\fivewin 8.05\workshop\VSX

LUIS1361303120 · November 28, 2008

essa fivetech e o kapeta

LUIS1361303120 · November 28, 2008

deu certo a compilacao

kapiaba · December 1, 2008

Bora pessoas, quero ver se voces sÃ£o bÃ£os...

AbraÃ§os.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Sign In

BACKUP FREE - Novas idÃ©ias.

Recommended Posts

kapiaba

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

LUIS1361303120

Link to comment

Share on other sites

LUIS1361303120

Link to comment

Share on other sites

sambomb

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

Naruto uZumaki

Link to comment

Share on other sites

LUIS1361303120

Link to comment

Share on other sites

LUIS1361303120

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

Join the conversation

Browse

Activity