玄関へお回り下さい。
指定フォルダー内の全ファイル数・サブフォルダー数を取得する (2個)        (SNo.025)

1.指定のフォルダー内の全ファイル数を取得
2.指定のフォルダー内の全ファイル数とサブフォルダー数を取得
使用コントロール Button1  〜 Button2
その他条件 WindowsXP(Vista) Visual Basic 2005(VB2008)
Imports System.IO  をモジュールの先頭に記述しておいて下さい。
1.指定のフォルダー内の全ファイル数を取得

Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'指定のフォルダー内の全ファイル数を取得
'Imports System.IO  をモジュールの先頭に記述しておいて下さい。
    'Directory.GetFiles メソッド    [名前空間: System.IO]
    '指定したディレクトリ内のファイル名を返します。
    Dim FolderName As String = "c:\"
    Dim FileCount As Integer = Directory.GetFiles(FolderName).Length
    MessageBox.Show(FolderName & _
                " のフォルダー内のファイル数は、" & FileCount & " 個です。")
    '結果  c:\ のフォルダー内のファイル数は、77 個です。
End Sub

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

Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'指定のフォルダー内の全ファイル数とサブフォルダー数を取得
'Imports System.IO  をモジュールの先頭に記述しておいて下さい。
    'Directory.GetFileSystemEntries メソッド     [名前空間: System.IO]
    '指定したディレクトリ内のすべてのファイル名とサブディレクトリ名を返します。
    Dim FolderName As String = "c:\"
    Dim FileCount As Integer = Directory.GetFileSystemEntries(FolderName).Length
    MessageBox.Show(FolderName & _
        " のフォルダー内のフォルダー及びファイル数は、" & FileCount & " 個です。")
    '結果  c:\ のフォルダー内のフォルダー及びファイル数は、113 個です。
End Sub

ファイル及びフォルダー関係の操作の場合は、Imports System.IO  をモジュールの先頭に記述するか、事前に追加しておく事をお薦めします。




2004/04/26
2005/09/11


VBレスキュー(花ちゃん)
VB.NET2003  VB2005