编码设为ANSI后保存脚本@echo off & title 获取文件名,修改时间,并记录到表格中 By 依梦琴瑶cd /d "%~dp0"::设置要处理的文件夹set SrcDir=D:\MyFolder::设置要处理的文件格式,全部格式请直接用*set Ext=*::设置是否包含子目录,是=1,否=其它任何非1的字符set Sub=0::保存的表格文件名set Excel=文件列表表格.xlsxif "%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"popdcall :WriteXLSXFilecls & echo 文件列表表格生成完毕,请在脚本同目录下查看“%Excel%”。pauseexit:WriteXLSXFile(echo Set oExcel = CreateObject("Excel.Application"^)echo oExcel.Workbooks.Open "%tmp%\MyFilesListTemp.csv"echo oExcel.ActiveSheet.Columns("A:O"^).Selectecho oExcel.Selection.EntireColumn.AutoFitecho oExcel.ActiveWorkbook.SaveAs "%~dp0%Excel%",51echo oExcel.Quit)>"%tmp%\Csv2Xlsx.vbs"del /f /q "%~dp0%Excel%" 2>nul"%tmp%\Csv2Xlsx.vbs"goto :eof