フォルダ内のファイルやフォルダの一覧を取得するサンプル(VB.NET)

＜このサンプルの概要＞
フォルダ内のファイルやフォルダの一覧を取得するサンプルです。
DirectoryInfo.GetFilesやDirectoryInfo.GetDirectoriesを使用しています。

関連情報
送ってファイル情報コピー
マウス右クリック→送る(SendTo)メニューからファイルのパス(PATH)や属性をクリップボードへコピー 

Module Module1
    ''' <summary>
    ''' フォルダ内のファイルやフォルダの一覧(配列)取得
    ''' </summary>
    ''' <param name="ipath">フォルダPATH</param>
    ''' <param name="flist">ファイルやフォルダの一覧(配列)</param>
    ''' <remarks></remarks>
    Public Sub GetFolderList(ByVal ipath As String, ByRef flist As String())
        Try
            Dim curFol As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(ipath)

            ' ファイルの一覧作成
            Dim fil As System.IO.FileInfo() = curFol.GetFiles()
            For i As Integer = 0 To UBound(fil)
                ReDim Preserve flist(UBound(flist) + 1)
                flist(UBound(flist)) = fil(i).FullName
            Next

            ' フォルダの一覧作成
            Dim fol As System.IO.DirectoryInfo() = curFol.GetDirectories()
            For i As Integer = 0 To UBound(fol)
                ReDim Preserve flist(UBound(flist) + 1)
                flist(UBound(flist)) = fol(i).FullName
                Dim strs As String() = New String(-1) {}
                GetFolderList(fol(i).FullName, strs)
                For j As Integer = 0 To UBound(strs)
                    ReDim Preserve flist(UBound(flist) + 1)
                    flist(UBound(flist)) = strs(j)
                Next
            Next
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
End Module

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' フォルダ内のファイルやフォルダの一覧(配列)取得
        Dim flist As String() = New String(-1) {}
        GetFolderList("d:\temp", flist)

        ' ファイルやフォルダの一覧(配列)ソート
        Array.Sort(flist)

        ' ファイルやフォルダの一覧(配列)を出力
        For Each s As String In flist
            System.Diagnostics.Debug.WriteLine(s)
        Next
    End Sub