file - [バッチ]サブフォルダーに新しくコピーされたファイルをコピーしてサフィックスを追加するにはどうすればよいですか?

Question

これは私がこれまでに持っているコードです:

@echo off
set /P suffix=Enter name to add:

@echo off
setlocal EnableDelayedExpansion    
PUSHD .
cd "%%d"
set n=0
for %%f in (*.*) do (
   set /A n+=1
   set "file[!n!]=%%f"
)                        
set /A "rand=(n*%random%)/32768+1" 
copy "!file[%rand%]!" "%suffix%"  
POPD

進行状況: ユーザー入力を受け取り、ランダムなファイルを 1 つ選択してコピーし、新しい名前で貼り付ける機能があります。

問題: サブフォルダーには適用されず、ユーザー入力はサフィックスとして追加されず、文字通りファイル全体の名前が変更されます。

質問: ファイル名とファイルタイプを保持しながら、新しくコピーしたファイルにユーザー入力をサフィックスとして追加するにはどうすればよいですか?

また、この機能をサブフォルダーにも適用できますか?