C# / VB.NET - Togliere i suffissi

'Codice che effetua la ricerca
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim cont As Integer
        Dim sai As String
        ListBox1.Items.Clear()
        cartelle = System.IO.Directory.GetDirectories("C:\Lavoro").ToArray
        For Each bo As String In cartelle
            sai = cartelle(cont).ToString()
            If sai = TextBox1.Text Then
                ListBox1.Items.Add(sai)
                cont = cont + 1
            Else
                cont = cont + 1
            End If
        Next

    End Sub

For Each ... In CartelArray

Imports System.IO

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
        For Each bo As String In Directory.GetDirectories("C:\Lavoro")
           dim info as new Directoryinfo(bo)
           listbox1.items.add(info.name)
        Next
    End Sub

 sai = cartelle(cont).ToString()
            If sai = TextBox1.Text Then
                ListBox1.Items.Add(sai)
                cont = cont + 1
            Else
                cont = cont + 1
            End If

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim file As Array
        Dim cont As Integer
        Dim valore As String
        Dim cartelle As Array
        cont = 0
        cartelle = System.IO.Directory.GetDirectories("C:\Lavoro").ToArray
        For Each path As String In cartelle
            file = System.IO.Directory.GetFiles(cartelle(cont)).ToArray
            For Each boe As String In file
                valore = My.Computer.FileSystem.ReadAllText(file(cont))
                If TextBox1.Text = valore Then
                    ListBox1.Items.Add(valore) 
                    cont = cont + 1
                Else
                    cont = cont + 1
                End If
            Next
        Next
    End Sub

Dim [Nome]() As [Tipo]

Dim Files() As String = IO.Directory.GetFiles("...")

ListBox1.Items.Clear()
        Dim totale As New ArrayList
        totale.Clear()
        Dim valore As String
        For Each c As String In System.IO.Directory.GetDirectories("C:\Users\Davide\Desktop", "*", IO.SearchOption.AllDirectories)
            For Each file In System.IO.Directory.GetFiles(c, "*", IO.SearchOption.AllDirectories)
                Dim nome As New FileInfo(file)
                Dim leggi As New StreamReader(file)
                valore = leggi.ReadToEnd
                If valore.Contains(TextBox1.Text) = True Then
                    ListBox1.Items.Add(nome.Name)
                    totale.Add(1)
                End If
            Next
        Next
        If totale.Count = 0 Then
            MsgBox("Non è stato trovato nulla secondo i criteri di ricerca")
        End If

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim file As Array   ' queste variabili sono inutili in quanto si può mettere direttamente System.io.directory. etc xk restituisce un array
        Dim cont As Integer
        Dim valore As String
        Dim cartelle As Array
        cont = 0
        cartelle = System.IO.Directory.GetDirectories("C:\Lavoro").ToArray  ' qui il toarray è inutile xk restituisce già un array (di stringhe in questo caso)
        For Each path As String In cartelle
            file = System.IO.Directory.GetFiles(cartelle(cont)).ToArray  ' x quanto riguarda il toarray il commento è lo stesso di sopra.
            For Each boe As String In file
                valore = My.Computer.FileSystem.ReadAllText(file(cont)) 'qui tu usi l'indice di array per ricavare il file, ma è sbagliato xk ReadAllText vuole il percorso del file.
                If TextBox1.Text = valore Then  'così facendo tu paragoni tutta una stringa ke può essere composta da "ciao gatto prova oca" con quello ke c'è scritto in textbox ke poniamo sia "prova", logicamente il vb ti dice ke "ciao gatto prova oca" non è uguale a "prova", quindi devi usare uno streamreader e il parametro contains
                    ListBox1.Items.Add(valore) 
                    cont = cont + 1
                Else
                    cont = cont + 1
                End If
            Next
        Next
    End Sub