Como usar FolderBrowserDialog

[z3nth10n]

Respecto al MsgBox VB.net me está trolleando acabo de reinicar el PC y nada. xD



Mira esto:

[Eleкtro]

Respecto al MsgBox VB.net me está trolleando acabo de reinicar el PC y nada. xD

MÁS DATOS PORFAVOR.

Te salta una excepción? o te sale el valor vacío ? o que te sale?

Vale la has cagado un poco xD.

En el solution explorer dale a "show all files" y busca el "settings.designer.vb"
y comprueba el "mySettings" expandiendo el "settings.designer.vb" ahi mismo
¿Tienes uno, o dos? si tienes dos, borra el nuevo que te lo habrá creado el VS por un error (una vez me pasó eso).

Y comprueba que no tienes el "app.config" vacío.

No sorry, me sale solo 1, no se. 

Te recomiendo que te descargues el proyecto que me has pasado a mi, porque me funciona sin ningún error:
http://www.mediafire.com/?0waco6kynzgaovx

o al menos reemplaza el app.config del proyecto que me has mandado al tuyo y el settings.designer si no lo tienes igual

saludos

[z3nth10n]

MÁS DATOS PORFAVOR.

Te salta una excepción? o te sale el valor vacío ? o que te sale?

Sale el valor vacio:





No sorry, me sale solo 1, no se.  



Ni idea, pero me sigue saliendo todo igual xD

Una cosilla, afecta que tenga instalado el Frameowork .NET 3.5 y el 2.0? 

[$Edu$]

Descargue el proyecto tuyo y le hice los cambios que te decia hoy. Modifique el Form2.
Ejecuta el programa, y hace click en el boton Test para ver si te sale la ruta que queres, o si es lo que querias hacer.

http://www.mediafire.com/?w5ycx4b6j884yb8

[z3nth10n]

Descargue el proyecto tuyo y le hice los cambios que te decia hoy. Modifique el Form2.
Ejecuta el programa, y hace click en el boton Test para ver si te sale la ruta que queres, o si es lo que querias hacer.

http://www.mediafire.com/?w5ycx4b6j884yb8

Invalid or Deleted File. 

[$Edu$]

A ver ahora: http://www.mediafire.com/?urhcrxt9mz0s2xp

[z3nth10n]

A ver ahora: http://www.mediafire.com/?urhcrxt9mz0s2xp

Primer fallo:


Error   1   'Folder' is not declared. It may be inaccessible due to its protection level.   C:\Users\Alvaro\Documents\VisualBasic NET\Proyectos\WebKitEmulatorBeta\WebKitEmulator\WebKitEmulator\WindowsApplication1\WindowsApplication1\Form2.vb   51   32   WindowsApplication1







Ya arregle ese bug, pero igualmente me quedo con la otra version, sigue los hilos del tema y gracias por tu esfuerzo, Edu me recomiendas que me quite el NET 2.0 y 3.5? 

[$Edu$]

La verdad que no tengo el Visual Studio instalado ahora mismo por eso solo modifique desde el notepad, pero tendria que andar, no hice nada raro ni mal.

Seguro has compilado el proyecto para ejecutarlo a ver si anda? es decir desde el mismo IDE como siempre pero digo esto porque tal vez fuiste directamente a la carpeta Bin a ejecutar el programa y entonces ese programa.exe es viejo y no el actualizado.

No se la verdad, por lo menos viste lo que cambie? asi como te decia. Dime solo si es eso lo que quieres hacer, aunque no funcione quiero saberlo.

No quites nada, tu instalaste el Visual Studio 2008 o el 2010 o 2012 y ahi te instalo el framework correspondiente a la version, no toques nada.

[Eleкtro]

$Edu$ no declaraste la variable "Folder" y aquí la intentas usar, seazoux lleva razón.

Código [Seleccionar] Expandir

FolderPrincipal = Folder ' SE GUARDA EL DIRECTORIO EN LA VARIABLE PUBLICA




@Seazoux
Te añado las modificaciones que quieres en el código que ya te modifiqué hace 2 páginas en este hilo...

FÍJATE EN LOS CAMBIOS Y VERÁS COMO ERA TODO MUY FÁCIL

PD: Antes de usar este código vacía el valor de la setting en la IDE

Código (vbnet) [Seleccionar] Expandir

   Public Class Form2

   Dim Listita As New ListBox

   Private Sub Form2_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       With Listita
           .BackColor = Color.White
           .ForeColor = Color.Black
           .Size = New Point(340, 251)
           .Location = New Point(12, 25)
           AddHandler .SelectedIndexChanged, AddressOf Listita_SelectedIndexChanged
       End With
       Me.Controls.Add(Listita)
       if My.Settings.Folder isnot nothing then LoadFolder(My.Settings.Folder) ' Aquí cargas el último directorio que se cargó al salir de la aplicación
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Me.Hide()
   End Sub

   Private Sub Listita_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
       Dim Item As New IO.FileInfo(My.Settings.Folder & "\" & Listita.SelectedItem)
       MsgBox(Item.FullName)
   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
       If FBD.ShowDialog = Windows.Forms.DialogResult.OK Then : My.Settings.Folder = FBD.SelectedPath : LoadFolder(My.Settings.Folder) : End If
       FBD.Dispose()
   End Sub

   Private Sub LoadFolder(ByVal Folder As String)
       Try
           Listita.Items.Clear()
           Dim Files As Array = IO.Directory.GetFiles(Folder, "*")
           Dim TotalRoms As Int32 = Files.Length
           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 Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       MessageBox.Show(My.Settings.Folder, "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
   End Sub

End Class

Saludos





EDITO:

Edu me recomiendas que me quite el NET 2.0 y 3.5?  

¿Como que quitartelos?

No te los tienes que quitar ni desinstalar ni nada, pero no debes hacer un proyecto en FW2.0 porqué está obsoleto, y tiene muy pocos métodos,
los debes hacer en FW3.X o FW4.X, yo hago aplicaciones en FW3.5 cuando puedo, pero prefiero usar FW4.0 por que véo methods más útiles que en FW3.5 no están, y por compatibilidad con algunos controles de terceros que uso que en FW3.X no corren.

Sincéramente depende de tus necesidades y de cúan compatible quieres que séa la APP para el público... casi todos los PC's llevan incorporados el FrameWork 3.X así que si haces el proyecto en FW4.5 muchos pc's necesitarán descargar el FW4.5 para correr tu APP.

saludos

[z3nth10n]

Casi todos los PC's llevan incorporados el FrameWork 3.X así que si haces el proyecto en FW4.5 muchos pc's necesitarán descargar el FW4.5 para correr tu APP.

Lo suponia gracias por decirmelo, ahora te comento a ver si fusca xD



Titirititititiri!!! Si que funca )))) el caso que lol, no se si lo hubiese puesto desde un princpio como yo creia iba a funcionar era como un presentimiento.  



Ahora vamos a hacer lo de las descargas.  



Pero por cierto, el codigo ese:

Código (vbnet) [Seleccionar] Expandir

If My.Settings.Folder IsNot Nothing Then LoadFolder(My.Settings.Folder) ' Aquí cargas el último directorio que se cargó al salir de la aplicación

Como hago para borrarlo porque no quiero que se me quede esa direccion xD