VB.NET, C#, PowerShellを使用しているエンジニアのためのサイト。
基本的な使用方法から開発で役立つTipsまで幅広く取り扱っています。
DirectoryクラスのGetDirectoriesメソッドではサブフォルダ以下のサブフォルダを取得することはできません。
そこでGetSubDirectoriesという独自のメソッドを準備しました。
''' <summary> ''' 指定したフォルダにあるサブフォルダをすべて取得する ''' </summary> ''' <param name="DirName">サブフォルダを取得するフォルダパス</param> ''' <param name="Dirs">取得したサブフォルダ</param> ''' <remarks></remarks> Private Sub GetSubDirectories(ByVal DirName As String, ByRef Dirs As List(Of String)) For Each strDir As String In System.IO.Directory.GetDirectories(DirName) 'リストに追加 Dirs.Add(strDir) '再帰でサブフォルダを取得する GetSubDirectories(strDir, Dirs) Next strDir End Sub
'★★★★★使用例★★★★★ Dim Folders As New List(Of String) 'C:\Work以下のすべてのサブフォルダを取得する GetSubDirectories("C:\Work", Folders)