如何将目录树列表写入文本文件？

Question

我想创建一个批处理文件。当它被调用为batch.bat MyProject或batch.bat MyProject/时，它将产生以下列表。请注意0​​是MyProject的子目录。我正在使用Windows 7.

Dir 
Dir/SubDir1 
Dir/SubDir1/SubSubDir1 
Dir/SubDir1/SubSubDir2 
Dir/SubDir2 
Dir/SubDir2/SubSubDir1 
Dir/SubDir2/SubSubDir2 
Dir/SubDir2/SubSubDir3 
Dir/SubDir3 
Dir/SubDir4 

如何将目录树列表写入文本文件？

必须排除文件名。

Answer 1

FORFILES提供了一个简单的解决方案，但它是慢。该命令从作品批处理文件中同样或者在命令行上：

forfiles /s /p "c:\MyProject" /m * /c "cmd /v:on /c if @isdir==TRUE (set f=@relpath&echo !f:~3,-1!)" >listing.txt 

如果您运行MyProject的命令作为当前目录，那么你可以删除该命令的
/p "c:\MyProject"选项。

如果你不介意你的相对路径被封闭在与每个路径的前.\报价，则该解决方案更简单：

forfiles /s /p "c:\MyProject" /m * /c "cmd /c if @isdir==TRUE echo @relpath" >listing.txt 

Answer 2

好的 - 这应该做到这一点。它需要一个参数（根文件夹）。

@ECHO OFF 

SET root=%1 

REM Get the length of the root, to make the path relative later. 
REM See http://stackoverflow.com/questions/5837418/how-do-you-get-the-string-length-in-a-batch-file. 
ECHO %root%>x&FOR %%? IN (x) DO SET /A rootlength=%%~z? - 1&del x 

for /F "tokens=*" %%G in ('DIR %1 /AD /S /B') do (
    CALL :PrintDirectory "%%G" %rootlength% 
) 

GOTO :eof 

:PrintDirectory 
REM %1 Path to the folder 
REM %2 Length of root string. 

REM See http://www.dostips.com/DtTipsStringManipulation.php#Snippets.LeftString for 
REM information on the string manipulation. 

@ECHO OFF 
SET start=%2 
SET absPath=%1 

REM Remove the path root by taking the right-hand side of the string. 
CALL SET relPath=%%absPath:~%start%,-1%% 

ECHO.%relPath% 

您可以通过重定向的结果，一个批处理文件执行：

PrintDirectoryStructure.bat c:\MyProject > out.txt