以下常用语句不够熟练 1. ``` Application.Screenupdating = false
ActiveSheet.usedrange.clearcontents
//重要的是ff的两个属性,ff.files和ff.subfolders
set fso = createobject(scripting.filesystemobject)
set ff = fso.getfolder(pth)
for each f in ff.Files
cells(rows.count,1).end(3).offset(1) = f.name
cells(rows.count,2).end(3).offset(1) = f
next f
for each fd in ff.subfolders
getfd(fd)
next fd