Visual Basic FolderBrowserDialog Elegir un fichero archivo o carpeta usando una

[analpa1997]

Vuelvo a preguntar una cosa a ver si consigo arreglarla, sobre este mismo buscador que estaba haciendo. El caso es que antes la carpeta en la que se encuentran las imagenes al buscarse lo tenia definido con la variable ruta, pero ahora lo que estoy buscando es que puedas elegir tu la carpeta en la que quieres buscar (por si lo quiero subir a alguna web, para que cada usuario lo busque en funcion de lo que necesite). Pero volvemos a estar como antes, la ruta no me la coge. He creado un MsgBox que me muestre la ruta de la cual se va a buscar el archivo, pero no detecta nada mas la variable FileName. Dejo aqui de nuevo el codigo que estoy usando, a ver si podeis echarme una manilla, que estoy aprendiendo mucho pero me tiene muy perdido cuando encuentro errores como ese el que hacer.

Código: [Seleccionar]

Public Class Form1
    Dim ruta As String
    Dim FileName As String
    Dim Eleccion As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Buscador de Faces FMSite"
        Label1.Text = "Introduce la ID del jugador cuya face buscas"
        Button1.Text = "Comprobar"
        Label1.TextAlign = ContentAlignment.MiddleCenter
        AcceptButton = Button1
        Label2.Visible = False
        Button2.Text = "Examinar"
    End Sub
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
        PictureBox1.Image = My.Resources.Faces
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim FolderBrowserDialog1 As New FolderBrowserDialog
        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            TextBox2.Text = FolderBrowserDialog1.SelectedPath
            Eleccion = Val(TextBox2.Text)
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Eleccion = Val(TextBox2.Text)
        FileName = Val(TextBox1.Text)
        ruta = "" & Eleccion & "\" & FileName & ".png"
        MessageBox.Show("" & ruta & " es la ruta elegida")
        If System.IO.File.Exists(ruta) = True Then
            Label2.Visible = True
            Label2.Text = "La face del jugador cuya ID es " & FileName & " existe en la carpeta"
            PictureBox1.ImageLocation = ruta
            Label2.TextAlign = ContentAlignment.MiddleCenter
        Else
            Label2.Visible = True
            Label2.Text = "La face del jugador cuya ID es " & FileName & " no existe en la carpeta"
            PictureBox1.Image = My.Resources.Cruz
            Label2.TextAlign = ContentAlignment.MiddleCenter
        End If
    End Sub
End Class

Aclaro que lo unico que no me funciona es que el programa me coja la ruta, que me mostrara la imagen y demas si me funcionaba antes.

Gracias de antemano!

[Alex Rodríguez]

Hola ¿por qué usas val para capturar las rutas? Por ejemplo en Eleccion = Val(TextBox2.Text) o en FileName = Val(TextBox1.Text)

Sobre uso de Val: http://aprenderaprogramar.com/index.php?option=com_content&view=article&id=203:funcion-val-con-visual-basic-convertir-texto-textbox-inputbox-en-valores-numericos-ejemplos-cu00318a&catid=37:curso-aprender-a-programar-visual-basic-desde-cero&Itemid=61

Saludos

[analpa1997]

A decir verdad, me hice un lio con eso xD. Al quitarlo funciona de perlas. Gracias, y ya preguntare otra cosilla si no me sale lo que estoy intentando hacer ahora

[Alex Rodríguez]

Hola lo ideal sería que todos supiéramos qué ponemos en el código y por qué lo ponemos. Por eso te he recomendado estudiar fundamentos porque ese suele ser el punto en el que falla la mayoría de la gente. En este caso si se entiende para qué se usa la función val se puede ver cuándo tiene sentido usar esta función y cuándo no lo tiene...

Saludos