'comprobar si el archivo de registro existe (crearlo si no existe)
    Protected Sub archivoTxt()
        Dim archivo As New FileInfo(rutaTxt)
        'si "Borrar_TEMP.txt" no existe --> crearlo e informar al usuario para que reinicie
        If archivo.Exists = False Then
            archivo.CreateText()
            Dim aviso As String
            aviso = "Se ha creado el archivo ""Borrar_TEMP.txt"" en la carpeta de Windows." & vbCrLf & _
            "Es necesario reiniciar el programa para su correcto funcionamiento." & vbCrLf & _
            "Pulsa ""Aceptar"" y el programa se cerrará y reiniciará automáticamente."
            MessageBox.Show(aviso, "Reiniciar el programa", MessageBoxButtons.OK)
            '
            'cerrar el formulario y que se vuelva a abrir automáticamente para que en el nuevo inicio
            'lea correctamente desde el archivo Borrar_TEMP.txt y muestre la información
            '
            'crear un nuevo hilo (thread) que se enlaza con el método nuevoForm()
            'que arrancará otra instancia diferente de Form1 
            Dim hilo As New Thread(AddressOf nuevoForm)
            hilo.Start()
            'cerrar la aplicación y su hilo actual
            Application.Exit()
            '
            'si "Borrar_TEMP.txt" ya existe --> ejecutar el programa con normalidad
        Else
            'llamar a los métodos:
            '- leer el nº de archivos del directorio y el nº acumulado de archivos borrados en "Borrar_TEMP.txt"
            Call listadoPre()
            '- leer el nº de archivos borrados en la ejecucion actual y escribir en "Borrar_TEMP.txt"
            Call listadoPost()
        End If
    End Sub

    'método que inicia de nuevo la aplicación
    Public Shared Sub nuevoForm()
        'detenerse 0,2 segundos
        Thread.Sleep(200)
        'iniciar de nuevo la aplicación en el nuevo hilo
        Application.Run(New Form1)
    End Sub