Sub ファイルの数を数える()

    ファイル = Dir("C:\test\*.*") '*.txt ならtextのみ対象
    
    Do While ファイル <> "" 'ファイルがなくなるまで続ける
    
        ファイル数 = ファイル数 + 1
        
        ファイル = Dir() '次のファイルを取得
    
    Loop

    MsgBox "C:\test\ 内のファイル数：" & ファイル数

End Sub