小技巧 | 如何快速提取文件夹中所有文件的名字？

废话不多说，直接上干货：

比如如下文件，我想快速提取所有文件的名字，可以怎么做？

只需简单五步，1分钟之内即可轻松搞定！

1）在要统计名称的文件夹下新建一个文本文件，用来誉乱肆生成 “.bat文件”

2）在记事本文件中输入： DIR *.*  /B >LIST.TXT

3） 将此记事本文件后辍名，由txt改为bat 。会d出重命名对话框，单击“是”

4）双击文件 “新建文本文档.bat” 即可生成list.txt文件， 里面就有所有文档的名字

5）将这些文字复制到Excel中，就OK了！

几个你可能关心的Tips：

① 如何显示隐藏的格式名称？

win 10 :

② 如何删除Excel表中的 文件扩展名？（比如此例中的“.caj”和“.pdf”）

这里以删除 “.pdf”为例：

替换内容：.pdf

替换为：（这里什么也别输入）

点击【全陪埋部替换】,OK !

以上。

希望你喜欢，不明白的地方欢迎留言庆轿提问~

编码设为ANSI后保存脚本

@echo off & title 获取文件名，修改时间，伍高弯并记录到表格中 By 依梦琴瑶

cd /d "%~dp0"

::设置要处理的文件夹

set SrcDir=D:\MyFolder

::设置要处理的文件格式，全部格式请直接用*

set Ext=*

::设置是否包含子目录，是=1，否=其它任何非1的字符

set Sub=0

::保存的表格文件名

set Excel=文件列表表格.xlsx

if "%Sub%"=="1" set "S=/s"

pushd "%SrcDir%"

echo 正在获取中，请耐心等待。。。

(echo "文件名","修改时间"

for /f "delims=" 念粗%%a in ('dir /a-d%S%/b/tw %Ext% 2^>nul') do (

    echo "%%~nxa","%%~ta"

))>"%tmp%\MyFilesListTemp.csv"

popd

call :WriteXLSXFile

cls & echo 文件列表表格生成完毕，请在脚本同目腔闷录下查看“%Excel%”。

pause

exit

:WriteXLSXFile

(echo Set oExcel = CreateObject("Excel.Application"^)

echo oExcel.Workbooks.Open "%tmp%\MyFilesListTemp.csv"

echo oExcel.ActiveSheet.Columns("A:O"^).Select

echo oExcel.Selection.EntireColumn.AutoFit

echo oExcel.ActiveWorkbook.SaveAs "%~dp0%Excel%",51

echo oExcel.Quit)>"%tmp%\Csv2Xlsx.vbs"

del /f /q "%~dp0%Excel%" 2>nul

"%tmp%\Csv2Xlsx.vbs"

goto :eof

---