Script:

Option Explicit

' Definir variáveis
Dim objFSO, origem, destino, dataAtual, pastaDestino

' Caminho da pasta de origem e destino
origem = "C:\Origem\"
destino = "D:\Backup\"

' Obter a data atual para criar uma pasta com a data
dataAtual = Year(Now) & "-" & Right("0" & Month(Now), 2) & "-" & Right("0" & Day(Now), 2)
pastaDestino = destino & dataAtual & "\"

' Criar o objeto FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Verificar se a pasta de destino existe, se não, criar
If Not objFSO.FolderExists(pastaDestino) Then
    objFSO.CreateFolder(pastaDestino)
End If

' Copiar arquivos da origem para a pasta de destino
objFSO.CopyFolder origem, pastaDestino

' Limpar variáveis
Set objFSO = Nothing

' Mensagem de conclusão
WScript.Echo "Backup concluído com sucesso!"

Como Executar o Script:

1. Abra o Bloco de Notas no seu computador.
2. Copie e cole o código do script acima no Bloco de Notas.
3. Salve o arquivo com a extensão .vbs, por exemplo, backup_diario.vbs.
4. Para executar o script, clique duas vezes no arquivo salvo.
5. Uma mensagem de confirmação aparecerá ao final do processo, indicando que o backup foi concluído com sucesso.