List file contents

The following example shows you how to recursively list entire file content in order to display all storages and streams.

C# example

using System;
using Independentsoft.IO.StructuredStorage;

namespace Sample
{
    class Program
    {
        static void Main(string[] args)
        {
            CompoundFile file = new CompoundFile("c:\\temp\\test.bin");

            DirectoryEntryCollection entries = file.Root.DirectoryEntries;

            RecursiveList(entries);

            Console.WriteLine("Press any key to exit!");
            Console.Read();
        }

        private static void RecursiveList(DirectoryEntryCollection entries)
        {
            foreach(DirectoryEntry entry in entries)
            {
                if (entry is Independentsoft.IO.StructuredStorage.Stream)
                {
                    Console.WriteLine("Stream: " + entry.Name);
                }
                else
                {
                    Console.WriteLine("Storage(Folder): " + entry.Name);
                }

                if(entry is Independentsoft.IO.StructuredStorage.Storage)
                {
                    Independentsoft.IO.StructuredStorage.Storage storage = (Independentsoft.IO.StructuredStorage.Storage)entry; 
                    RecursiveList(storage.DirectoryEntries);
                }
            }
        }
    }
}

VB example

Imports System
Imports Independentsoft.IO.StructuredStorage

Namespace Sample
    Class Module1
        Shared Sub Main(ByVal args As String())

            Dim file As New CompoundFile("c:\temp\test.bin")

            Dim entries As DirectoryEntryCollection = file.Root.DirectoryEntries

            RecursiveList(entries)

            Console.WriteLine("Press any key to exit!")
            Console.Read()

        End Sub

        Private Shared Sub RecursiveList(ByVal entries As DirectoryEntryCollection)

            For Each entry As DirectoryEntry In entries

                If TypeOf entry Is Independentsoft.IO.StructuredStorage.Stream Then
                    Console.WriteLine("Stream: " + entry.Name)
                Else
                    Console.WriteLine("Storage(Folder): " + entry.Name)
                End If

                If TypeOf entry Is Independentsoft.IO.StructuredStorage.Storage Then
                    Dim storage As Independentsoft.IO.StructuredStorage.Storage = DirectCast(entry, Independentsoft.IO.StructuredStorage.Storage)
                    RecursiveList(storage.DirectoryEntries)
                End If

            Next
        End Sub

    End Class
End Namespace

Independentsoft - any library, any programming language

Compound File .NET > Tutorial > List file contents