Foro de elhacker.net

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

 
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"
 
 

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

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:

Saludos!

Mi hermano me funciona perfecto, pero 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:

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!

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

Hola

Para usar sin consola:

        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

---

 
        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