Archivo ejecutable

22/09/2006 - 22:51 por mfernandez | Informe spam
Hola a todos.

Necesito que me ayuden con la generación de un archivo ejecutable ya sea
*.bat, script. Lo que deseo es que este archivo ejecutable copie de una
carpeta a otra o de un volumen a otro, y antes de copiar genere una carpeta
con nombre de la fecha actual del sistema y luego copie a la carpeta
generada. Con esto quiero tener un respaldo diario y por fechas.

Gracias por la ayuda
 

Leer las respuestas

#1 Marc [MVP Windows]
23/09/2006 - 00:38 | Informe spam
Hace tiempo hice un script que hacía algo similar. Te pego el código y lo adaptas


' Filename: Copy.vbs
' Revision: v1.0 - Paso de parámetros
' Author: Marc [MCSA - MVP Windows]
'
' Date: 07/11/2005
' Revised:
' Sintaxis: Copy.vbs RutaOrigen RutaDestino [SubRutaOrigen]

Const OverWriteFiles = TRUE

Dim Ruta
Dim Fecha
Dim Dia
Dim Mes
Dim Anyo
Dim Encontrado
Dim RutaCopia
Dim ArchivoSI
Dim RutaCarpetaCompartir
Dim CarpetaCompartir
Dim FinRuta

Dia = Day(Now)
If Dia < 10 then
Dia = "0" & Dia
End IF

Mes = Month(Now)
If Mes < 10 then
Mes = "0" & Mes
End IF

Anyo = Mid(Year(Date), 3, 2)


'********************************** Comprobación de argumentos **************************************
If WScript.Arguments.count > 0 Then
RutaCopia = WScript.Arguments.item(0)
RutaCopiaOp = RutaCopia & "\classes"
Else
RutaCopia = InputBox("Ruta origen copia", "Copiar")
RutaCopiaOp = RutaCopia & "\classes"
End If

If WScript.Arguments.count > 0 Then
RutaDestino = WScript.Arguments.item(1)
RutaDestinoOp = RutaDestino & "\classes"
Else
RutaDestino = InputBox("Ruta destino copia", "Copiar")
RutaDestinoOp = RutaDestino & "\classes"
End If


'****************************************************************************************************

Fecha = Anyo & Mes & Dia

RutaCopiaFecha = RutaCopia & "\" & Fecha
RutaCopiaFecha = cstr(RutaCopiaFecha)
RutaDestinoFecha = RutaDestino & "\" & Fecha
RutaDestinoFecha = cstr(RutaDestinoFecha)
RutaCopiaOpFecha = RutaCopiaOp & "\" & Fecha
RutaCopiaOpFecha = cstr(RutaCopiaOpFecha)
RutaDestinoOpFecha = RutaDestinoOp & "\" & Fecha
RutaDestinoOpFecha = cstr(RutaDestinoOpFecha)

strComputer = "."
Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim WshShell

Set WshShell = WScript.Createobject("wscript.shell")
WshShell.Run "Copy.bat "+ RutaCopiaFecha +" "+ RutaDestinoFecha +" "+ RutaCopiaOpFecha +" "+ RutaDestinoOpFecha

'***************************************************************************************************


set objFSO = Nothing
Set WshShell = Nothing

-
Código del "Copy.bat"
-

@echo off

echo. ************************************************
echo. * MapNetwork usuario password Origen Destino
echo. ************************************************

net use k: /DELETE /Y

net use K: \\IPecurso

robocopy "%1" "%2" /s /LOG+:c:\%COMPUTERNAME%\LOGS\Copy.log
robocopy "%3" "%4" /s /LOG+:c:\%COMPUTERNAME%\LOGS\Copy.log

rem net use k: /DELETE /Y

echo. ************************************************




Saludos,

Marc
MVP Windows Shell/User
MCSA Windows Server 2003
Oracle9i Certified Associate (OCA)

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no otorga ningún derecho.

This posting is provided "AS IS" with no warranties, and confers no rights. You assume all risk for your use.

"mfernandez" escribió en el mensaje news:
Hola a todos.

Necesito que me ayuden con la generación de un archivo ejecutable ya sea
*.bat, script. Lo que deseo es que este archivo ejecutable copie de una
carpeta a otra o de un volumen a otro, y antes de copiar genere una carpeta
con nombre de la fecha actual del sistema y luego copie a la carpeta
generada. Con esto quiero tener un respaldo diario y por fechas.

Gracias por la ayuda

Preguntas similares