Foro de elhacker.net

@echo off
mkdir directorio %DATE%

@ECHO OFF
@ECHO RESPALDO DE ARCHIVOS
REM creamos una variable conteniendo la fecha actual con el formato año-mes-dia
SET FOLDER=%date:~6,4%-%date:~3,2%-%date:~0,2%
REM Creamos la carpeta donde se guardará la copia de respaldo
IF NOT EXIST Backup MKDIR Backup
MKDIR Backup%FOLDER%
REM Seteamos las propiedades del comando XCOPY
SET BACKUPCMD=XCOPY /S /C /D /E /H /I /R /Y
REM Ejecutamos la instrucción
%BACKUPCMD% Actual. Backup%FOLDER%

@Echo Off & Title GetMonthName by Elektro
(CHCP 1252)1>NUL
 
Call :GetMonthName
Echo [+] Current Month Is: "%monthName%"
:: MKDir ".\%monthName%"
 
Pause&Exit /B 0
 
:GetMonthName
Set    "monthNames=Enero Febrero Marzo Abril Mayo Junio Julio Agosto Septiembre Octubre Noviembre Diciembre"
Set /A "monthInt=%date:~3,2%" & REM Set For DD/MM/YYYY
For /F "Tokens=%monthInt%" %%# in ('Echo %monthNames%') do (
   Set "monthName=%%#"
   Exit /B 0
)
Goto:EOF

Echo Off & Title GetMonthName by Elektro
(CHCP 1252)1>NUL
 
Call :GetMonthName
rem Echo [+] Current Month Is: "%monthName%"
MKDir ".\%monthName%"
 
Pause&Exit /B 0
 
:GetMonthName
Set    "monthNames=Enero Febrero Marzo Abril Mayo Junio Julio Agosto Septiembre Octubre Noviembre Diciembre"
Set /A "monthInt=%date:~3,2%" & REM Set For DD/MM/YYYY
For /F "Tokens=%monthInt%" %%# in ('Echo %monthNames%') do (
   Set "monthName=%%#"
   Exit /B 0
)
Goto:EOF

'1.- El usuario indica (en numeros) el mes. Es decir que hay que validar que solo coloque dos caracteres y que sean numeros entre 01 y 12.
'2.- Verificar si la carpeta mes con el año está creada. Ejemplo: Si el usuario indica 09 entonces la carpeta sería Septiembre2015.
'3.- Si la carpeta no existe;se crea la carpeta con el mes y el año, ejemplo Septiembre2015
'4.- Buscar en el directorio donde se está ejecutando el bath todas las carpetas cuya estructura sea año, mes, dia corresponda al mes de la carpeta que acabo de crear y mover esas carpetas a la que acabo de crear. Ejemplo
'Si cree la carpeta miruta/Septiembre2015 y en miruta/ hay carpetas 20150901, 20150902 ... hasta 20150930 y moverla a  miruta/Septiembre2015
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
iMes = InputBox("Introduce el mes: ")
 
If isNumeric(iMes) = False Then
	While isNumeric(iMes) = False
		MsgBox "Solo se permiten valores numéricos", vbExclamation + vbOkOnly
		iMes = InputBox("Introduce el mes: ")
	Wend
End If
 
If iMes < 1 Or iMes > 12 Then
	While iMes < 1 Or iMes > 12
		MsgBox "Solo se permiten valores numéricos entre 1 y 12", vbExclamation + vbOkOnly
		iMes = InputBox("Introduce el mes: ")	
	Wend
End If
 
Select Case iMes
	Case 1
		sMes = "Enero"
	Case 2
		sMes = "Febrero"
	Case 3
		sMes = "Marzo"
	Case 4
		sMes = "Abril"
	Case 5
		sMes = "Mayo"
	Case 6
		sMes = "Junio"
	Case 7
		sMes = "Julio"
	Case 8
		sMes = "Agosto"
	Case 9
		sMes = "Septiembre"
	Case 10
		sMes = "Octubre"
	Case 11
		sMes = "Noviembre"
	Case 12
		sMes = "Diciembre"
End Select
 
sFolder = sMes & Year(Now)
 
