ディレクトリに含まれるサブディレクトリおよびファイルを列挙する

Imports System
Imports System.IO

Class SampleClass

    Public Shared Function Main(ByVal args() As String) As Integer

        ' 列挙する
        EnumerateFiles("E:\EnumerationTest\")

        Return 0

    End Function

    ' ディレクトリに含まれるファイルを列挙する
    Public Shared Sub EnumerateFiles(ByVal path As String)

        If Directory.Exists(path) Then
            ' path がディレクトリの場合

            ' 列挙する
            Console.WriteLine(path)

            ' path に含まれるファイルとサブディレクトリを取得する
            Dim paths() As String

            paths = Directory.GetFileSystemEntries(path)

            Dim p As String

            For Each p In paths

                ' 再帰により paths に含まれるすべてのパスをチェックする
                EnumerateFiles(p)

            Next

        ElseIf File.Exists(path) Then
            ' path がファイルの場合

            ' 列挙する
            Console.WriteLine(path)

        End If

    End Sub

End Class

using System;
using System.IO;

namespace SampleClass
{
    class SampleClass
    {
        public static int Main( string[] args )
        {
            // 列挙する
            EnumerateFiles( "E:\\EnumerationTest\\" );

            return 0;
        }

        // ディレクトリに含まれるファイルを列挙する
        public static void EnumerateFiles( string path )
        {
            if ( Directory.Exists( path ) ) 
            {
                // path がディレクトリの場合

                // 列挙する
                Console.WriteLine( path );

                // path に含まれるファイルとサブディレクトリを取得する
                string [] paths;

                paths = Directory.GetFileSystemEntries( path );

                foreach ( string p in paths )
                {
                    // 再帰により paths に含まれるすべてのパスをチェックする
                    EnumerateFiles( p );
                }
            }
            else if ( File.Exists( path ) ) 
            {
                // path がファイルの場合

                // 列挙する
                Console.WriteLine( path );
            }
        }
    }
}