bat获取文件夹下所有的csv文件名及文件的首行

Question

有多个csv文件 用批处理 提取文件名及首行内容 到新的csv 文件名要和内容首行对应

Answer 1

set f=createobject("scripting.filesystemobject")
s=""
csvpath="C:\Users\showbo\Desktop\"'csv文件路径

set files=f.GetFolder(csvpath&file).Files
for each file in files
  if instr(file.name,".csv")<>0 then
     set t=f.OpenTextFile(csvpath&file.name)
     text=t.readall()
     arr=split(text,chr(10))
     s=s&csvpath&file.name&chr(10)& arr(0)&chr(10)
     t.close()
     set t=nothing
  end if
next
set files=nothing

'内容写入到result.csv文件中
set csv=f.OpenTextFile(csvpath&"result.csv",8,True)
csv.write s
csv.close()
set csv=nothing

set f=nothing

msgbox "操作成功"