Jump to content
Fivewin Brasil

Backup.bat

ZECA

By ZECA
in Programação

 Share

Recommended Posts

ZECA Newbie

ZECA

Posted
Posted

Bom dia a todos!!!

Estou criando um arquivo bat para fazer backup de determinados arquivos e tenho as seguintes dúvidas.

1. O backup é feito do HD fixo para HD externo(drive H:),via USB. Tem algum comando que verifica se o HD externo está espetado no H: que possa ser incluso no backup.bat, (mesmo porque se o HD não estiver espetado o drive H: não aparece), tipo IF EXIST H: ?

2. Windows XP. Como faço para dentro de determinado horario ele acionar o backup.bat automaticamente para efetuar as copias?

Grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Link to comment
Share on other sites
ZECA Newbie

ZECA

Posted
  • Author
Posted

Bom dia a todos!!!

Estou criando um arquivo bat para fazer backup de determinados arquivos e tenho as seguintes dúvidas.

1. O backup é feito do HD fixo para HD externo(drive H:),via USB. Tem algum comando que verifica se o HD externo está espetado no H: que possa ser incluso no backup.bat, (mesmo porque se o HD não estiver espetado o drive H: não aparece), tipo IF EXIST H: ?

2. Windows XP. Como faço para dentro de determinado horario ele acionar o backup.bat automaticamente para efetuar as copias?

Grato

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

2. Windows XP. Como faço para dentro de determinado horario ele acionar o backup.bat automaticamente para efetuar as copias?

Essa parte, eu acho que sei...

Agende uma tarefa do windows xp, que ele executará o backup.

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Editado por - kapiaba on 29/09/2010 11:44:36

Link to comment
Share on other sites
ZECA Newbie

ZECA

Posted
  • Author
Posted

citação:

2. Windows XP. Como faço para dentro de determinado horario ele acionar o backup.bat automaticamente para efetuar as copias?

Essa parte, eu acho que sei...

Agende uma tarefa do windows xp, que ele executará o backup.

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Editado por - kapiaba on 29/09/2010 11:44:36

id=quote>id=quote>

Beleza Kapiaba!!

Quanto a primeira parte será que alguém tem alguma idéia.

Não acho que seja dificil porque se o HD não estiver espetado não existira o drive "H:"

Vou tentar olhar os bats da vida por ai.

Sds

José Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Link to comment
Share on other sites
sambomb Newbie

sambomb

Posted
Posted

Precisa realmente ser feito via BAT?

Você poderia implementar um backup com arquivos zipados.

SamirSSabreu@gmail.com

samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02id=black>

"Acreditar é mais fácil do que pensar: Daí existem muito mais crentes do que pensadores.†Bruce Calvert

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

citação:

Precisa realmente ser feito via BAT?

Você poderia implementar um backup com arquivos zipados.

SamirSSabreu@gmail.com

samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02

id=black>

"Acreditar é mais fácil do que pensar: Daí existem muito mais crentes do que pensadores.†Bruce Calvert

id=quote>id=quote>

Concordo com este muleke aqui, em dicas tem backupeador.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Link to comment
Share on other sites
Ladinilson Rookie

Ladinilson

Posted
Posted

Jose Carlos sugerindo o que o Samir sugeriu, tenho um que uso para fazer backup automatico todos os dias sendo excutado pelo agendador de tarefas do Windows Server, ele esta em 16 bits:



#Include "VGet.Ch"


#define ZIP_NAME  1


#define ZIP_BLOCK 2


#define ZIP_MSG   3


#define NL  Chr( 10 ) + Chr( 13 )


FUNCTION MAIN(op)


PRIVATE drive :=CURDRIVE()


PRIVATE fpath,fatua,fGera,fsai:=ok:=.f.


PRIVATE pTitle,pPrgExe,pDllExe,pHlpExe,pTxtExe,pBm1Exe,pBm2Exe


PRIVATE op:=1


PRIVATE v1:=v3:=v4:=v6:=v5:=v2:=.f.,ListaDBF := {},ListaFPT := {},ListaDBF := {},ListaFPT := {}


PRIVATE cString  := ""


SET DELET OFF


SET 3DLOOK ON


SET SCOR  OFF


SET DATE BRIT


SET MESSAGE TO


SET EPOCH TO 1950


SETHANDLECOUNT(69)


SET CENTURY ON


SET DATE FORMAT TO 'dd/mm/yyyy'


SET EPOCH TO 1960


REQUEST DBFCDX


RDDSETDEFAULT("DBFCDX")


//CMXAUTOOPEN(.f.)


*/


