miércoles, 6 de agosto de 2014

RespaldaProyectos 0.0.1

Buenas gente, estoy empezando un nuevo proyecto que consiste en hacer respaldos automáticos de nuestros proyectos gambas simplemente dando la ruta de la carpeta del proyecto y el lugar donde queremos hacer el respaldo por ahora es manual intentare hacer automático mas adelante pero creo que es un programita útil super super liviano, la idea es que se ejecute con el sistema así puede hacer las copias según como las hayamos programado, si por día por hora o lo que fuera. por ahora es manual recién comienzo el proyecto.



' Gambas class file
' por postapase
Public CarpetaDeProyecto As String
Public LugarDErespaldo As String
 
Public Sub _new()

End

Public Sub Form_Open()
 Me.Center
 txtLugarProyecto.Text = Settings["CarpetasDEtrabajo/Proyecto", ""]
 txtLugarDondeRespaldar.Text = Settings["CarpetasDEtrabajo/LugarDeRespaldo", ""]
End

Public Sub Button1_Click()
 Dialog.Path = User.Home
 If Dialog.SelectDirectory() Then Return
 CarpetaDeProyecto = Dialog.Path
 txtLugarProyecto.Text = CarpetaDeProyecto
 Print CarpetaDeProyecto
End

Public Sub Button4_Click()
  Me.Close
End

Public Sub Button2_Click()
 Dialog.Path = User.Home
 If Dialog.SelectDirectory() Then Return
 LugarDErespaldo = Dialog.Path
 txtLugarDondeRespaldar.Text = LugarDErespaldo
End

Public Sub btnAplicar_Click()
  Settings["CarpetasDEtrabajo/Proyecto"] = CarpetaDeProyecto
  Settings["CarpetasDEtrabajo/LugarDeRespaldo"] = LugarDErespaldo
  Settings.Save
End

Public Sub btnRespaldar_Click()
 Dim TiempoRespaldo As Process
 Dim entrada As String
 Dim salida As String
 Dim carpetafecha As String
 
  entrada = Settings["CarpetasDEtrabajo/Proyecto", ""]
  salida = Settings["CarpetasDEtrabajo/LugarDeRespaldo", ""]

  carpetafecha = salida &/ Replace$(CString(Time), ":", "-")

  If Exist(salida) = True Then
    Mkdir carpetafecha
  Else
    Message("Carpeta destino no encontrada!")
  Endif

  TiempoRespaldo = Shell "cp -Rf " & entrada & " " & carpetafecha

End


Public Sub salir_Click()
  Me.Close
End

Public Sub Autor_Click()
  Autor1.ShowModal
End


RespaldaProyectos-0.0.1.tar.gz


No hay comentarios.:

Publicar un comentario

www.gambas-es.org

www.gambas-es.org
Si quieres que tu curva de aprendizaje sea rápida, regístrate en este gran foro en español.