Registrarse

[Tomas1982]

Buenas ante todo: Tengo un código que me enumera la cantidad de ficheros encontrados en un directorio, la cuestión es que quiero  enumerar estos ficheros por tipo de exenciones para poder generar un informe con esa información y no tengo ni la mas mínima idea de como hacerlo, me pudieran ayudar...

Este es parte del código

Código

 
FolderBrowserDialog1.ShowDialog()
TextBox1.Text = FolderBrowserDialog1.SelectedPath
Dim dirpath As String = FolderBrowserDialog1.SelectedPath
filepaths = Directory.GetFiles(dirpath, "*", SearchOption.AllDirectories)
Me.ListBox1.DataSource = filepaths
Me.Text = ListBox1.Items.Count.ToString() & ".Archivos"
 
 

[Eleкtro]

Puedes agrupar los archivos por su extensión de archivo utilizando el método Enumerable.GroupBy() de LINQ. Te escribo un ejemplo:

Código

Dim groups As IEnumerable(Of IGrouping(Of String, FileInfo)) =
    New DirectoryInfo(".\").EnumerateFiles("*", SearchOption.TopDirectoryOnly).
                            GroupBy(Of String)(Function(file As FileInfo) file.Extension)
 
For Each group As IGrouping(Of String, FileInfo) In groups
 
    Dim sb As New StringBuilder(capacity:=(group.Count * 260)) ' Suggested capacity. 260 = MAX_PATH
    With sb
        .AppendFormat("Group of file extension '{0}'", group.Key)
        .AppendLine()
        .AppendLine(String.Join(Environment.NewLine, group))
    End With
    Console.WriteLine(sb.ToString())
 
Next group

Resultado de ejecución:

Group of file extension: '.exe'
WindowsApplication1.exe
WindowsApplication1.vshost.exe

Group of file extension: '.config'
WindowsApplication1.exe.config
WindowsApplication1.vshost.exe.config

Group of file extension: '.pdb'
WindowsApplication1.pdb

Group of file extension: '.xml'
WindowsApplication1.xml

Saludos!

[Tomas1982]

Mi hermano me funciona perfecto, pero como logro contar la cantidad de fichero por tipo de extensión

[Eleкtro]

como logro contar la cantidad de fichero por tipo de extensión

Tomando como ejemplo el código que publiqué arriba, puedes hacerlo de la siguiente manera:

Código

Dim groups As IEnumerable(Of IGrouping(Of String, FileInfo)) =
    New DirectoryInfo(".\").EnumerateFiles("*", SearchOption.TopDirectoryOnly).
                            GroupBy(Of String)(Function(file As FileInfo) file.Extension)
 
Dim totalFileCount As Integer =
    groups.Sum(Function(group As IGrouping(Of String, FileInfo)) group.Count) ' Cantidad total de archivos.
 
For Each group As IGrouping(Of String, FileInfo) In groups
    Dim fileCount As Integer = group.Count ' Cantidad de archivos de este grupo.
    ...
Next group

Saludos!

[Tomas1982]

Funciona perfecto lo que mediste: Como siempre resolviendo los problemas de otros. Muchas gracias...

[Lekim]

Hola

Para usar sin consola:

Código

        Dim groups As IEnumerable(Of IGrouping(Of String, FileInfo)) =
New DirectoryInfo(".\").EnumerateFiles("*", SearchOption.TopDirectoryOnly).
                     GroupBy(Of String)(Function(file As FileInfo) file.Extension)
        For Each group As IGrouping(Of String, FileInfo) In groups
            Dim sb As New StringBuilder(capacity:=(group.Count * 260)) ' Suggested capacity. 260 = MAX_PATH
            With sb
                .AppendFormat("'{0}'", group.Key)
                .AppendLine()
                .AppendLine(String.Join(Environment.NewLine, group))
            End With
            For Each Linea As String In sb.ToString
                TextBox1.Text += Linea
            Next
        Next group

Código

 
        Dim DirInfo As New DirectoryInfo(".\")
        For Each Files As System.IO.FileInfo In DirInfo.GetFiles("*", SearchOption.TopDirectoryOnly)
            TextBox1.Text += String.Format("{0}{1}", Files.ToString, Environment.NewLine)
        Next
 

S2s