vbs脚本，提取当前目录下所有文件的文件名，并保存到excel文件中

以下是提取当前目录下所有文件的文件名并保存到一个excel文件中的vbs脚本：

点击查看代码

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.DisplayAlerts = False

' 获取当前目录
currentFolder = objFSO.GetAbsolutePathName(".")

' 创建Excel工作簿
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)

' 设置标题
objWorksheet.Cells(1, 1).Value = "文件名"

' 获取当前目录所有文件
Set objFolder = objFSO.GetFolder(currentFolder)
Set colFiles = objFolder.Files

' 写入文件名（不含扩展名）
row = 2
For Each objFile in colFiles
    ' 使用GetBaseName方法去除扩展名
    fileName = objFSO.GetBaseName(objFile.Name)
    objWorksheet.Cells(row, 1).Value = fileName
    row = row + 1
Next

' 自动调整列宽
objWorksheet.Columns(1).AutoFit()

' 保存Excel文件
outputPath = currentFolder & "\文件名列表.xlsx"
objWorkbook.SaveAs(outputPath)

' 清理对象
objWorkbook.Close
objExcel.Quit

Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
Set objFolder = Nothing
Set objFSO = Nothing

MsgBox "文件名提取完成！文件已保存为：" & outputPath

使用方法：

• 可直接复制上述这段脚本文本到一个新建的文本文档中，再另存，注意编码格式选择为ANSI。

• 将文本文档后缀名由“.txt”改为“.vbs”。

• 将vbs脚本文件保存在需要提取文件名的文件夹路径下，双击vbs脚本文件

• 等待片刻后在当前文件夹下便会生成一个“文件名列表.xlsx”的excel文件，打开该文件，里面便是当前目录下的所有文件的文件名。