#Region " Make Dir Function "
 
    ' [ Make Dir Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(MakeDir("C:\Test"))
 
    Private Function Make_Dir(ByVal Path As String, Optional ByVal Attributes As System.IO.FileAttributes = IO.FileAttributes.Normal)
        If My.Computer.FileSystem.DirectoryExists(Path) Then Return Nothing ' Directory already exists
        Try
            My.Computer.FileSystem.CreateDirectory(Path) ' Create directory
            If Not Attributes = IO.FileAttributes.Normal Then My.Computer.FileSystem.GetDirectoryInfo(Path).Attributes = Attributes ' Apply Folder Attributes
            Return True ' Directory is created OK
        Catch ex As Exception
            Return False ' Can't create the directory maybe because user permissions
            ' Return ex.Message
        End Try
    End Function
 
#End Region

#Region " Copy File Function "
 
    ' [ Copy File Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Copy_File("C:\File.txt", "C:\Test\")) ' Standard copy
    ' MsgBox(Copy_File("C:\File.txt", "C:\Test\", True)) ' Create the directory if doesn't exists
    ' MsgBox(Copy_File("C:\File.txt", "C:\Test\", , True)) ' Replace any existing file
    ' MsgBox(Copy_File("C:\File.txt", "C:\Test\", , , IO.FileAttributes.Hidden + IO.FileAttributes.ReadOnly)) ' Apply new attributes
 
    Private Function Copy_File(ByVal File As String, ByVal Target_Path As String, _
                               Optional ByVal Force_Target_Path As Boolean = False, Optional ByVal Force_File_Replace As Boolean = False, _
                               Optional ByVal Attributes As System.IO.FileAttributes = IO.FileAttributes.Normal)
 
        Dim File_Information = My.Computer.FileSystem.GetFileInfo(File) ' Get Input File Information
 
        ' Directory
        If Not Force_Target_Path And Not My.Computer.FileSystem.DirectoryExists(Target_Path) Then
            Return False ' Target Directory don't exists
        ElseIf Force_Target_Path Then
            Try
                My.Computer.FileSystem.CreateDirectory(Target_Path) ' Create directory
            Catch ex As Exception
                'Return False
                Return ex.Message ' Directory can't be created maybe beacuse user permissions
            End Try
        End If
 
        ' File
        Try
            My.Computer.FileSystem.CopyFile(File, Target_Path & "\" & File_Information.Name, Force_File_Replace) ' Copies the file
            If Not Attributes = IO.FileAttributes.Normal Then My.Computer.FileSystem.GetFileInfo(Target_Path & "\" & File_Information.Name).Attributes = Attributes ' Apply File Attributes
            Return True ' File is copied OK
        Catch ex As Exception
            'Return False
            Return ex.Message ' File can't be created maybe beacuse user permissions
        End Try
    End Function
 
#End Region

@Echo OFF
 
 
:: By Elektro H@cker
 
 
Set "DefaultExt=bat doc cmd exe txt"
 
:MENU
CLS
Set /A "Count=0"
For %%@ in (%DefaultExt%) DO (
	SET /A Count+=1 & REM Sumo un valor en el contador
	Call SET "EXT%%COUNT%%=%%@" & REM Creo la variable dinámica que contendrá cada extensión
	Call <Nul SET /P =[%%COUNT%%] %%@ & REM Muestro las extensiones
	REM Si quieres la lista en horizontal en lugar de vertical elimina la línea del echo
	Echo+ 
)
Echo+
Choice /C AEN /m "[A]Agregar, [E] Eliminar, [N] Nada"
If %errorlevel% EQU 1 (CALL :Agregar)
If %errorlevel% EQU 2 (CALL :Eliminar)
If %errorlevel% EQU 3 (GOTO :Copiar)
GOTO :MENU
 
:Agregar
CLS
Echo: [ Agregar extension ] | MORE
SET /p "ADDEXT= AGREGA UNA EXTENSION >> "
IF NOT DEFINED ADDEXT (GOTO :Agregar)
SET "ADDEXT=%ADDEXT:.=%" & REM Elimino cualquier punto
SET "ADDEXT=%ADDEXT: =%" & REM Elimino cualquier espacio
SET "DefaultExt=%DefaultExt% %ADDEXT%" & REM Añado la nueva extensión a la lista de extensiones
GOTO :EOF
 
:Eliminar
CLS
Echo: [ Eliminar extension ] | MORE
Set "ChoiceDigits=" & REM Reseteo la variable
For /L %%X in (1,1,%COUNT%) DO (
	Call Echo [%%X] %%EXT%%X%% & REM Muestro las variables que creé en el menú
	Call Set "ChoiceDigits=%%ChoiceDigits%%%%X" & REM Seteo las opciones del comando CHOICE
)
Echo+
Choice /C %ChoiceDigits%N /M "[N] Ninguna"
Call Set "DEL_EXT=%%EXT%ERRORLEVEL%%%" & REM Seteo la extensión elegida
call SET "DefaultExt=%%DefaultExt:%DEL_EXT%=%%" & REM Elimino la extensión de la lista
call SET "DefaultExt=%%DefaultExt:  = %%" & REM Elimino dobles espacios si quedasen.
GOTO:EOF
 
:Copiar
CLS
Set "DefaultExt=%DefaultExt: = ,*.%" & REM Modifico los espacios de la variable para añadirlo los símbolos necesarios
FOR %%a IN (*.%DefaultExt%) DO (echo "%%a")
:: FOR /R "%userprofile%\Mis documentos\" %%a IN (*.%DefaultExt%) DO (copy /y "%%a" "E:\datossss\") 
 
Pause&Exit

@Echo OFF
 
:chck_size
if "%~z0" EQU "%VariableSize%" () ELSE ()
 
Pause&Exit

#Region " String To Case Function "
 
    ' [ String To Case Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(String_To_Case("ThiS is A TeST", StringCase.Lower))
    ' MsgBox(String_To_Case("ThiS is A TeST", StringCase.Upper))
    ' MsgBox(String_To_Case("ThiS is A TeST", StringCase.Word))
    ' MsgBox(String_To_Case("ThiS is A TeST", StringCase.Title))
    ' MsgBox(String_To_Case("ThiS is A TeST", StringCase.Title, True))
 
    Enum StringCase
        Lower
        Upper
        Title
        Word
    End Enum
 
    Public Function String_To_Case(ByVal Input_String As String, ByVal StringCase As StringCase, Optional ByVal Reverse As Boolean = False) As String
        If Not Input_String = Nothing And Not Input_String = "" Then
            Dim Output_String As String = Nothing
            Select Case StringCase
                Case StringCase.Lower : Output_String = System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToLower(Input_String)
                Case StringCase.Upper : Output_String = System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToUpper(Input_String)
                Case StringCase.Title : Output_String = Char.ToUpper(Input_String(0)) + StrConv(Input_String.Substring(1), VbStrConv.Lowercase)
                Case StringCase.Word : Output_String = System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToTitleCase(Input_String)
            End Select
            If Reverse Then Return Microsoft.VisualBasic.StrReverse(Output_String) Else Return Output_String
        Else : Return False ' Any string to convert
        End If
    End Function
 
#End Region

    ' MsgBox(Get_Directory_Size(New IO.DirectoryInfo("C:\_"), True))
 
    Private Function Get_Directory_Size(Dir_Info As IO.DirectoryInfo, Include_Subfolders As Boolean) As Long
        Dim Dir_Total_Size As Long = Dir_Info.EnumerateFiles().Sum(Function(file) file.Length)
        If Include_Subfolders Then Dir_Total_Size += Dir_Info.EnumerateDirectories().Sum(Function(dir) Get_Directory_Size(dir, True))
        Return Dir_Total_Size
    End Function

Attributes.Select(Function(a) DirectCast(a, Integer)).Sum()

32 + 64

#Region " Change File Attributes Function "
 
    ' [ Change File Attributes Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Change_File_Attributes("C:\File.txt", H + R)
    ' Change_File_Attributes("C:\File.txt", Hidden + Read_Only)
 
    Const Archive As Integer = 32, A As Integer = 32
    Const Directory As Integer = 16, D As Integer = 16
    Const Hidden As Integer = 2, H As Integer = 2
    Const Normal As Integer = 0, N As Integer = 0
    Const Read_Only As Integer = 1, R As Integer = 1
    Const System As Integer = 4, S As Integer = 4
    Const Volume As Integer = 8, V As Integer = 8
 
    Private Function Change_File_Attributes(ByVal File As String, ByVal Attributes As System.IO.FileAttributes) As Boolean
        If IO.File.Exists(File) Then
            Try
                FileSystem.SetAttr(File, Attributes)
                Return True ' File was modified OK
            Catch
                Return False ' File can't be modified maybe because User Permissions
            End Try
        Else
            Return Nothing ' File doesn't exist
        End If
    End Function
 
#End Region

    Dim file As New FileStream(data_path & "notes.txt", FileMode.Open)
            Dim text As String = Nothing
            Dim reader As New StreamReader(file)
            Dim writer As New StreamWriter(file)
 
            While Not reader.EndOfStream
                text = reader.ReadLine
                If text.Contains(value) Then
                    text.Replace(value, "")
                    writer.Write(text)
                End If
            End While
 
            file.Close()

List<string> quotelist=File.ReadAllLines(filename).ToList();
            string firstItem= quotelist[0];
            quotelist.RemoveAt(0);
            File.WriteAllLines(filename, quotelist.ToArray());
            return firstItem;