If oFSO.FolderExists(sFolder) = True Then
	MsgBox "La carpeta " & sFolder & " ya existe", vbInformation + vbOkOnly
Else
	MsgBox "La carpeta " & sFolder & " no existe", vbInformation + vbOkOnly
	oFSO.CreateFolder(sFolder)
End If

Set oFSO = CreateObject("Scripting.FileSystemObject")
 
iMes = InputBox("Introduce el mes: ")
 
If isNumeric(iMes) = False Then
	While isNumeric(iMes) = False
		MsgBox "Solo se permiten valores numéricos", vbExclamation + vbOkOnly
		iMes = InputBox("Introduce el mes: ")
	Wend
End If
 
If iMes < 1 Or iMes > 12 Then
	While iMes < 1 Or iMes > 12
		MsgBox "Solo se permiten valores numéricos entre 1 y 12", vbExclamation + vbOkOnly
		iMes = InputBox("Introduce el mes: ")	
	Wend
End If
 
Select Case iMes
	Case 1
		sMes = "Enero"
	Case 2
		sMes = "Febrero"
	Case 3
		sMes = "Marzo"
	Case 4
		sMes = "Abril"
	Case 5
		sMes = "Mayo"
	Case 6
		sMes = "Junio"
	Case 7
		sMes = "Julio"
	Case 8
		sMes = "Agosto"
	Case 9
		sMes = "Septiembre"
	Case 10
		sMes = "Octubre"
	Case 11
		sMes = "Noviembre"
	Case 12
		sMes = "Diciembre"
End Select
 
sFolder = sMes & Year(Now)
 
If oFSO.FolderExists(sFolder) = True Then
	MsgBox "La carpeta " & sFolder & " ya existe", vbInformation + vbOkOnly
Else
	MsgBox "La carpeta " & sFolder & " no existe", vbInformation + vbOkOnly
	oFSO.CreateFolder(sFolder)
End If
 
Parent = oFSO.GetParentFolderName(WScript.ScriptFullName)
 
