'**如下:
sub test()
enumfiles "c:/documents and settings/ibmsz/my documents/2010-08-10" ' 遍歷 e: 下的所有檔案
end sub
sub enumfiles(byval spath as string)
dim fs as new filesystemobject
getfile fs.getfolder(spath)
set fs = nothing
end sub
sub getfile(byval fldparent as folder)
dim fldsub as folder, fsub as file
for each fldsub in fldparent.subfolders
getfile fldsub
next
for each fsub in fldparent.files
if ucase(right(trim(fsub), 3)) = "doc" then ' 檔案型別判斷
debug.print fsub
end if
next
set fldsub = nothing
set fsub = nothing
end sub
遍歷資料夾
function search path string filename string ball boolean false string varsearchrec tsearchrec begin if findfirst path faanyfile,searchrec 0 then begin...
資料夾遍歷
c 遍歷指定資料夾中的所有檔案 directoryinfo thefolder new directoryinfo folderfullname 遍歷一層資料夾 foreach directoryinfo nextfolder in thefolder.getdirectories 遍歷多層資料夾 ...
遍歷資料夾
使用files類的newdirectorystream方法完成這一功能 path path paths.get d test try catch ioexception e files提供了乙個walkfiletree方法，可以用於遍歷整個資料夾，並且針對每個檔案可以進行特定的處理工作。public...