ファイル名にスペースが入っている物を一括でアンダーバーに変換したいです

【概要】 バッチファイルで特定の拡張子のファイル名にアンダーバーが入っているファイルに関して アンダーバーに一括変換したいと考えております。 ※全角、半角の両方それぞれのアンダーバーに変換したいです ただ、特定のフォルダ配下は対象外にして実行したいと考えています。 (Cドライブ全体を対象にすることは出来ています。) 例えば、c:\Program Files と C:\app\client\%username% フォルダ配下は サブフォルダを含めて対象外にしたいです。 修正方法を教えて頂けないでしょうか。 ■現状 下記でCドライブ直下の「.txt」ファイルでスペースが入ってた場合に置き換えることは出来ています。 ---------------------------- set renamefolder=C:\ @echo スペースをアンダーバーに置き換えます rem Replace space for /R %renamefolder% %%i in (*.txt) do ( set File=%%~nxi call set File=%%File: =_%% call set File=%%File:　=＿%% call ren "%%i" "%%File%%" )