Set Folder = oFSO.GetFolder(Parent)
Set SubFolder = Folder.SubFolders
For Each SubFolders in SubFolder
	If isNumeric(SubFolders.Name) = True Then
		If Len(SubFolders.Name) = 8 Then
			If CInt(Mid(SubFolders.Name, 5, 2)) = CInt(iMes) Then
				Call oFSO.MoveFolder(Parent & "\" & SubFolders.Name, Parent & "\" & sFolder & "\" & SubFolders.Name)
			End If
		End If
	End If
Next
msgbox "Script finalizado"

Imports System
Imports System.IO
Imports System.Linq
Imports System.Windows.Forms
 
Public NotInheritable Class MainForm : Inherits Form
 
    Private year As Integer = DateTime.Today.Year ' O... '2015'
    Private sourceDir As String = Directory.GetCurrentDirectory() ' O... ".\"
 
    Public Sub New()
 
        Me.InitializeComponent()
 
        With Me.DTPMonth ' Personalizo el formato de entrada del DateTimePicker.
            .CustomFormat = "MM" ' 01-12
            .Format = DateTimePickerFormat.Custom
            .Value = DateTime.Today
        End With
 
    End Sub
 
    Private Sub BtAccept_Click(ByVal sender As Object, ByVal e As EventArgs) _
    Handles BtAccept.Click
 
        ' Obtengo la ruta absoluta del directorio con fecha. (ej. "C:\Ruta\Octubre2015")
        Dim monthNumber As Integer = Me.DTPMonth.Value.Month
        Dim dateDir As String = DateUtil.GetDateDirPath("es-ES", Me.sourceDir, Me.year, monthNumber)
 
        ' Creo el directorio con fecha (si no existe).
        DateUtil.CreateDirectory(dateDir)
 
        ' Muevo los directorios (si alguno) con formato de fecha específico (ej. "yyyyMMdd"), del directorio fuente, al directorio de destino.
        DateUtil.MoveDateDirectories(Me.year, monthNumber, DateUtil.DirNameFormat, sourceDir, dateDir)
 
    End Sub
 
    Private Sub BtCancel_Click(ByVal sender As Object, ByVal e As EventArgs) _
    Handles BtCancel.Click
 
        ' Cierro este form, y con él termina la ejecución de la aplicación.
        Me.Close()
 
    End Sub
 
End Class

Imports System
Imports System.Globalization
Imports System.IO
Imports System.Linq
Imports System.Security.AccessControl
Imports System.Security.Principal
 
Public Module DateUtil
 
    ''' <summary>
    ''' El formato por defecto del nombre de directorio. ("yyyyMMdd" equivale a "AñoMesDia").
    ''' </summary>
    ''' <remarks>
    ''' El formato se puede cambiar, pero respetando los especificadores actuales, que son "yyyy", "MM" y "dd", los cuales son intercambiables entre si.
    ''' Para usar otros especificadores haría falta una refactorización del código (el método <see cref="MoveDateDirectories"/>) para implementar su soporte.
    ''' Los especificadores disponibles se pueden encontrar en la documentación online de MSDN:
    ''' https://msdn.microsoft.com/en-us/library/8kb3ddd4%28v=vs.110%29.aspx
    ''' </remarks>
    Public Const DirNameFormat As String = "yyyyMMdd" ' ej. "20150131"
 
    ''' <summary>
    ''' Devuelve el nombre de un mes del año, en el lenguaje específicado.
    ''' </summary>
    Public Function GetMonthName(ByVal cultureName As String,
                                 ByVal month As Integer) As String
 
        If (month < 1I) OrElse (month > 12I) Then
            Throw New ArgumentOutOfRangeException(paramName:="month", message:="A value from range '1' to '12' is required.")
 
        ElseIf Not (From ci As CultureInfo In CultureInfo.GetCultures(CultureTypes.InstalledWin32Cultures)
                    Where ci.Name.Equals(cultureName, StringComparison.OrdinalIgnoreCase)).Any Then
            Throw New NotImplementedException(message:=String.Format("Culture '{0}' not recognized, maybe name is wrong typed or culture is not installed.", cultureName))
 
        Else
            Dim ci As CultureInfo = CultureInfo.GetCultureInfo(cultureName)
            Return ci.TextInfo.ToTitleCase(ci.DateTimeFormat.MonthNames(month - 1))
 
        End If
 
    End Function
 
    ''' <summary>
    ''' Devuelve la ruta absoluta del directorio de destino con el nombre de la fecha, en el lenguaje específicado.
    ''' ej. "C:\Ruta\Octubre2015"
    ''' </summary>
    Public Function GetDateDirPath(ByVal cultureName As String,
                                   ByVal targetDir As String,
                                   ByVal year As Integer,
                                   ByVal month As Integer) As String
 
        If (CStr(year).Length <> 4I) Then
            Throw New ArgumentOutOfRangeException(paramName:="year", message:="A value of 4 digits' is required.")
 
        ElseIf (month < 1I) OrElse (month > 12I) Then
            Throw New ArgumentOutOfRangeException(paramName:="month", message:="A value from range '1' to '12' is required.")
 
        Else
            Return Path.Combine(targetDir, String.Format("{0}{1}", DateUtil.GetMonthName(cultureName, month), year))
 
        End If
 
    End Function
 
    ''' <summary>
    ''' Crea un directorio en el directorio especificado.
    ''' </summary>
    Public Sub CreateDirectory(ByVal targetDir As String)
 
        ' Le asigno permisos de usuario personalizados a la carpeta existente o la carpeta que se creará.
 
        Dim userId As SecurityIdentifier = WindowsIdentity.GetCurrent.User
        Dim dirSec As New DirectorySecurity
        With dirSec
            .AddAccessRule(New FileSystemAccessRule(userId, FileSystemRights.CreateDirectories, AccessControlType.Allow))
            .AddAccessRule(New FileSystemAccessRule(userId, FileSystemRights.CreateFiles, AccessControlType.Allow))
            .AddAccessRule(New FileSystemAccessRule(userId, FileSystemRights.ListDirectory, AccessControlType.Allow))
            .AddAccessRule(New FileSystemAccessRule(userId, FileSystemRights.ReadAndExecute, AccessControlType.Allow))
            .AddAccessRule(New FileSystemAccessRule(userId, FileSystemRights.Write, AccessControlType.Allow))
            ' .AddAccessRule(New FileSystemAccessRule(userId, FileSystemRights.FullControl, AccessControlType.Allow))
        End With
 
        If Directory.Exists(targetDir) Then
            Directory.SetAccessControl(targetDir, dirSec)
        Else
            Directory.CreateDirectory(targetDir, directorySecurity:=dirSec)
        End If
 
    End Sub
 
    ''' <summary>
    ''' Mueve los directorios cuyo nombre contenga un formato de fecha especifico (intercambiable entre "yyyy", "MM", y "dd") al directorio de destino especificado.
    ''' </summary>
    Public Sub MoveDateDirectories(ByVal year As Integer,
                                   ByVal month As Integer,
                                   ByVal dateFormat As String,
                                   ByVal sourceDir As String,
                                   ByVal targetDir As String)
 
        If (CStr(year).Length <> 4I) Then
            Throw New ArgumentOutOfRangeException(paramName:="year", message:="A value of 4 digits' is required.")
 
        ElseIf (month < 1I) OrElse (month > 12I) Then
            Throw New ArgumentOutOfRangeException(paramName:="month", message:="A value from range '1' to '12' is required.")
 
        ElseIf (dateFormat.Replace("y", "").Replace("M", "").Replace("d", "").Length <> 0) Then
            Throw New NotImplementedException(message:="Specified date format is not implemented, only 'yyyy', 'MM' and 'dd' are interchangeable.")
 
        ElseIf Not Directory.Exists(sourceDir) Then
            Throw New DirectoryNotFoundException(message:=String.Format("Source directory not found: '{0}'", sourceDir))
 
        ElseIf Not Directory.Exists(targetDir) Then
            Throw New DirectoryNotFoundException(message:=String.Format("Target directory not found: '{0}'", targetDir))
 
        Else
            Dim sourceDirInfo As New DirectoryInfo(sourceDir)
            Dim targetDirInfo As New DirectoryInfo(targetDir)
 
            ' Obtengo una colección con los nombres de directorio con el formato de fecha especificado. (ej. de Octubre 2015:  20151001 ... 20151031)
            Dim dateDirNames As IEnumerable(Of String) =
                From day As Integer In Enumerable.Range(1, DateTime.DaysInMonth(year, month))
                Select dateFormat.Replace("yyyy", CStr(year)).
                                  Replace("MM", CStr(month).PadLeft(2, "0"c)).
                                  Replace("dd", CStr(day).PadLeft(2, "0"c))
 
            ' Obtengo una colección con las rutas absolutas de los directorios que cumplen las condiciones de formato de fecha.
            Dim directories As IEnumerable(Of DirectoryInfo) =
                From dirInfo As DirectoryInfo In sourceDirInfo.EnumerateDirectories("*", SearchOption.TopDirectoryOnly)
                Where dateDirNames.Contains(dirInfo.Name)
 
            ' Un simple mensaje de información o aviso cuando no se encuentra ningún directorio el cual mover.
            If (Not directories.Any) Then
                Dim msg As String = String.Format("No ha sido encontrado ningún directorio en '{0}' que cumpla las condiciones de formato de fecha.", sourceDirInfo.FullName)
                MessageBox.Show(msg, "By Elektro", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
            Else
                ' Por último, muevo los directorios que cumplieron las condiciones de formato de fecha.
                For Each dirInfo As DirectoryInfo In directories
 
                    Debug.WriteLine(String.Format("Moviendo: {0}", dirInfo.FullName))
 
                    Try
                        dirInfo.MoveTo(Path.Combine(targetDirInfo.FullName, dirInfo.Name))
 
                    Catch ex As Exception
#If DEBUG Then
                        Throw ex
#Else
                        MessageBox.Show(ex.Message & Environment.NewLine & ex.StackTrace, "By Elektro", MessageBoxButtons.OK, MessageBoxIcon.Error)
#End If
 
                    End Try
 
                Next dirInfo
 
            End If ' Not directories.Any
 
        End If ' dateFormat...
 
    End Sub
 
End Module

Private Sub UnirTxt()
        ' Declaro las variables de los archivos TXT
        Dim CM As String() = Directory.GetFiles(dateDir, "CM.txt")
        Dim GL As String() = Directory.GetFiles(dateDir, "GL.txt")
        Dim IMP60 As String() = Directory.GetFiles(dateDir, "IMP6000.txt")
        Dim IMP61 As String() = Directory.GetFiles(dateDir, "IMP6001.txt")
        Dim IMP62 As String() = Directory.GetFiles(dateDir, "IMP6002.txt")
        Dim IMP63 As String() = Directory.GetFiles(dateDir, "IMP6003.txt")
 
        ' Declaro las carpetas que estan dentro de la carpeta creada
        Dim Folders As New DirectoryInfo(dateDir)
 
        'Verifico si existen los archivos, en caso de existir los elimino.
        If File.Exists(CM(0)) Then File.Delete(CM(0))
        If File.Exists(GL(0)) Then File.Delete(GL(0))
        If File.Exists(IMP61(0)) Then File.Delete(IMP61(0))
        If File.Exists(IMP62(0)) Then File.Delete(IMP62(0))
        If File.Exists(IMP63(0)) Then File.Delete(IMP63(0))
 
        Dim swcm As New StreamWriter(CM(0))
        Dim swgl As New StreamWriter(GL(0))
        Dim swi60 As New StreamWriter(IMP60(0))
        Dim swi61 As New StreamWriter(IMP61(0))
        Dim swi62 As New StreamWriter(IMP62(0))
        Dim swi63 As New StreamWriter(IMP63(0))
 
        'Entro en cada carpeta día
        For Each Folder As DirectoryInfo In Folders.GetDirectories
            ' Tomo el nombre del archivo y hago la copia
            For Each txtfile As FileInfo In Folder.GetFiles
                If Mid(txtfile.Name, 1, 2) = "CM" Then
                    swcm.Write(File.ReadAllText(txtfile.FullName))
                End If
                If Mid(txtfile.Name, 1, 2) = "GL" Then
                    swgl.Write(File.ReadAllText(txtfile.FullName))
                End If
                If Mid(txtfile.Name, 6, 7) = "01" Then
                    swi60.Write(File.ReadAllText(txtfile.FullName))
                End If
                If Mid(txtfile.Name, 6, 7) = "02" Then
                    swi62.Write(File.ReadAllText(txtfile.FullName))
                End If
                If Mid(txtfile.Name, 6, 7) = "03" Then
                    swi63.Write(File.ReadAllText(txtfile.FullName))
                End If
            Next
        Next
        swcm.Close()
        swgl.Close()
        swi60.Close()
        swi61.Close()
        swi62.Close()
        swi63.Close()
End Sub
 

    Public Sub FindAndMergeFiles(ByVal sourceDir As String)
 
        Const NameCM As String = "CM"
        Const NameGL As String = "GL"
        Const NameImp60 As String = "IMP6000"
        Const NameImp61 As String = "IMP6001"
        Const NameImp62 As String = "IMP6002"
        Const NameImp63 As String = "IMP6003"
 
        Dim curFilename As String
 
        ' Itero cada directorio del directorio de origen.
        For Each topDir As DirectoryInfo In New DirectoryInfo(sourceDir).
                                                GetDirectories("*", SearchOption.TopDirectoryOnly)
 
            ' Itero de forma recursiva cada subdirectorio del directorio actual.
            For Each subDir As DirectoryInfo In topDir.GetDirectories("*", SearchOption.AllDirectories)
 
                ' Itero de forma recursiva cada archivo de texto del directorio actual.
                For Each txtfile As FileInfo In topDir.GetFiles("*.txt", SearchOption.AllDirectories)
 
                    If txtfile.Name.Equals(NameCM, StringComparison.OrdinalIgnoreCase) Then
                        curFilename = NameCM
 
                    ElseIf txtfile.Name.Equals(NameGL, StringComparison.OrdinalIgnoreCase) Then
                        curFilename = NameGL
 
                    ElseIf txtfile.Name.Equals(NameImp60, StringComparison.OrdinalIgnoreCase) Then
                        curFilename = NameImp60
 
                    ElseIf txtfile.Name.Equals(NameImp61, StringComparison.OrdinalIgnoreCase) Then
                        curFilename = NameImp61
 
                    ElseIf txtfile.Name.Equals(NameImp62, StringComparison.OrdinalIgnoreCase) Then
                        curFilename = NameImp62
 
                    ElseIf txtfile.Name.Equals(NameImp63, StringComparison.OrdinalIgnoreCase) Then
                        curFilename = NameImp63
 
                    Else
                        curFilename = String.Empty
 
                    End If
 
                    If Not String.IsNullOrEmpty(curFilename) Then
 
                        Debug.WriteLine(topDir.FullName)
                        Debug.WriteLine(subDir.FullName)
                        Debug.WriteLine(txtfile.FullName)
                        Debug.WriteLine(Path.Combine(topDir.FullName, curFilename))
 
                        Using sr As StreamReader = txtfile.OpenText
                            File.AppendAllText(Path.Combine(topDir.FullName, curFilename), sr.ReadToEnd, Encoding.Default)
                        End Using
 
                    End If
 
                Next txtfile
 
            Next subDir
 
        Next topDir
 
    End Sub

...
' Muevo los directorios (si alguno) con formato de fecha específico (ej. "yyyyMMdd"), del directorio fuente, al directorio de destino.
DateDirUtil.MoveDateDirectories(Me.year, monthNumber, DateDirUtil.DirNameFormat, Me.fdg.SelectedPath, dateDir)
 
' Merge text files.
DateDirUtil.FindAndMergeFiles(Me.fdg.SelectedPath)
...

 File.AppendAllText(Path.Combine(topDir.FullName, curFilename), sr.ReadToEnd, Encoding.Default)

...
For Each txtfile As FileInfo In topDir.GetFiles("*.txt", SearchOption.AllDirectories)
...

                Using loFileStream As System.IO.FileStream = New FileStream(lcFile, FileMode.Create)
                    loStreamWriter = New StreamWriter(loFileStream, cEncoding)
                    loStreamWriter.Write(cString)
                    loStreamWriter.Close()
                End Using

...
Dim enc As Encoding = Encoding.Default
Dim byteData As Byte()
 
Using sr As StreamReader = txtfile.OpenText
 
    Using fs As New FileStream(Path.Combine(topDir.FullName, curFilename),
                               FileMode.Append, FileAccess.Write, FileShare.None, 128)
 
        byteData = enc.GetBytes(sr.ReadToEnd & Environment.NewLine)
        fs.Write(byteData, 0, byteData.Length)
 
    End Using ' fs
 
End Using ' sr
...

Public Sub MergeFiles(ByVal sourceDir As String)
 
    Dim fileNames As String() =
        {
            "CM.txt", "GL.txt",
            "IMP6000.txt", "IMP6001.txt", "IMP6002.txt", "IMP6003.txt"
        }
 
    Dim curFilename As String = String.Empty
 
    For Each topDir As DirectoryInfo In New DirectoryInfo(sourceDir).GetDirectories("*", SearchOption.TopDirectoryOnly)
 
        ' Elimino los archivos principales ("...\topDir\CM.txt", "...\topDir\GL.txt", etc...) de sesiones anteriores.
        For Each txtfile As FileInfo In topDir.GetFiles("*.txt", SearchOption.TopDirectoryOnly)
            If fileNames.Contains(txtfile.Name, StringComparer.OrdinalIgnoreCase) Then
                txtfile.Delete()
            End If
        Next txtfile
 
        For Each subDir As DirectoryInfo In topDir.GetDirectories("*", SearchOption.AllDirectories)
 
            For Each txtfile As FileInfo In subDir.GetFiles("*.txt", SearchOption.AllDirectories)
 
                If fileNames.Contains(txtfile.Name, StringComparer.OrdinalIgnoreCase) Then
 
                    curFilename = fileNames.First(Function(filename) filename.Equals(txtfile.Name, StringComparison.OrdinalIgnoreCase))
 
                    Using sr As StreamReader = txtfile.OpenText
 
                        Using sw As New StreamWriter(Path.Combine(topDir.FullName, curFilename), append:=True, encoding:=Encoding.Default, bufferSize:=128)
                            sw.WriteLine(sr.ReadToEnd)
                        End Using ' sw
 
                    End Using ' sr
 
                End If
 
            Next txtfile
 
        Next subDir
 
    Next topDir
 
End Sub