No estás conectado. Conéctate o registrate

[Aporte] BackUp Charfiles.(Alkon 0.11.5)

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 [Aporte] BackUp Charfiles.(Alkon 0.11.5) el Miér Abr 29, 2009 1:47 pm

ArreK


USUARIO REGISTRADO
Hola, estuve mirando en la web, y este codigo me parecio interesante.

Lo que hace es copiar los distintos archivos que se encuentran dentro de una carpeta, a otra.
Esto yo lo utilize para hacer un respaldo de mi servidor (x precaucion), cada uno lo puede hacer a su manera.

Para usarlo deben declarar esta funcion en el formulario donde la vallan a utilizar.



Código:
Private Function CopiarCarpeta(ByVal RutaOrigen As String, ByVal RutaDestino As String, Optional ByVal Comodines As String = "*.*")
Dim NombreArchivo As String
If Right(RutaOrigen, 1) <> "\" Then RutaOrigen = RutaOrigen & "\"
If Right(RutaDestino, 1) <> "\" Then RutaDestino = RutaDestino & "\"
NombreArchivo = Dir(RutaOrigen & Comodines)
Do While Len(NombreArchivo) > 0
FileCopy RutaOrigen & NombreArchivo, RutaDestino & NombreArchivo
NombreArchivo = Dir()
Loop
End Function





Luego para usarlo seria

Call CopiarCarpeta "carpeta a copiar", "Carpeta de destino"

En mi caso que lo use para copiar los charfiles seria:

1- creamos un timer en el frmmain con propiedades:
Nombre: GuardarBackup
Enable : True
Invterval: 60000
2- Al final del codigo del frmmain pegamos:


Numero
Código:
Private Function CopiarCarpeta(ByVal RutaOrigen As String, ByVal RutaDestino As String, Optional ByVal Comodines As String = "*.*")
Dim NombreArchivo As String
If Right(RutaOrigen, 1) <> "\" Then RutaOrigen = RutaOrigen & "\"
If Right(RutaDestino, 1) <> "\" Then RutaDestino = RutaDestino & "\"
NombreArchivo = Dir(RutaOrigen & Comodines)
Do While Len(NombreArchivo) > 0
FileCopy RutaOrigen & NombreArchivo, RutaDestino & NombreArchivo
NombreArchivo = Dir()
Loop
End Function




Código:
Private Sub GuardarBackup_Timer()
If Hour(Now) = 6 Then
        Call CopiarCarpeta(App.Path & "\Charfile\", "C:\BackupRodAoCharfiles")
        End If
End Sub



A "C:\BackupRodAoCharfiles", lo cambian por la ubicacion de su destino.

Espero que les sirva

Saludos!

Fuente: By GS-ZONE.

Ver perfil de usuario

2 Re: [Aporte] BackUp Charfiles.(Alkon 0.11.5) el Miér Abr 29, 2009 2:09 pm

HeLLeW


ADMINISTRADOR
Muy buen aporte!
Esperamos mas aportes tuyos!


_________________

Ver perfil de usuario http://briansoft.lifeme.net

3 Re: [Aporte] BackUp Charfiles.(Alkon 0.11.5) el Miér Abr 29, 2009 2:12 pm

ArreK


USUARIO REGISTRADO
Ya hice 5 qeres mas ??? entonces mas tendras!!!

Pero ponganme puntuacion!

Ver perfil de usuario

4 Re: [Aporte] BackUp Charfiles.(Alkon 0.11.5) el Miér Abr 29, 2009 3:20 pm

Crixis


MODERADOR GLOBAL
Excelente Aporte De (10+)

Suerte y segui asi que vas en buen camino Smile


Atte: Crixis(Cristian)


_________________
Ver perfil de usuario

5 Re: [Aporte] BackUp Charfiles.(Alkon 0.11.5) el Miér Abr 29, 2009 3:23 pm

ArreK


USUARIO REGISTRADO
Gracias a vos cristian y Hellew por realizar esta grandiosa comunidad.
Y gracias especiales a Cristian por regalarme esta cuenta Very Happy

Ver perfil de usuario

6 sheker hunder el Jue Abr 30, 2009 10:14 pm

Sheker hunder


USUARIO REGISTRADO
Bien , bastante bien gracias..!

Ver perfil de usuario

7 Arrek el Vie Mayo 01, 2009 4:50 pm

ArreK


USUARIO REGISTRADO
Gracias!!!

Cierren THREAD ya no qiero qe me digan mas Gracias .

THREAD CLOSED ¡plz!

Ver perfil de usuario

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.