#IfDef __XPP__  // Para Windows XP/NT e 2000


     // Botoes Borland Para 32 Bits


     // Copie a BWCC.DLL PARA BWCCPTB.DLL


     // A BWCC32.DLL - Ela nunca vai abrir em Clipper só em 32 Bits(Harbour)


    // SET RESOURCES TO ".\VIDEO.DLL"  , ;


    //                  ".\CTL3D.DLL"  , ;


     //                 ".\BWCCPTB.DLL", ; // PARA WIN NT / XP / 2000


      //                ".\PREVIEW.DLL"     // TELAS E DIALOGOS


     hBorland := LOADLIBRARY("BWCCPTB.DLL")


 #Else


     // Botoes Borland Para 16 Bits - Windows Ate o Millenium Edition


    // SET RESOURCES TO ".\VIDEO.DLL", ;


     //                 ".\CTL3D.DLL", ;


      //                ".\BWCC.DLL" , ;


       //               ".\PREVIEW.DLL"   // TELAS E DIALOGOS


     hBorland := LOADLIBRARY("BWCC.DLL")


#Endif


         PRIVATE oMeter,mpercentual:=nval:=0,mprompt:="",lEnd:=.f.,oFont,oFont1


         PRIVATE v1,v2,v3


         DEFINE FONT oFont  NAME "MS SANS SERIF" SIZE 0,-6


         DEFINE FONT oFont1 NAME "MS SANS SERIF" SIZE 0,-6 BOLD


         DEFINE ICON oIcon RESOURCE "REORGANIZA"


         DEFINE DIALOG TelReOrgan RESOURCE "ReOrg" TITLE 'Fazendo Backup do Servidor' ICON oIcon


         REDEFINE CHECKBOX ck1   VAR v1  ID 39 OF TelReorgan UPDATE


         REDEFINE CHECKBOX ck2   VAR v2  ID 40 OF TelReorgan UPDATE


         REDEFINE SAY SayReOrgan PROMPT mprompt ID 001 OF TelReOrgan


         REDEFINE PROGRESS MetReOrgan ID 101 OF TelReOrgan


         //REDEFINE PROGRESS oMeter     ID 102 OF TelReOrgan


         REDEFINE SBUTTON butOk      ID 401 OF TelReOrgan  PIXELS  FONT oFont ;


         PROMPT "Iniciar" TEXT POSITION 4 ACTION (ButOk(),lEnd:=.t.,TelReOrgan:End())


         REDEFINE SBUTTON butCancela ID 402 OF TelReOrgan  PIXELS  FONT oFont ;


         PROMPT "Fechar" TEXT POSITION 4 ACTION (lEnd:=.t.,TelReOrgan:End())


//       REDEFINE BITMAP oBmp RESOURCE "reorgan" OF TelReOrgan ID 400 BORDER


         IF op = NIL


            TelReOrgan:bStart := { || GETFILES()),TelReOrgan:END()  }                                


         ENDIF


         oFont:END()


         oFont1:END()


         ACTIVATE DIALOG TelReOrgan ON INIT (MetReOrgan:SetRange( 0, 100 ),MetReOrgan:SetPos( 0 )) //,oMeter:SetRange( 0, 100 ),oMeter:SetPos( 0 ))


         CLOSE DATA                                                       


RETURN NIL


STATIC FUNCTION GETFILES()


INI oIni FILE ("c:\BACKUP\backup.ini")


    GET fPro  SECTION "DIR"       ENTRY "PathPro"  OF oIni


    GET fDoc  SECTION "DIR"       ENTRY "PathDoc"  OF oIni


ENDINI


SET DEFAULT TO (fPro)


oMeter1:nTotal := 0


mpercentual:=mpercentual+25


mprompt:="Coletando arquivos para cópia de "+fPro


SayReOrgan:Refresh()


warrayP      := DIRECTORY(fPro+"*.*")


MetReOrgan:SetPos(mpercentual)


SysRefresh()


mpercentual:=mpercentual+25


mprompt:="Coletando arquivos para cópia de "+fDoc


SayReOrgan:Refresh()


warrayD      := DIRECTORY(fDoc+"*.*")


MetReOrgan:SetPos(mpercentual)


SysRefresh()


GETDIR(@cString)


RETURN nil


