スクリプトで下記の通り書くと、folder内の拡張子extentのファイルパスリストを outputfileにテキストファイルで出力してくれるようです。

しかし、下記のスクリプトだと、folder内のサブフォルダの拡張子extentのファイルパスリストも含めて探して出力するため困っています。サブフォルダ内の拡張子extentのファイルは探さないように変更したいのですが、下記をどのように修正すればよいでしょうか？

cmd = "cmd.exe /c dir /S /B """ & folder & "\" & extent & """ > """ & outputfile & """"

注記：上記で　folder, extent, outputfileは変数です。