Prezados, Bom Dia,
Estou precisando fazer uma rotina de backup, sendo que, o script deve ler de um arquivo de texto o diretório das pastas que deverão estar no processo de backup.
eu já consigo ler o txt, abrir e ler as linhas, porém, não consegui usar o conteúdo de dentro do .txt para definir o destino e a origem do backup, segue abaixo como está o andamento do meu script, se alguem puder me ajudar, fico grato.
'Calcular Espaço do HD
Set ObjetoWMI = GetObject("winmgmts:")
set discoD = ObjetoWMI.get("win32_logicalDisk.deviceID='D:'")
Espacolivre = discoD.freespace
'Variavel Data
data = day(date) & "-" & month(date) & "-" & Year(date)
'Ler Arquivos
Const conForReading = 1
'Declare Variáveis
Dim objFSO, objOrg, objDes
'Configurar Objetos
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOrg = objFSO.OpenTextFile("D:\Backup\Origem.txt", 1, False)
Set objDes = objFSO.OpenTextFile("D:\Backup\Destino.txt", 1, False)
'Ler Arquivos de Texto
do while not objOrg.atendofstream
origem = objOrg.Readline
destino = objDes.Readline
'Definindo Pasta
Set Pasta_Org = objFSO.GetFolder (origem)
Set Pasta_Des = objFSO.GetFolder (destino)
'Imprimir Caminho na Tela
wscript.echo Pasta_Org
wscript.echo Pasta_Des
For Each Arquivo In Pasta_Org.Files
If not objFSO.GetExtensionName (Arquivo) = "exe" Then
total = total + Arquivo.size
End If
Next
'Criação LOG
Set arqSaida = objFSO.CreateTextFile("D:\Log\Log_" & data & ".txt", true)
If total < Espacolivre Then
For Each Arquivo In Pasta_Org
If not objFile.GetExtensionName(Arquivo) = "exe" then
objFSO.copyFolder (Pasta_Org) + arquivo.Name, (Pasta_Des) + arquivo.Name
arqSaida.WriteLine(arquivo.Name & " - " & arquivo.size)
End if
Next
End If
loop
