VBScript _copiar arquivo

Copiar arquivo com VBScript

O texto em verde é onde você deve alterar com as informações desejadas

O código:_________________________________

Set x = CreateObject("Scripting.FileSystemObject")
x.CopyFile "Local aquivo de origem" , "Local arquivo de destino"

A execução:_________________________________

1 - Abra o bloco de notas

2 - Copie e cole o código abaixo:

Set x = CreateObject("Scripting.FileSystemObject")
x.CopyFile "C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg" , "C:\Cod_vbscript\"

3 - Salve o arquivo com o nome copiar_arquivo.vbs na area de trabalho OBS.: Não esqueça de colocar o .vbs

4 - Clique sobre o ícone com o nome copiar_arquivo

Esse comando permite copiar arquivos da rede também 

OBS.: Se não copiar o arquivo, talvez seja por que você não tenha permissão de alteração para o local desejado