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

进展：我具有接受用户输入、选择单个随机文件、复制并粘贴新名称的功能。

问题：它不适用于子文件夹，用户输入不是作为后缀添加的，而是从字面上重命名整个文件。

问题：如何在保留文件名和文件类型的同时将用户输入作为后缀添加到新复制的文件中？

是否也可以将此功能应用于子文件夹？