５．指定フォルダー内の全ファイル数・サブフォルダー数を取得する(32_Fil_05)　(旧、SampleNo.025)

１．指定のフォルダー内の全ファイル数を取得 ２．指定のフォルダー内の全ファイル数とサブフォルダー数を取得 ３． ４． ５． ６．

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

１．指定のフォルダー内の全ファイル数を取得

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click '指定のフォルダー内の全ファイル数を取得     'Directory.GetFiles メソッド    [名前空間: System.IO]     '指定したディレクトリ内のファイル名を返します。     Dim FolderName As String = "g:\VB2013"     Dim FileCount As Integer = System.IO.Directory.GetFiles(FolderName).Length     MessageBox.Show(FolderName & " のフォルダー内のファイル数は、" & FileCount & " 個です。") End Sub

２．指定のフォルダー内の全ファイル数とサブフォルダー数を取得

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '指定のフォルダー内の全ファイル数とサブフォルダー数を取得     'Directory.GetFileSystemEntries メソッド     [名前空間: System.IO]     '指定したディレクトリ内のすべてのファイル名とサブディレクトリ名を返します。     Dim FolderName As String = "g:\VB2013"     Dim FileCount As Integer = System.IO.Directory.GetFileSystemEntries(FolderName).Length     MessageBox.Show(FolderName & " のフォルダー内のフォルダー及びファイル数は、" & FileCount & " 個です。") End Sub

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)