Dim Recovery_Items As New List(Of Tuple(Of Integer, String, String))()
 
    Private Sub Recovery_Timer_Tick() Handles Recovery_Timer.Tick
 
        Recovery_Items.Clear()
 
        For Each item As ListViewItem In ListView_Monitor.Items
            Recovery_Items.Add(Tuple.Create(item.Index, item.SubItems(1).Text, item.SubItems(2).Text))
        Next
 
        IO.File.WriteAllText("Recovery.tmp", String.Join(vbNewLine, Recovery_Items), System.Text.Encoding.Default)
 
    End Sub

(0, Valor1, Valor2)
(1, V-a-l-o-r-1, V-a-l-o-r-2)
(2, V,a,l,o,r,1, V,a,l,o,r,2)

    Private Sub Recovery()
 
        If IO.File.Exists("Recovery.tmp") Then
 
            For Each Line As String In IO.File.ReadAllLines("Recovery.tmp")
                ListView_Monitor.Items.Add(TryCast(Line, ListViewItem))
            Next
 
        End If
 
    End Sub

Private Recovery_Items As New List(Of Tuple(Of Integer, String, String))()

Recovery_Items.Add(Tuple.Create(item.Index, item.SubItems(1).Text, item.SubItems(2).Text))

Dim Recovery_Items As Tuple(Of Integer, String, String)

Dim Recovery_Items As New Dictionary(Of Integer, String, String)

@Echo OFF
 
:: Seteamos la codificación actual al latino,
:: para poder usar los acentos latinos.
CHCP 1252 1>NUL
MKDIR "Carpeta con ácèntös"
 
:: Volvemos a la codificación por defecto,
:: para mostrar acentos en la CMD (mostrar, NO usar).
CHCP 850 1>NUL
Dir /B ".\Carpeta con *"
 
:: Volvemos de nuevo a la codificación latina,
:: para poder acceder a la carpeta escribiento acentos.
CHCP 1252 1>NUL
CD /D "Carpeta con ácèntös"
 
:: Volvemos de nuevo a la codificación por defecto,
:: para mostrar los acentos en la CMD corréctamente (mostrar, NO usar).
CHCP 850 1>NUL
Echo "%CD%"
 
Pause&Exit

Carpeta con ácèntös
"C:\Users\Administrador\Desktop\Carpeta con ácèntös"
Presione una tecla para continuar . . .

copy con ".\Chars.txt"