José Antônio,
Eu prefiro ensinar do que fazer pra você, mas já que está dificil...
'Fiz apenas uma modificacao no seu script: colocar a pasta raiz do backup
'em uma variavel (facilita o meu teste) e tambem uma variavel com os arquivos de origem
strRaizBackup = "F:\BACKUP_ADMIN\" 'Aqui é a pasta destino, ainda será criada uma subpasta
strPastaBackup = "D:\RD_ADMIN\ADMIN\admin_compactado" 'Aqui é o que será copiado (origem)
'Aqui começa o seu script, fiz apenas uma modificacao (newfolder=...) e exclui as duas ultimas linhas
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell=CreateObject("Wscript.Shell")
dNow = Now
yyyy = Right(Year(dNow), 4)
mt = Right("00" & Month(dNow), 2)
dd = Right("00" & Day(dNow), 2)
hh = Right("00" & Hour(dNow), 2)
nn = Right("00" & Minute(dNow), 2)
ss = Right("00" & Second(dNow), 2)
'A linha abaixo eu modifiquei, agora usa variavel setada no inicio do script
NewFolder = strRaizBackup & "BACKUP_ADMIN " & dd & "-" & mt & "-" & yyyy & "." & hh & "-" & nn & "\"
objFSO.CreateFolder NewFolder
'Até aqui é o seu script (ele apenas criou a pasta de destino) ===========================================
'Agora começa a cópia com progresso =================
Const FOF_CREATEPROGRESSDLG = &H0&
ParentFolder = NewFolder 'Aqui é configurado a pasta de destino
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(ParentFolder)
objFolder.CopyHere strPastaBackup, FOF_CREATEPROGRESSDLG 'Aqui realiza a cópia.
'Aqui acabou a cópia =================
'Esta sua linha não precisa mais, já que a cópia já aconteceu.
'ObjFSO.copyfolder "D:\RD_ADMIN\ADMIN\admin_compactado", NewFolder , true
'A linha abaixo vc pode deixar
objFSO.DeleteFile "D:\RD_ADMIN\ADMIN\admin_compactado\*.rar"
Veja que não tem nenhum bicho de 7 cabeças, é apenas colocar o código no lugar certo, hoje eu consigo ver isto fácil, mas apanhei muito, se não tentar não aprende.
Scripts não tem muito segredo, eu mesmo escrevo pouca coisa do zero, na maior parte do tempo é juntar dois exemplos de código e fazer com que eles conversem, como neste caso. Era apenas uma questão de substituir a parte que vc copiava o diretório e preencher
corretamente os parametros com dados que você já dispunha.Veja como alterei apenas duas palavras do código original.
Fábio de Paula Junior
Mostrar o que está sendo executado em um script