function GetDir( cString, oMtrTotal )


   local cReturn


   local aFil    := {}


   mpercentual:=mpercentual+25


   mprompt:="Criando arquivo compactado"


   MetReOrgan:SetPos(mpercentual)


   SysRefresh()


   SayReOrgan:Refresh()


   cReturn := "-D C:\BACKUP\SERVIDOR\PRO"+STZERO(DAY(DATE()),2)+STRZERO(MONTH(DATE()),2)+".ZIP "


   LCHDIR ((fPro))


   cReturn   += "*.* "


   cString   := cReturn


   aFiles := {}


   aFil   := Directory( "*.*" )


   aEval( aFil, { | uFile | AAdd( aFiles, uFile ) } )


   nTotalFiles := Len( aFiles )


   if Len( aFiles ) = 0


      MsgStop( "Nenhum arquivo encontrado!" )


   endif


   ZipFiles( cString, TelReOrgan ,fPro)   


   v1  := .t.


   ck1:REFRESH()


   mpercentual:=mpercentual+25


   MetReOrgan:SetPos(mpercentual)


   SysRefresh()


   SayReOrgan:Refresh()


   cReturn := "-D C:\BACKUP\SERVIDOR\DOC"+STZERO(DAY(DATE()),2)+STRZERO(MONTH(DATE()),2)+".ZIP "  // --> nome do arquivo ZIP


   LCHDIR ((fDoc))


   cReturn   += "*.* "


   cString   := cReturn


   aFiles := {}


   aFil   := Directory( "*.*" )


   aEval( aFil, { | uFile | AAdd( aFiles, uFile ) } )


   nTotalFiles := Len( aFiles )


   if Len( aFiles ) = 0


      MsgStop( "Nenhum arquivo encontrado!" )


   endif


    ZipFiles( cString, TelReOrgan , fDoc)   


    v2  := .t.


    ck2:REFRESH()


return NIL


function ZipFiles( cString, oDlg ,fPat)


   local n,ApagaTodos


   local cCadena := ""


   LCHDIR ((fPat))


   aMsgs := {}


   ZipFile( AllTrim( cString ), oDlg:hWnd )


return NIL


id=code>id=code>
o aquivo INI você pode modificar como quizer...






PathPro=P:\


PathDoc=D:\


id=code>id=code>
espero que ajude


FWH 8.1 / xHB 1.1.0 / Pelles / XDev



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		mkyx
	

				
				
					
						
Apprentice
					
				
			

		

		

			

				


mkyx
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Como pode um back-up executar automaticamente, se tem usuários on-line?


Nos meus testes, deu pau, zerou arquivos, etc.


Para fazer back-up, todos os arquivos não podem está sendo usados.


Mas para colocar no modo automático é só usar um Timer no programa principal, ou colocar no TTRAY do windows.


Uso dbf com cdx.


Pompeo 


Guaratinguetá - SP


(12) 9777-9386


E-Mail: mkyx@ig.com.br


MSN:    mkyx@ig.com.br


Skype:  pardes.mky


www.adentech.com.br


www.rmahost.com


xH 1.1.0 Hb 8.02 - BCC 55



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		sambomb
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


sambomb
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Tenho implementado em xHarbour, após a atualização de indices onde os DBF's estão todos fechados, eu gero um zip com a data do dia e copio para uma pasta a escolha do usuario. Sendo que esta função pode ser utilizada novamente para sobreescrever o backup do dia.


No caso do seu cliente que tem um hd externo onde vai ser feito o backup poderia modificar a rotina para fazer em um lugar alternativo caso não encontre o original. Quando encontrar verificar o caminho alternativo para ver se tem mais algum a ser passado.


Como o Kapiaba já disse, já tem em dicas.


 SamirSSabreu@gmail.com


samirabreu@hotmail.com


Skype: SamirAbreu


xHarbour 1.1.0 + FwXh 8.02id=black>


"Acreditar é mais fácil do que pensar: Daí existem muito mais crentes do que pensadores.†Bruce Calvert



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				
			
			



		

	


	
	
	
	
	
		
	

			
				
				

	
		

			
Join the conversation

			

	
				
					You can post now and register later.
				
				If you have an account, sign in now to post with your account.
				
			

	
		

	




	
	
		
	
		
	
		
	
	
		
		
	
	

		

		


	
		Guest
	


		

			
				
					
				
					
						
    
							
  • 
								


	
	
	
	

								
							
    • 
						

					
				
					
				
			
			
				
					
						
							
						
						



    

		
		

			
		

		
			
 Reply to this topic...

		
		

			

				
					×
					  Pasted as rich text.   Paste as plain text instead
				
			

		

		

			

				  Only 75 emoji are allowed.
			

		

		

			

				×
				  Your link has been automatically embedded.   Display as a link instead
			

		

		

			

			

		

		

			

				×
				  Your previous content has been restored.   Clear editor
			

		

		

			

				×
				  You cannot paste images directly. Upload or insert images from URL.
			

		

		


	

		

			
			

				Loading...
			

		
		
	



	

	

		

			×
			
		

		

	



						
					
				
					
				
					
				
			
			
    
				
					
						
					
						
					
						
							
  • 
								

    
	

    
								
							
    • 
						
					
				
				
					
  • 

	

    • 
				
			

		

	



			
		

	

	
		

			

				
					


    
          Share
    

    

        
        
            

            
        
    


				
				
                

                




				
			

		

	







	

		
			
				Go to topic listing
			
		
	

	




						


					

					


					

				

			

			
		

		
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Create New...
    •