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
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
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