ããçæå°EXCELéçä¸ä¼ï¼ä½æ¯å¯ä»¥çæCSVæ件
ããèªå·±å»ºä¸ä¸ªVBSæ件ï¼æä¸é¢ç代ç æè¿å»ã
ããå¯ä»¥èªå·±å¶å®è·¯å¾ï¼çæC:\1.csvæ件ã
ããdim SF,sE,tF
ããdim fs,oF,sT
ããsub getFd(fd)
ããwrtf fd
ããfor each tmpFd in fd.subfolders
ããgetFd tmpFd
ããnext
ããend sub
ããsub wrtF(fd)
ããfor each tmpfile in fd.files
ããsE.write tmpfile.name & "," & tmpfile.size & vbcrlf
ããnext
ããend sub
ããsF = InputBox("input your path")
ããset fs = CreateObject("Scripting.FileSystemObject")
ããset oF = fs.GetFolder(sF)
ããtF="C:\1.csv"
ããif fs.FileExists(tF) then
ããfs.DeleteFile tF
ããend if
ããset sE = fs.OpenTextFile (tF, 8, True)
ããsE.write "name,size" & vbcrlf
ããgetFd oF
ããsE.close
ããmsgbox "done!"
温馨提示:答案为网友推荐,仅供参考