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

[carlos7000]

Así como dice el titulo.

Deseo hacer una pequeña aplicación, que por ejemplo me muestre todos los archivos contenidos en la carpeta Download. O que me muestre todos los archivos .zip situados en Downloads.

Saludos

 

[diegoferreira]

Saludos. Aca te dejo esto escrito al vuelo...

    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]

Me funcionò perfecto. Pero como notaràn deshabilite estas las líneas.

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

Ya que creè el Listview en el designer.

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.

 

[diegoferreira]

A la orden !!!