Si creo un nuevo proyecto, este es mi Toolbox:


Pero si abro un proyecto antiguo, el toolbox cambia y se eliminan todos los controles que agregué manualmente:


¿Porque Microsoft me odia tanto?

que pena que no tengas,
yo pienso que con unos cuantos snippets y pocas modificaciones se puede llegar a crear un programa entero en un instante.

Por ejemplo creamos un programa con un webbrowser y el htmlagilitypack para parsear alguna web y tomar los enlaces, o un auto-login, nos cuesta varias horas hacerlo (sin tener en cuenta el diseño).

Ahora sacamos snippets de las funciones y subrutinas más improtantes que hacemos en ese proyecto, y el próximo proyecto parecido que tengamos que hacer nos costará minutos, o al menos mucho mucho menos que al principio xD.

PD: Tenías razón, había mucho code mejorable, por ejemplo el de "isinternetavaliable" se hacía en unas 10 líneas y de una manera que no me gusta nada, el snippet original incluido en VS2012 lo hace en una línea xD

Gracias por responder kub0x, pero entonces solo sirve para "reducir código", ¿no?, osea puedo pasar totálmente de las importaciones si no busco que el código quede ameno...

por ejemplo:

imports System.Runtime.InteropServices
Guid("0000010c-0000-0000-c000-000000000046")

o:

System.Runtime.InteropServices.Guid("0000010c-0000-0000-c000-000000000046")

¿Existe alguna diferencia al importar, como podría ser por ejemplo... mayor velocidad en el código u otro tipo de optimizaciones?,
¿O podemos usarlas directamente como en el segundo ejemplo sin preocupaciones?

Yo estoy acostumbrado a escribirlas directamente, me ahorran mucho tiempo por ejemplo al copiar una parte de código para añadirla en una nueva class, entonces en esa class no tengo que verificar las importaciones que son necesarias ni importar nada,
Pero no se si estoy actuando corréctamente.

uf, perfecto lo conseguí, esto me va a ahorrar mucha comida de coco, gracias !!

Public thread_1 As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' Cada vez que el botón séa presionado se ejecutará el mismo thread una y otra vez, oh yeah :D !!!
        Dim thread_1 As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
        thread_1.Start()
    End Sub

PD: Realmente no encontraba información sobre como ejecutar el mismo thread una vez "ha muerto".

Si eso está muy bien pero... todos sabemos que un "System.Threading.Thread" sólamente se puede iniciar una vez,
He leido que para poder ejecutar el mismo thread infinitas veces solo hay que resetear la variable de la instancia del thread, osea crear una nueva instancia de "System.Threading.Thread" que llame al mismo thread

Por ejemplo:

    Sub MITHREAD()
       msgbox("hello world")
    End Sub
 
Dim T_first_instance As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
T_first_instance.Start()
 
' esperamos a que el thread finalice y entonces lo volvemos a llamar cuando necesitemos volver a usarlo, pero creandolo con otro nombre de variable:
Dim T_second_instance As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
T_second_instance.Start()
'
' EL ADREESOF ES EL MISMO PARA LAS DOS INSTANCIAS YA QUE LA INTENCIÓN ES PODER USAR EL MISMO THREAD UNA Y OTRA VEZ.

No sé si lo hice bien, donde leí la solución para ejecutar el mismo thread las veces que uno quiera no había ningún ejemplo,
pero en caso de que el ejemplo que he dado séa correcto entonces necesito encontrar la manera de que el nombre de la variable se cree automáticamente para poder llamarlo las veces que séa necesario...
Necesitaría algo así:

 
sub button1_clicked... 
       Dim RandomClass As New Random()
        Dim RandomNumber As Integer = RandomClass.Next()
        Dim T_(RandomNumber) As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
        T_(RandomNumber).Start()
end sub
 

Está claro que mi intento de randomizar la variable de la instancia no funciona,
¿Me pueden ayudar a hacerlo?

Vale Nov, lo he intentado así

