Mensajes

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

Sin codigo imposible de adivinar, pero como lo has puesto en hacking basico seguro que es un downloader para malware, y tal vez se descarga si pero tu antivirus borra el archivo. Digo yo, mucho no podemos saber si no das mas datos.

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

Estoy casi seguro que lo que quieres es mas simple de lo que crees, es exactamente lo que te dije yo seguramente. No necesitas hacer nada de Settings y no se que mas, es mas simple.

nunca se fueron a dormir sin poder resolver algo y se fueron a dormir, y estando "entredormido" resolvieron el problema? es lo mas, a mi me paso varias veces. no soy programador, pero algo llegue a aprender XD

Tenes un bug en un programa que estas programando y no sabes porque se genera, algo esta mal y seguramente es algo estupido pero no te das cuenta que es porque estas cansado o simplemente no estas tan concentrado. Te vas a dormir, estas pensando en cualquier cosa, luego te pones a pensar en eso y por arte de magia Bingo! te sabes como resolverlo!. Te levantas y vas a resolver el bug o te anotas en el celular lo que tenes que hacer por la mañana.

A mas de uno estoy seguro que le ha pasado. Desde esas experiencias, me di cuenta que lo mejor que uno puede hacer cuando no puede resolver algo es despejarse un tiempo, salir a caminar, descansar y cuando vuelves a enfocarte en el problema ya lo ves desde otra perspectiva y logras resolverlo.

Es mas, no es ningun metodo nuevo, todos los genios de la historia de la humanidad, no por coincidencia les gustaba salir a caminar o a andar en bicicleta cuando estaban en medio de algo a resolver.

Tienes que meter el menu en bucle Do-While, seguramente has leido sobre eso. Haces que se ejecute por primera vez el bucle y luego seguira ejecutandose MIENTRAS que una variable NO sea igual a "salir" por ejemplo, asi cuando el usuario ingrese "salir" ahi el bucle terminara y saldra del programa.

Busca sobre eso del bucle y encontraras ejemplos y de paso iras viendo como poner otros pequeños bucles para controlar mejor los errores cuando ingresa algo incorrecto el usuario, para que vuelva a preguntar hasta que ingrese bien los datos o como quieras hacerlo.

Lo que intento hacer es editar el Folder desde:

Código (vbnet) [Seleccionar] Expandir


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


Pero hay conflicto porque hay ya un Folder definido, que por cierto lo quite de Form1,

Código (vbnet) [Seleccionar] Expandir


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

Un saludo.

Tenes que poner la linea Dim Folder As String = "C:\Users\Alvaro\Documents" junto con estas otras para que quede asi:

Dim Listita As New ListBox
Dim FBD As New FolderBrowserDialog
Dim FolderPrincipal As String = "C:\Users\Alvaro\Documents"

Asi la nueva variable FolderPrincipal se podra usar desde cualquier procedimiento o funcion.

Luego si podras usar esa variable aca:

Código (vbnet) [Seleccionar] Expandir


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



Nada mas, nada de complicaciones, por lo menos es lo que te he entendido.

Cual es el problema principal? ya no se entiende nada, si te explicas desde un principio lo que necesitas claramente tal vez te puedamos ayudar mejor.

Yo te aconsejaria que una vez que lo hayas terminado, empezar de nuevo, no es muy largo como para que demores mucho. Al empezar de nuevo lo pensaras mejor en un papel con lapicera para poder organizarte mejor en el codigo y para que te sea mas facil entenderlo en el futuro y hacerle cambios.

Digo porque hay cosas como esta:

Código (vbnet) [Seleccionar] Expandir


   If B = True Then
                    If C_INTENTOS = 1 And NUM = NUM_ACERTAR Then
                        T_PUNTOS_J1 = T_PUNTOS_J1 + 10
                        C_INTENTOS = 6
                        TextBox1.Text = "HAS GANADO J1"
                    ElseIf C_INTENTOS = 2 And NUM = NUM_ACERTAR Then
                        T_PUNTOS_J1 = T_PUNTOS_J1 + 8
                        C_INTENTOS = 6
                        TextBox1.Text = "HAS GANADO J1"
                    ElseIf C_INTENTOS = 3 And NUM = NUM_ACERTAR Then
                        T_PUNTOS_J1 = T_PUNTOS_J1 + 6
                        C_INTENTOS = 6
                        TextBox1.Text = "HAS GANADO J1"
                    ElseIf C_INTENTOS = 4 And NUM = NUM_ACERTAR Then
                        T_PUNTOS_J1 = T_PUNTOS_J1 + 4
                        C_INTENTOS = 6
                        TextBox1.Text = "HAS GANADO J1"
                    ElseIf C_INTENTOS = 5 And NUM = NUM_ACERTAR Then
                        T_PUNTOS_J1 = T_PUNTOS_J1 + 2
                        C_INTENTOS = 6
                        TextBox1.Text = "HAS GANADO J1"

                    End If
                Else

                    If C_INTENTOS_J2 = 1 And NUM = NUM_ACERTAR Then
                        T_PUNTOS_J2 = T_PUNTOS_J2 + 10
                        C_INTENTOS = 6
                        TextBox1.Text = "HAS GANADO J2"
                    ElseIf C_INTENTOS_J2 = 2 And NUM = NUM_ACERTAR Then
                        T_PUNTOS_J2 = T_PUNTOS_J2 + 8
                        C_INTENTOS = 6
                        TextBox1.Text = "HAS GANADO J2"
                    ElseIf C_INTENTOS_J2 = 3 And NUM = NUM_ACERTAR Then
                        T_PUNTOS_J2 = T_PUNTOS_J2 + 6
                        C_INTENTOS = 6
                        TextBox1.Text = "HAS GANADO J2"
                    ElseIf C_INTENTOS_J2 = 4 And NUM = NUM_ACERTAR Then
                        T_PUNTOS_J2 = T_PUNTOS_J2 + 4
                        C_INTENTOS = 6
                        TextBox1.Text = "HAS GANADO J2"
                    ElseIf C_INTENTOS_J2 = 5 And NUM = NUM_ACERTAR Then
                        T_PUNTOS_J2 = T_PUNTOS_J2 + 2
                        C_INTENTOS = 6
                        TextBox1.Text = "HAS GANADO J2"
                    End If
                End If




Donde se repite siempre And NUM = NUM_ACERTAR y se podria mejorar para hacer menos verificaciones y que sea mas rapido el codigo y sea mas claro.

Código (vbnet) [Seleccionar] Expandir


if NUM = NUM_ACERTAR Then

     select case: C_INTENTOS

               case 1:
                     T_PUNTOS_J1 = T_PUNTOS_J1 + 10
                     .....
                     .....



La solución sería pues no ponerte de colaborador 

Por eso mismo no lo considera una vulnerabilidad Google y opino igual que vos y que Google.