Foro de elhacker.net

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            ' Configuración del FolderBrowserDialog
            With FolderBrowserDialog1
 
                .Reset() ' resetea
 
                ' leyenda
                .Description = " Seleccionar una carpeta "
                ' Path " Mis documentos "
                .SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
 
                ' deshabilita el botón " crear nueva carpeta "
                .ShowNewFolderButton = False
                '.RootFolder = Environment.SpecialFolder.Desktop
                '.RootFolder = Environment.SpecialFolder.StartMenu
 
                Dim ret As DialogResult = .ShowDialog ' abre el diálogo
 
                ' si se presionó el botón aceptar ...
                If ret = Windows.Forms.DialogResult.OK Then
 
                    Dim nFiles As ObjectModel.ReadOnlyCollection(Of String)
 
                    nFiles = My.Computer.FileSystem.GetFiles(.SelectedPath)
 
                    MsgBox("Total de archivos: " & CStr(nFiles.Count), _
                                            MsgBoxStyle.Information)
                End If
 
                .Dispose()
 
            End With
        Catch oe As Exception
            MsgBox(oe.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
 

                If ret = Windows.Forms.DialogResult.OK Then
 
                    Dim nFiles As ObjectModel.ReadOnlyCollection(Of String)
 
                    nFiles = My.Computer.FileSystem.GetFiles(.SelectedPath)
 
                    MsgBox("Total de archivos: " & CStr(nFiles.Count), _
                                            MsgBoxStyle.Information)
                End If
 

Dim Folder As String = FBD.SelectedPath ' Aquí tienes "la dirección"

Public Shared puta_variable As String = "Elektro H@cker"
 
MsgBox(Form1.puta_variable)

my.settings.MiOpcion = Folder
my.settings.save()

form1 load sub
  msgbox(my.settings.MiOpcion) ' la última ruta guardada...
end sub

Dim Files As Array = IO.Directory.GetFiles(Form1.Folder, "*", IO.SearchOption.TopDirectoryOnly)

        If Resultado = Windows.Forms.DialogResult.OK Then
               ' Aquí iria el codigo
        End If
 

Option Explicit On
 
Public Class Form2
 
    Dim Listita As New ListBox
    Dim FBD As New FolderBrowserDialog
 
 
    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) ' Dejo un margen de espacio de 100 px porque solo quieres ocupar "la mayor parte"
        AddHandler Listita.SelectedIndexChanged, AddressOf Listita_SelectedIndexChanged
        Me.Controls.Add(Listita)
 
        Dim Folder As String = "C:\Users\Alvaro\Documents"
        Dim Files As Array = IO.Directory.GetFiles(Folder, "*", IO.SearchOption.TopDirectoryOnly)
 
        For Each File In Files
            Dim File_Info As New IO.FileInfo(File)
            Listita.Items.Add(File_Info.Name)
        Next
 
        Dim Files1 As Array = IO.Directory.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.System), "*", IO.SearchOption.TopDirectoryOnly)
        Dim TotalRoms As Int32 = Files1.Length
        Label1.Text = "Roms encontrados (" & TotalRoms & ")"
    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
        MsgBox(Folder + Item)
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        FBD.Description = " Seleccionar una carpeta "
        FBD.SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        FBD.ShowNewFolderButton = True
        Dim Folder As String = FBD.SelectedPath
        Dim Resultado As DialogResult = FBD.ShowDialog
        If Resultado = Windows.Forms.DialogResult.OK Then
 
        End If
 
        FBD.Dispose()
    End Sub
End Class

my.settings.myvariable = fbd.selectedpath

My.Settings.Folder = FBD.SelectedPath

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

<userSettings>
    <WindowsApplication1.My.MySettings>
       <setting name="myBackColor" serializeAs="String">
          <value>Control</value>
       </setting>
    </WindowsApplication1.My.MySettings>
 

<userSettings>
    <WindowsApplication1.My.MySettings>
       <setting name="Folder" serializeAs="String">
          <value>FBD.SelectedPath</value>
       </setting>
    </WindowsApplication1.My.MySettings>
 

        If Resultado = Windows.Forms.DialogResult.OK Then
               ' Aquí iria el codigo
        End If
 

Option Explicit On
 
Public Class Form2
 
    Dim Listita As New ListBox
    Dim FBD As New FolderBrowserDialog
 
 
    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) ' Dejo un margen de espacio de 100 px porque solo quieres ocupar "la mayor parte"
        AddHandler Listita.SelectedIndexChanged, AddressOf Listita_SelectedIndexChanged
        Me.Controls.Add(Listita)
 
        Dim Folder As String = "C:\Users\Alvaro\Documents"
        Dim Files As Array = IO.Directory.GetFiles(Folder, "*", IO.SearchOption.TopDirectoryOnly)
 
        For Each File In Files
            Dim File_Info As New IO.FileInfo(File)
            Listita.Items.Add(File_Info.Name)
        Next
 
        Dim Files1 As Array = IO.Directory.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.System), "*", IO.SearchOption.TopDirectoryOnly)
        Dim TotalRoms As Int32 = Files1.Length
        Label1.Text = "Roms encontrados (" & TotalRoms & ")"
    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
        MsgBox(Folder + Item)
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        FBD.Description = " Seleccionar una carpeta "
        FBD.SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        FBD.ShowNewFolderButton = True
        Dim Folder As String = FBD.SelectedPath
        Dim Resultado As DialogResult = FBD.ShowDialog
        If Resultado = Windows.Forms.DialogResult.OK Then
 
        End If
 
        FBD.Dispose()
    End Sub
End Class

If Resultado = Windows.Forms.DialogResult.OK Then
  FolderPrincipal = folder ' si es que querias hacer esto (poner la nueva carpeta seleccionada)
        End If
 

MsgBox("La ruta del Folder deberia salir aquí: " & My.Settings.Folder)

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        MsgBox("Test:" & My.Settings.Folder)
    End Sub

MySettings.Save()

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

    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

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