下記は、指定フォルダ内の拡張子がCSVのファイルを数えるスクリプトの1部です。

これを

指定フォルダ内のすべてのファイルを数えるスクリプトに変更するには、

下記のBold書体の "CSV"を”*”に変更すればよいでしょうか？

ーーーー
'ファイルの数を数える変数を初期化
count = 0

'拡張子がCSVのファイルを数える
For Each f In objFolder.Files
If UCase(objFileSys.GetExtensionName(f.Path)) = "CSV" Then
count = count + 1
End If
Next

ーーーー