VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 フォルダー関係のメニュー
1.フォルダー(ディレクトリ)の属性を取得及び設定・除去する
2.フォルダー(ディレクトリ)のタイムスタンプを取得及び設定する
3.フォルダーの作成・有無の確認及びコピー・移動・削除・フォルダー名の変更
4.フォルダー(ディレクトリ)に関するパス操作色々
5.システムの特別なフォルダーのフォルダーパスを取得
6.指定フォルダー以下のサブフォルダー数を取得及びフォルダー名を列挙
7.
8.
9.
10.
11.
12.
 .
20.その他、当サイト内に掲載のフォルダーに関するサンプル


6.指定フォルダー以下のサブフォルダー数を取得及びフォルダー名を列挙(35_Fld_06) (旧、SampleNo.036)
1.指定フォルダー以下のサブフォルダー数を取得及びフォルダー名を列挙
2.
3.
4.
5.
6.

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86
Option :[Compare Text] [Explicit On] [Infer On] [Strict On]
Imports :追加なし
参照設定:
追加なし
その他 :
    :
このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので)
必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)
このページのトップへ移動します。 1.指定フォルダー以下のサブフォルダー数を取得及びフォルダー名を列挙

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'フォルダー数及びサブフォルダーのパスを取得する
    Dim folderBrowserDialog1 As New FolderBrowserDialog
    ListBox1.Items.Clear()
    Label1.Text = ""
    ListBox1.HorizontalScrollbar = True

    Dim folderName As String
    'フォルダーの参照ダイアログを表示
    If folderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
        'フォルダー名を取得
        folderName = folderBrowserDialog1.SelectedPath
    Else
        Exit Sub
    End If
    folderBrowserDialog1.Dispose()
    Dim di As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(folderName)
    'フォルダー数及びサブフォルダーのパスを取得
    Dim sumDirectory As Integer = CInt(GetSubDirectory(ListBox1, di))
    Label1.Text = sumDirectory & " フォルダーありました。"
End Sub

Public Shared Function GetSubDirectory(ByVal lb As ListBox, _
                                       ByVal d As System.IO.DirectoryInfo) As Integer
'指定フォルダー以下のサブフォルダー数を取得する関数
'エクスプローラーのフォルダーのプロパティの全般のところで表示しているフォルダー数と同じ
    Dim fCount As Integer = 0
    Try
        Dim dis As System.IO.DirectoryInfo() = d.GetDirectories()
        Dim di As System.IO.DirectoryInfo
        'サブフォルダー数を合計する
        For Each di In dis
            lb.Items.Add(di.FullName)
            fCount += GetSubDirectory(lb, di) + 1
        Next di
    Catch ex As Exception

    End Try
    Return fCount
End Function

 図1.上記実行結果
 vb2013folder06_1

このページのトップへ移動します。 2.


このページのトップへ移動します。 3.


このページのトップへ移動します。 4.


このページのトップへ移動します。 5.


このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)
指定ディレクトリ以下のディレクトリ数を取得及びディレクトリ名を列挙




このページのトップへ移動します。