按鍵精靈，遍歷文件夾內(nèi)的所有文件名保存在一個(gè)數(shù)組里然后怎么樣才可以每次輸出一個(gè)結(jié)果？函數(shù)FindAllFiles（FolderPath）Dim AllFiles，fso，F(xiàn)older，f，filesA

按鍵精靈，遍歷文件夾內(nèi)的所有文件名保存在一個(gè)數(shù)組里然后怎么樣才可以每次輸出一個(gè)結(jié)果？

函數(shù)FindAllFiles（FolderPath）Dim AllFiles，fso，F(xiàn)older，f，filesAllFiles=“”Set fso=CreateObject（”腳本.FileSystemObject）設(shè)置文件夾=fso.getfolder文件夾（FolderPath）設(shè)置文件=文件夾.filesForfilesAllFiles=AllFiles&；f.name&“，”NextSet fso=NothingFindAllFiles=Split（AllFiles，“，”）中的每個(gè)f結(jié)束Function//following is the calling method:fileex=findallfiles（file path）//如果UBound（fileex）> 0則文件路徑是一個(gè)帶雙撇號(hào)的字符串，如果I=0則UBound（fileex）-1messagebox fileex（I）nextelsemessagebox “文件夾中沒有文件”end if

“此函數(shù)用于查找指定目錄函數(shù)中的指定類型searchfiles（path as）String，filetype as String）dim files（）as String“file path dim folder（）as String”文件夾路徑dim a，B，C as longdim sPath as stringspath=dir（路徑&；filetype）“find the first file do while len（sPath）”循環(huán)直到?jīng)]有文件a=a 1 ReDim preserve files（1 to a）files（a）=path&；sPath“組合文件目錄和文件名，并將它們放入數(shù)組列表1。AddItem files（a）“將它們添加到列表控件中。SPath=dir“”查找下一個(gè)文件Doevents“”放棄控制。Loopspath=dir（path&；“”，vbdirectory）“查找第一個(gè)文件夾do while len（sPath）”循環(huán)直到?jīng)]有文件夾。如果是left（sPath，1）“”以防止重復(fù)查找如果是getattr（path&；“”&；sPath）和vbdirectory，那么如果是文件夾。。。。。。B=b1 ReDim preserve folder（1 to B）folder（B）=path&sPath& “””將目錄和文件夾名組合成一個(gè)新目錄，如果end如果sPath=dir“find the next folder Doevents”放棄C=1 to B“使用遞歸方法遍歷所有目錄searchfiles folder（C），F(xiàn)ileTypeNextEnd FunctionPrivate Sub Command1uclick（）“調(diào)用searchfiles”E:“，”*。Exe“結(jié)束子