ファイルの名前を変更して親フォルダの名前を付けるバッチファイル

Question

私は数百のサブフォルダがあるフォルダを持っており、これらのサブフォルダにはそれぞれ1つのファイルしかありません。これらのファイルの名前を変更し、それぞれの親フォルダの名前を与えるにはどうすればよいですか？私は初心者ですので、コードの説明は非常にいただければ幸いです:)ここ

Answer 1

は助けるかもしれない何かである：

@Echo Off 
(Set dRoot=C:\Users\Pankan\MyDirectory) 
If /I "%CD%" NEq "%dRoot%" (PushD "%dRoot%" 2>Nul||Exit/B) 
For /F "Tokens=1*" %%A In ('RoboCopy /L /S /NC /NFL /NJH /NJS "%CD%" null *.*' 
     ) Do If "%%A"=="1" Call :Sub "%%B" 
Exit/B 
:Sub 
Set "pDir=%~1" 
For %%A In ("%pDir:~,-1%") Do Set "nDir=%%~nxA" 
For %%A In ("%~1*") Do If /I "%%~nxA" NEq "%nDir%%%~xA" Ren "%%A" "%nDir%%%~xA" 

変更ライン2、あなたのすべてのサブフォルダを保持するディレクトリ名を合わせて。