Boa noite Deyvid,
segue um script que pode te ajudar, no caso fiz com o nome que você indicou esse VBS renomear o arquivo da pasta "wallpaper promocional" para a pasta "wallpaper padrão" mas antes ele verifica se os "wallpaper.jpg" e "wallpaper_natal.jpg" existe caso
algum deles não exista o script é encerrado.
faça o teste e veja se é util...
falow
Dim Objfundo
set objfundo = createobject("scripting.FileSystemObject")
'#### definição do Papel
FundoPadrao ="wallpaper.jpg"
FundoPromo = "wallpaper_Natal.jpg"
'#### Verifica se o papel padrão existe
if objfundo.FileExists ("C:\Plano de fundo\Papel de Parede\wallpaper padrão\"& FundoPadrao &"") = false then
wscript.echo "O Arquivo (" & FundoPadrao & ") não existe"
wscript.quit
end if
'#### Verifica o papel promocional existe
if objfundo.FileExists ("C:\Plano de fundo\Papel de Parede\wallpaper promocional\"& FundoPromo &"") = false then
wscript.echo "O Arquivo (" & FundoPromo & ") não existe"
wscript.quit
end if
'#### Renomeia papel padrão...
Set fileobject = objfundo.GetFile("C:\Plano de fundo\Papel de Parede\wallpaper padrão\"& FundoPadrao &"")
fileobject.Name = "wallpaper_"& day(now) &"_"& month(now) &"_"& year(now) &".jpg"
'#### Renomeia papel promocional para o Padrão
Set fileobject = objfundo.GetFile("C:\Plano de fundo\Papel de Parede\wallpaper promocional\"& FundoPromo &"")
fileobject.Name = FundoPadrao
'#### Move para pasta destino
objfundo.MoveFile "C:\Plano de fundo\Papel de Parede\wallpaper promocional\"& FundoPadrao &"","C:\Plano de fundo\Papel de Parede\wallpaper padrão\"
set objfundo = nothing
