0

En este momento tengo la necesidad de crear un script que copie los archivos de una carpeta compartida a una carpeta local pero tengo un error en la ruta de la ubicación de red.

El código que estoy empleando es este:

Option Explicit
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.CopyFolder "\\servidor\carpeta_compartida" , "C:\carpeta_local" , True

Tambien intente:

objFSO.CopyFolder "//servidor/carpeta_compartida" , "C:/carpeta_local" , True

Desde una carpeta local funciona correctamente con los slash de la primera forma. He investigado y no he conseguido informacion con respecto a esto, agradezco de antemano cualquier ayuda.

1 respuesta 1

0

Puedes hacerlo así:

CreateObject("Scripting.FileSystemObject").CopyFolder _
"\\E\\servidor\carpeta_compartida", _
CreateObject("WScript.Shell").ExpandEnvironmentStrings("%USERPROFILE%") &
_
"\Escritorio\MiCarpetaLocal", True

Éxitos!

2
  • gracias por la respuesta, lo intente y no me funciono
    – Legalins
    el 3 sep. 2021 a las 18:42
  • Cambiaste las variables? el 14 sep. 2021 a las 1:07

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.