フォルダ内のサブフォルダを除くファイル数の取得スクリプトは下記のようです。

これを.csvの拡張子を持つファイル数をカウントするスクリプトに変更したいのですが、どう書けばよいでしょうか？

もしかしたら簡単かもしれませんが、スクリプト初心者のため、わかりません。教えてください。

ーーー（ここから）－－－
Set objFileSys = CreateObject("Scripting.FileSystemObject")

'フォルダオブジェクトを取得
Set objFolder = objFileSys.GetFolder(!フォルダ名!)

'ファイルの数を表示（フォルダは除く）
SetUMSVariable $ファイル数$, objFolder.Files.Count

Set objFileSys = Nothing

ーーー（ここまで）－－－

参考URL: https://bayashita.com/p/entry/show/70