求一个批处理，批量替换文件、文件夹名中的空格

有一些文件夹，文件夹名都带空格，而且文件夹中有很多图片，图片名也有 空格，现在想把所有的文件夹和下面的文件名中的空格都替换成“-”横杠或者下划线。
求高手写个批处理给我，不借助工具，谢谢

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir/s/b *.*') do (
set a=%%~nxa
set a=!a: =-!
ren "%%a" !a!
)
pause

你说呢...