none
Sólo se agrega 1 elemento a un ListBox y deberían ser varios RRS feed

  • Pregunta

  • Hola, me pasa lo del título.

    Código:

    Private Sub Tabs_Selected(sender As Object, e As TabControlEventArgs) Handles Tabs.Selected
            If Tabs.SelectedTab Is TabPage3 Then
                ListBox1.Items.Clear()
                Dim checkpath As String
                If My.Computer.FileSystem.FileExists("games.txt") = True Then
                    Dim titles() As String = File.ReadAllLines("games.txt")
                    Dim total As Double
                    checkpath = Environment.GetEnvironmentVariable("USERPROFILE") & "\"
    
                    For Each title As String In titles
                        If My.Computer.FileSystem.DirectoryExists(checkpath & title) = True Then
                            checkpath = Environment.GetEnvironmentVariable("USERPROFILE") & "\" & title & "\"
                            If My.Computer.FileSystem.DirectoryExists(checkpath) = True Then
                                Dim Size As Long = 0
                                Dim f As FileInfo
                                Dim di As DirectoryInfo = New DirectoryInfo(checkpath)
                                di.GetDirectories()
                                Dim diarr As DirectoryInfo() = di.GetDirectories()
                                Dim fiArr As FileInfo() = di.GetFiles()
    
                                For Each di In diarr
    
                                    For Each f In fiArr
                                        Size = Size + f.Length
                                    Next f
    
                                    diarr = di.GetDirectories()
                                    fiArr = di.GetFiles()
                                Next di
                                total = Math.Round((Size / 1048576), 0)
                            End If
                            ListBox1.Items.Add(title & " | " & total & "MB")
                        End If
                    Next
                End If
            End If
        End Sub
    Ayuda!!!

    • Cambiado Enrique M. Montejo lunes, 28 de agosto de 2017 7:25 Pregunta relacionada con controles de Windows Forms.
    viernes, 25 de agosto de 2017 23:18

Todas las respuestas

  •  Podrias cargar mediante el Count de Titles() o sea Dim i As integer = Titles.count -1   para luego desarrolllar el for ...) For a As integer = 0 To  i (... ) Next , o si no quieres comprobar  i,  directamente (...) For i As integer = 0 To Titles.Count -1 (....) ... If My.Comuter.FileSystem.DirectoryExists(checjpath & Titles(i) = True Then (....)   ...Next

    Saludos

    Edito: revisión del código, dime si siempre carga la última línea



    • Editado Marcelo PF sábado, 26 de agosto de 2017 2:52
    • Propuesto como respuesta Moderador M lunes, 28 de agosto de 2017 4:36
    sábado, 26 de agosto de 2017 2:27