Compactação de BD com back em outra pasta

[felipesilva 0]

Amigos,

 

Eu tenho uma variavel com o nome do banco de dados vindo por uma querystring.

 

Eu quero compactá-lo criando um backup em outra pasta do server (pasta backup).

 

Queria que alguém me ajudasse com o FSO q tem que:

1- Mover o MDB antigo pra outra pasta

2- Renomear o banco novo compactado para o mesmo nome do banco antigo.

 

Depois eu vou enviar um email pro admin do site para ele saber q foi criado um bck do arquivo para q ele delete depois.

 

Alguém pode me ajudar?

 

Estou usando este codigo mais não funciona:

 

<%arquivo = request.querystring("arquivo")arquivo02 = "a.mdb"loBDCTRCOMP = "Provider=Microsoft.Jet.OLEDB.4.0;" &_              "Data Source=" & "e:\home\gayathri\dados\" &arquivo02& ";"loBDCTRCP = "Provider=Microsoft.Jet.OLEDB.4.0;" &_              "Data Source=" & "e:\home\gayathri\dados\" &arquivo& ";"Set loCompact = Server.CreateObject("jro.JetEngine")loCompact.CompactDatabase loBDCTRCP,loBDCTRCOMPSet loCompact=NothingSet fso = CreateObject("Scripting.FileSystemObject")Set fileObject = fso.GetFile("e:\home\gayathri\dados\" & arquivo)fileObject.Delete Set fileObject = NothingSet fso = NothingSet fso02 = CreateObject("Scripting.FileSystemObject")Set fileObject02 = fso02.GetFile("e:\home\gayathri\dados\" & "a.mdb")'fileObject02.MoveFile "a.mdb",arquivofileObject02.Copy "a.mdb", arquivofileObject02.Delete "a.mdb"Set fileObject02 = NothingSet fso02 = Nothing%>

Abraços.

 

Felipe Silva

[felipesilva 0]

Alguém pode me ajudar???Felipe