[Resolvido]Copiar arquivos para rede

Estou tentando copiar arquivos para outro PC que está na rede, mas naonda certo.
Mesmo mapeando ela da erro.

Código:

@echo off

REM Copia todos os arquivos da pasta 'Arquivos' para a pasta 'Backup'
xcopy /S /C /E /Y "C:\Users\Judicial\Desktop\Bcn\*.*" "\\DESKTOP-TCHFC3C\ServiçoSocial_(EM_TESTE)\CopiasAPB"
pause
exit

CÓDIGO:
@echo off

REM Mapear a pasta de rede para uma letra de unidade
net use Z: "\\DESKTOP-TCHFC3C\ServiçoSocial_(EM_TESTE)\CopiasAPB"

REM Copiar todos os arquivos da pasta 'Arquivos' para a pasta de rede
xcopy /S /C /E /Y "C:\Users\Judicial\Desktop\BPA\*.*" Z:\

REM Desmapear a letra de unidade após a conclusão da cópia
net use Z: /delete

pause
exit

UP

Colar numa folha de texto, salvar e depois renomear para .VBS

Código:

Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\Users\Judicial\Desktop\Bcn\*.*" , "\\DESKTOP-TCHFC3C\ServiçoSocial_(EM_TESTE)\CopiasAPB\", OverwriteExisting
If Err = 0 Then
    Wscript.Echo "Atualizado com sucesso..."
Else
    Wscript.Echo "Falha na atualização."
End If

Boa tarde Jão Paulo, .
Funcionou, mas  o vbs não pega as subpastas, então eu acrescentei mais linhas no copyFile com todos os nomes das pasta para copiar.
Tentei alterar com algumas parte, mas o vbs ele não atende alguns requisitos.
Teria como essa forma de pegar tudo o que está contido na pasta raiz? (pasta e subpastas...) para não precisar ficar vendo as pastas dos funcionários para ver se eles criaram mais.
Mas está de grande valia.
Obrigado...

Você abriu este tópico pedindo para copiar ficheiros, não pastas.

Por isso lhe passei o CopyFile, para pastas completas, pesquise por CopyFolder.

Obrigado Jp foi de grande valia. Vou pesquisar.