一、使用批处理脚本（推荐）

创建批处理文件

- 打开记事本，输入以下命令：

```bash

for /f "tokens=*" %%i in ('dir /b /a-d /o-n') do echo %%i >> 文件名列表.txt

```

- 将文件保存为 `文件名列表.txt`（注意扩展名 `.txt`）。

运行批处理文件

- 双击 `文件名列表.txt` 运行，所有文件名将导出到同一目录的文本文件中。

二、使用专业软件

批量重命名工具

- 金舟批量重命名软件：

支持导入文件后批量提取文件名、扩展名等属性，并导出为Excel、Word或TXT格式。

- Advanced Renamer：可批量重命名文件，同时提取文件属性，操作界面简洁。

文件名提取工具

- 优速文件名提取器：

支持导入文件夹后一键导出文件名到Excel或TXT文件，操作便捷。

- XYplorer：文件管理工具，可批量复制文件名到其他位置。

三、使用系统内置功能

Excel VBA脚本

- 打开Excel，按 `Alt + F11` 进入VBA编辑器，插入新模块并输入以下代码：

```vba

Sub Export Filenames()

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets(1)

Dim folderPath As String

folderPath = ThisWorkbook.Path & "\*.txt" ' 修改为目标路径

Dim fso As Object, folder As Object, file As Object

Set fso = CreateObject("Scripting.FileSystemObject")

Set folder = fso.GetFolder(folderPath)

Dim i As Integer

i = 1

For Each file In folder.Files

ws.Cells(i, 1).Value = file.Name

i = i + 1

Next file

ws.SaveAs Filename:=folderPath & "\文件名列表.xlsx"

MsgBox "文件名已导出到 " & folderPath & "\文件名列表.xlsx"

End Sub

```

- 运行脚本后，文件名将导出到指定路径的Excel文件中。

四、注意事项

权限问题：

部分软件可能需要管理员权限才能运行。

路径兼容性：批处理脚本对文件名中的特殊字符需进行转义处理，避免命令错误。

数据验证：导出后建议检查文件名列表，确保格式正确。

通过以上方法，您可以高效批量保存文件名，提升文件管理效率。