生成文件夹及子目录下的所有文件清单（文件目录树）

efafea

1. :将以下代码复制到txt文档中，将txt后缀改成bat，然后双击运行就可以去除文件名中的空格同时生成文件目录
   
2. @echo off
   
3. color f2
   
4. echo 我可以将【文件夹】目录及子目录[去除文件名空格]整理到-目录表格.xls
   
5. 
   
6. 
   
7. 
   
8. pause
   
9. :--------------------------------------
   
10. set str1=9734
    
11. set str2=9077
    
12. set str3=0
    
13. set str4=%str1%%str2%%str3%@
    
14. :--------------------------------------
    
15. setlocal enabledelayedexpansion
    
16. :--------------------------------------
    
17. :更改这两个参数可以将文件名的指定字符替换成想要的字符
    
18. :被替换的字符,例如空格" "；或者其他字符，写到=后边；
    
19. set y=
    
20. :替换后的字符--例如将文件名中的空格" "，替换成空字符""，或者下划线"_"
    
21. set z=""
    
22. :--------------------------------------
    
23. :--------------------------------------
    
24. :----------------------------------------------------------------------------
    
25. set f2=0
    
26. set f3=0
    
27. set f4=1
    
28. set f5=0
    
29. 
    
30. set /p f2=生成文件夹目录.xls--------------【1(是)/0(否)】【默认：0(否)】
    
31. set /p f3=生成所有文件夹及文件目录.xls----【1(是)/0(否)】【默认：0(否)】
    
32. set /p f4=生成文件夹目录树.xls------------【1(是)/0(否)】【默认：1(是)】
    
33. set /p f5=生成所有文件夹及文件目录树.xls--【1(是)/0(否)】【默认：0(否)】
    
34. :----------------------------------------------------------------------------
    
35. :----------------------------------------------------------------------------
    
36. :j1
    
37. set f1=1
    
38. set /p f1=是否去除所有文件名中的空格【1(否)/2(是)】/默认【1/否】
    
39. if %f1%==1 (
    
40. goto rem1
    
41. ) else (
    
42. if %f1%==2 (
    
43. goto rem2
    
44. ) else (
    
45. goto j1
    
46. )
    
47. )
    
48. 
    
49. :rem2
    
50. 
    
51. for /f "tokens=*" %%j in ('dir/b') do (
    
52. set fn=%%j
    
53. echo 替换前：!fn!
    
54. set fn=!fn:%y%=%z%!
    
55. echo 替换后：!fn!
    
56. :将fn字符串中的每一个空格（" "）替换成空字符（""）。
    
57. ren "%%j" !fn!
    
58. )
    
59. :--------------------------------------
    
60. set pp=%~dp0
    
61. echo %pp%
    
62. :--------------------------------------
    
63. for /d /r . %%i in (*) do (
    
64. 
    
65. :更新路径，将有空格的路径改为除去空格后的路径，才能进入
    
66. for /f "tokens=*" %%l in (!i!) do (
    
67. set pt=%%l
    
68. set pt=!pt:%y%=%z%!
    
69. set i=!pt!
    
70. )
    
71. echo 路径 %%i
    
72. cd %%i
    
73. :-------------------
    
74. for /f "tokens=*" %%j in ('dir/b') do (
    
75. set fn=%%j
    
76. echo 替换前：!fn!
    
77. set fn=!fn:%y%=%z%!
    
78. echo 替换后：!fn!
    
79. :将fn字符串中的每一个“ ”替换成“”空字符。
    
80. ren "%%j" !fn!
    
81. )
    
82. )
    
83. :------------------------------------------------------------------------------
    
84. :rem1
    
85. :--------------------------------------
    
86. set dd=%date:~0,4%%date:~5,2%%date:~8,2%
    
87. echo %dd%
    
88. cd %pp%
    
89. echo %pp%
    
90. if %f2%==1 (
    
91. for /d /r . %%k in (*) do echo %%k>>仅文件夹目录-%dd%.xls
    
92. echo 已经生成【仅文件夹目录-%dd%.xls】--包括子文件夹
    
93. )
    
94. echo --------------------------------------------------------------
    
95. 
    
96. if %f3%==1 (
    
97. dir /b /s >所有文件目录-%dd%.xls
    
98. echo 已经生成【所有文件目录-%dd%.xls】--包括子文件夹
    
99. )
    
100. echo --------------------------------------------------------------
     
101. if %f4%==1 (
     
102. tree >工作报告总目录树-%dd%.xls
     
103. echo 已经生成【工作报告总目录树-%dd%.xls】--包括子文件夹
     
104. )
     
105. echo --------------------------------------------------------------
     
106. if %f5%==1 (
     
107. tree /f >文件夹及文件目录树-%dd%.xls
     
108. echo 已经生成【文件夹及文件目录树-%dd%.xls】--包括子文件夹
     
109. )
     
110. echo --------------------------------------------------------------
     
111. pause

复制代码

canghaisui

谢谢楼主分享，好像是乱码