epelpad

VB.net Modulo para hacer backups de carpetas de programas

Hola a todos en este post les dejare un modulo que cree en consola echo en vb.net
este modulo sirve para copiar carpetas por si se quiere hacer un backup...

aqui les dejo el codigo

#Region "Imports"

Imports System.IO

Imports System.IO.File

#End Region

Module Module1

Public m_Destino As String

Sub Main()

Dim args() As String

args = Environment.GetCommandLineArgs()

If Environment.GetCommandLineArgs().Length >; 2 Then

Dim diSource As New DirectoryInfo(args(1).ToString)

Dim diDestiny As New DirectoryInfo(args(2).ToString & Date.Now.Year & "_" & Date.Now.Month & "_" & Date.Now.Day)

CopyFiles(diSource, diDestiny, True)

Else

Console.Write("No se ha definido el origen o el destino")

End If

End Sub

Private Sub CopyFiles(ByVal p_source As DirectoryInfo, ByVal p_destination As DirectoryInfo, _

ByVal blOverwrite As Boolean)

Dim diSourceSubDirectories() As DirectoryInfo

Dim fiSourceFiles() As FileInfo

fiSourceFiles = p_source.GetFiles()

diSourceSubDirectories = p_source.GetDirectories()

If Not p_destination.Exists Then p_destination.Create()

For Each diSourceSubDirectory As DirectoryInfo In diSourceSubDirectories

CopyFiles(diSourceSubDirectory, New DirectoryInfo(p_destination.FullName & "" & _

diSourceSubDirectory.Name), blOverwrite)

Next

For Each fiSourceFile As FileInfo In fiSourceFiles

Console.Write("Copiando Fichero " & fiSourceFile.ToString & vbCrLf)

fiSourceFile.CopyTo(p_destination.FullName + "" + fiSourceFile.Name, blOverwrite)

Next

End Sub

End Module



en definitiva el codigo es muy entendible para una persona que conose masomenos los comandos

espero que les sirva de algo ami me sirvio suerte

0 comentarios - VB.net Modulo para hacer backups de carpetas de programas