sub dowork(...)
...
Using sw = New StreamWriter(tmpFile, False, Encoding.UTF8)
            For filei = 0 To nLines - 1
                sw.WriteLine(lines(randomNumbers(filei)))
                Randomizethread.ReportProgress(filei)
            Next
        End Using
...
end sub

    Public Shared Sub Randomizethread_ProgressChanged(ByVal sender As System.Object, ByVal e As ProgressChangedEventArgs) Handles Randomizethread.ProgressChanged
        ' Thread.Sleep(300)
        InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Text = "Randomizing " + filei.ToString() + " of " + (nlines - 1).ToString() + " files.")
    End Sub

Problema: Sigue sin actualizarse el label (ni cualquier otro elemento al que llame, como la barra de progreso por ejemplo vaya)

Ni con un refresh() puedo.

EDITO: El label se actualiza cuando el hilo se completa (cuando sucede el evento del workercompleted), asi que me imagino que el culpable es el FOR?, ¿Como puedo solucionarlo?

PD: No creo que séa problema del delegado porque si compruebo el valor con un msgbox(PlayLists.Form1.progresslabel.txt) veo que el valor es correcto

Es la primera vez que pruebo a hacer esto y no se que error estoy comentiendo...

Por un lado tengo la class principal (Form1)
Por otro lado tengo una class para un backgroundworker

Al usar delegados desde la segunda class para modificar la propiedad de un control de la class principal no sucede nada, la propiedad se modifica pero el control no se actualiza visualmente hablando en el form...  es decir, ni el label ni la progressbar cambian de estado


class principal.vb :

Public Randomize_thread As New Randomize_thread_class
...
Randomize_thread.StartBackgroundTask()
...

class del backgroundworker.vb :

 
Imports PlayLists.Form1
 
...
 
    Public WithEvents Randomize_thread As New BackgroundWorker
 
    Public Sub InvokeControl(Of T As Control)(ByVal Control As T, ByVal Action As Action(Of T))
        If Control.InvokeRequired Then
            Control.Invoke(New Action(Of T, Action(Of T))(AddressOf InvokeControl), New Object() {Control, Action})
        Else
            Action(Control)
        End If
    End Sub
 
...
 
    Public Sub Randomize_thread_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles Randomize_thread.DoWork
        Dim lines = File.ReadAllLines(PlayLists.Form1.Temp_file)
        Dim nLines = lines.Count
        Dim randomNumbers = RandomList(nLines)
        Dim tmpFile = Path.GetTempFileName()
 
        InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Visible = True)
        InvokeControl(PlayLists.Form1.ProgressBar1, Sub(x) x.Maximum += nLines)
        Using sw = New StreamWriter(tmpFile, False, Encoding.UTF8)
            For i = 0 To nLines - 1
                sw.WriteLine(lines(randomNumbers(i)))
                InvokeControl(PlayLists.Form1.ProgressBar1, Sub(x) x.Value = i)
                InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Text = "Randomizing " + i.ToString() + " of " + (nLines - 1).ToString() + " files.")
                ' InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Refresh())
                ' InvokeControl(PlayLists.Form1.ProgressBar1, Sub(x) x.Refresh())
            Next
        End Using
        InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Text = "All files launched")
    End Sub

Listar únicamente los discos fijos:

@echo off
For /F "tokens=2" %%@ in ('wmic logicaldisk get name^,drivetype /Format:texttable ^| Find "3"') do (
	(DIR /B /S "%%@\ARCHIVO_XX.txt")>> "%userprofile%\salida.txt"
)
Pause&Exit

El "If Exists" que has añadido es innecesario, como te expliqué el comanod que utilizo del wmic sirve para obtener las unidades conectadas, osea las unidades que existen...

Te da ese tipo de error con los caracteres porque la salida del comando wmic está en unicode por defecto,
debí haber previsto que podrías tener problemas para la intención que quieres darle al usar el formato "list".

Aquí tienes:

For /F %%@ in ('wmic logicaldisk get name /Format:texttable ^| Find ":"') do (
    (DIR /B /S "%%@\ARCHIVO_XX.txt")>> "%userprofile%\salida.txt"
)
Pause&Exit