Como se podría optimizar el código para crear una función de esto?

Por ejemplo:

    Private Sub Form1_Load()
        Dim File_Extensions() As String = {"*.txt", "*.ini", "*.exe", "*.pdf"}
        Dim Files() = Get_Files_By_FileExtensions("C:\", File_Extensions)
    End Sub

Y entonces aquí se debería agregar automáticamente un "orelse s.EndsWith(siguiente extensión)" por cada extensión de la colección:

    Public Function Get_Files_By_FileExtensions(ByVal Directory As String, ByVal Extensions() As String) As System.IO.FileInfo()
        Return IO.Directory.GetFiles(Directory, "*").Where(Function(s) s.EndsWith(Extensions(0)) _
        OrElse s.EndsWith(Extensions(1)) _
        OrElse s.EndsWith(Extensions(2)) _
        OrElse s.EndsWith(Extensions(3)))
    End Function

¿Es posible hacerlo?


EDITO: Yo ya tengo funciones para listar archivos, pero preciso hacerlo con ese código que menciono (me resulta más limpio porque sólo hace una búsqueda)

No todo es necesario codearlo, dispones de un menú en la IDE para crear las APP/USER settings:

Project > windowsapplication properties > settings

o dale doble click en "my project" en el "solution explorer"

Y listo, ya habrás creado tu setting/propiedad

saludos

En serio, no sé como se te puede dar tán dificil una variable.

Te vuelvo a repetir lo de antes:

1. Estás declarando la variable en el form, fuera de los subs.
2. No le das ningun valor a la variable.
3. En el form load intentas usar la variable, que no contiene ningún valor, y eso son dos errores, porque no sé que pinta ahí lo que haces en el form load, cuando debería estar todo en el sub del botón.

Repito las cosas y no haces caso.

Public Class Form2
 
    Dim Listita As New ListBox
 
    Private Sub Form2_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Listita.BackColor = Color.White
        Listita.ForeColor = Color.Black
        Listita.Size = New Point(340, 251)
        Listita.Location = New Point(12, 25)
        AddHandler Listita.SelectedIndexChanged, AddressOf Listita_SelectedIndexChanged
        Me.Controls.Add(Listita)
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
 
    Private Sub Listita_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
        Dim Item As String = Listita.SelectedItem
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim FBD As New FolderBrowserDialog
        FBD.Description = " Seleccionar una carpeta "
        FBD.SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        FBD.ShowNewFolderButton = True
        Dim Resultado As DialogResult = FBD.ShowDialog
        If Resultado = Windows.Forms.DialogResult.OK Then
        Try
                Dim Folder As String = FBD.SelectedPath
                Dim Files As Array = IO.Directory.GetFiles(Folder, "*", IO.SearchOption.TopDirectoryOnly)
                Dim TotalRoms As Int32 = Files.Length
                Listita.Items.Clear()
                For Each File In Files
                    Dim File_Info As New IO.FileInfo(File)
                    Listita.Items.Add(File_Info.Name)
                Next
                Label1.Text = "Roms encontrados (" & TotalRoms & ")"
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
        FBD.Dispose()
    End Sub
 
End Class

Saludos

Es que no has creado ninguna setting.

Google + vbnet how create my.settings

saludos.

No entiendo tu problema Seazoux, y no creo que séa tán dificil declarar una variable en el form principal y usarla en las otras classes, pues te he dado mil ejemplos ya.

De todas formas, si te es tán complicado entonces deberías olvidarte de variables y crear una setting por ejemplo:

Ahí guardas el valor de la ruta y eso te sirve para cualquier form, y sin movidas.

Saludos

pues dále otro nombre a la segunda variable...

esto ya te lo puse antes:



No uses el mismo nombre de variable para todo...

Cláramente se vé que declaras dos "Folder" privadas en el form que has posteado.


Tú mismo te respondes... usa el buscador de la IDE, Ctrl + F, y buscas "Folder" en la solución entera.

---

Una pregunta: ¿ese código que te puse lo sigues teniendo de decoración?, ¿entiendes el code?.

Y otra pregunta, ¿Porque tienes dos forms?,
cada uno es libre de crear los forms que quiera en su aplicación... pero digo yo que en una app tán pequeña no es necesario más de un form porque no necesita más de 200 líneas de código xD...

saludos

Antes de tu nueva edición era una pregunta inentendible.


y digo yo... ¿Y porqué no lo haces de la misma manera que lo haces con el antiguo valor del folderbrowserdialog?  (c&p oculto)

PD: si no es eso da más datos del problema... pon tu código.

saludos

Uno de los moderadores de esta sección.