rat

@echo off & setlocal
set /p FilePath=文件路径(默认%ComSpec%)：
if %FilePath%｜==｜ set FilePath=%ComSpec%
set FilePath="%FilePath:"=%"
for %%a in (%FilePath%) do call :GetChrCount "%%~dpa" "\"
echo 目录层数：%errorlevel%
pause
goto :eof

:GetChrCount
set s=%~1
set c=%~2
	:while
		call set o=%%s:~%i%,1%%
		if "%o%"=="" exit /b %n%
		if "%o%"=="%c%" set /a n+=1
		set /a i+=1
	goto while
复制代码

rat

@echo off & setlocal
set /p FilePath=文件路径(默认%ComSpec%)：
if %FilePath%｜==｜ set FilePath=%ComSpec%
set FilePath="%FilePath:"=%"
for %%a in (%FilePath%) do call :GetChrCount "%%~dpa" "\"
echo 目录层数：%errorlevel%
pause
goto :eof

:GetChrCount
set s=%~1
set c=%~2
set s=%s: =%
call set s=%%s:%c%= %%
for %%a in (%s%) do set /a n+=1
exit /b %n%
复制代码

rat

@echo off & setlocal
set /p FilePath=文件路径(默认%ComSpec%)：
if %FilePath%｜==｜ set FilePath=%ComSpec%
set FilePath="%FilePath:"=%"
for %%a in (%FilePath%) do call :GetDirCount "%%~dpa"
echo 目录层数：%errorlevel%
pause
goto :eof

:GetDirCount
set cd_=%1
set n=1
pushd %cd_%
	:while
	cd..
	if "%cd%\"==%cd_% goto wend
	set /a n+=1
	set cd_="%cd%\"
	goto while
	:wend
popd
exit /b %n%
复制代码