none
Script o Bat para realizar copia seguridad datos RRS feed

  • Pregunta

  • Buenas tardes a todos

     

    Necesito que me ayudeis a realizar un script o copia de seguridad de una carpeta a otra ubicacion con las siguientes premisas:

     

    Tengo un servidor: servidor1

    El recurso compartido destino es \\equipo\direct1\direct2

    El directorio de origen es D:\directorio1\directorio2\*prueba\* (Todos los ficheros de directorio que terminan con la palabra prueba dentro del directorio2, hay que copiarlos al recurso compartido.

    Una vez copiados hay que comprimirlos a otro directorio M:\prueba_historico\<fecha y numero>.rar o zip y borrarlos del directorio al que se movio.

     

     

     

    martes, 21 de diciembre de 2010 13:46

Respuestas

  • Una parte debería contener algo como esto:

    sFolder = "D:\directorio1\directorio2"

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fol = fso.GetFolder(sFolder)

    For Each fil in fol.Files
    If ucase(Right(fil.name, 6) = "PRUEBA" Then
    ' Incluir en la copia
    Else
    ' No incluir en la copia
    End If
    Next

    Habría que hacer una subrutina que copie la carpeta con todos sus elementos, tomando como parámetro el origen y el destino, e invocarlo donde puse el comentario ' Incluir en la copia

    Dime si te funciona.

    • Marcado como respuesta Ismael Borche viernes, 1 de abril de 2011 1:59
    jueves, 23 de diciembre de 2010 12:15
  • Buenas tardes a todos

     

    Necesito que me ayudeis a realizar un script o copia de seguridad de una carpeta a otra ubicacion con las siguientes premisas:

     

    Tengo un servidor: servidor1

    El recurso compartido destino es \\equipo\direct1\direct2

    El directorio de origen es D:\directorio1\directorio2\*prueba\* (Todos los ficheros de directorio que terminan con la palabra prueba dentro del directorio2, hay que copiarlos al recurso compartido.

    Una vez copiados hay que comprimirlos a otro directorio M:\prueba_historico\<fecha y numero>.rar o zip y borrarlos del directorio al que se movio.

     

     

     


    ¿No es más fácil que lo hagas con la utilidad gratuita de Microsft ROBOCOPY? Te guarda hasta los permisos si así lo quieres...

    O si, como expones, lo tienes que comprimir rsync funciona muy bien..


    elEdu
    • Marcado como respuesta Ismael Borche viernes, 1 de abril de 2011 1:59
    martes, 4 de enero de 2011 15:49

Todas las respuestas

  • Una parte debería contener algo como esto:

    sFolder = "D:\directorio1\directorio2"

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fol = fso.GetFolder(sFolder)

    For Each fil in fol.Files
    If ucase(Right(fil.name, 6) = "PRUEBA" Then
    ' Incluir en la copia
    Else
    ' No incluir en la copia
    End If
    Next

    Habría que hacer una subrutina que copie la carpeta con todos sus elementos, tomando como parámetro el origen y el destino, e invocarlo donde puse el comentario ' Incluir en la copia

    Dime si te funciona.

    • Marcado como respuesta Ismael Borche viernes, 1 de abril de 2011 1:59
    jueves, 23 de diciembre de 2010 12:15
  • Buenas tardes a todos

     

    Necesito que me ayudeis a realizar un script o copia de seguridad de una carpeta a otra ubicacion con las siguientes premisas:

     

    Tengo un servidor: servidor1

    El recurso compartido destino es \\equipo\direct1\direct2

    El directorio de origen es D:\directorio1\directorio2\*prueba\* (Todos los ficheros de directorio que terminan con la palabra prueba dentro del directorio2, hay que copiarlos al recurso compartido.

    Una vez copiados hay que comprimirlos a otro directorio M:\prueba_historico\<fecha y numero>.rar o zip y borrarlos del directorio al que se movio.

     

     

     


    ¿No es más fácil que lo hagas con la utilidad gratuita de Microsft ROBOCOPY? Te guarda hasta los permisos si así lo quieres...

    O si, como expones, lo tienes que comprimir rsync funciona muy bien..


    elEdu
    • Marcado como respuesta Ismael Borche viernes, 1 de abril de 2011 1:59
    martes, 4 de enero de 2011 15:49