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

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