Spanish Como leer todos los nombres de un directorio/carpeta y colocaros en una lista. [SOLUCIONADO]

diegoferreira

Member
Licensed User
Longtime User
Saludos. Aca te dejo esto escrito al vuelo...

B4X:
    Dim ListView1 As ListView
    ListView1.Initialize( "ListView1" )
    Activity.AddView( ListView1, 0dip, 0dip, 100%x, 100%y )

    Dim List_Files As List = File.ListFiles( File.DirRootExternal & "/downloads" )
    If List_Files.Size > 0 Then 
        For N1 = 0 To ( List_Files.Size - 1 )
            Dim File1 As String = List_Files.Get( N1 )
            If File1.EndsWith( ".zip" ) Then
                ListView1.AddSingleLine2( File1, File1 )
            End If
        Next
    End If
 

carlos7000

Well-Known Member
Licensed User
Longtime User
Me funcionò perfecto. Pero como notaràn deshabilite estas las líneas.

B4X:
    ListView1.Initialize( "ListView1" )
    Activity.AddView( ListView1, 0dip, 0dip, 100%x, 100%y )

Ya que creè el Listview en el designer.

B4X:
Sub Activity_Resume
    'ListView1.Initialize( "ListView1" )
    'Activity.AddView( ListView1, 0dip, 0dip, 100%x, 100%y )

    Dim List_Files As List = File.ListFiles( File.DirRootExternal & "/Download" )
    If List_Files.Size > 0 Then
        For N1 = 0 To ( List_Files.Size - 1 )
            Dim File1 As String = List_Files.Get( N1 )
            If File1.EndsWith( ".zip" ) Then
                ListView1.AddSingleLine2( File1, File1 )
            End If
        Next
    End If
End Sub

Muchas gracias por la ayuda.
 
Top