Truco de Visual Basic.NET - Modulo para copiar directorios (Backup de aplicaciones)
#
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
Pon el truco en tus favoritos