VBA 如何遍歷文件夾，找到文件，找到單號，引出內容

采用 數組+ files集合 + 字典判斷 的方法將 單號 存入字典，循環files名字，用字典判斷是否存在或者將 files名字 存入字典，循環 單號，用字典判斷是否存在 files集合方法：Sub ShowFileList(ph) Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(ph) Set fc = f.Files For Each f1 In fc s = s & f1.Name s = s & vbCrLf Next MsgBox sEnd Sub字典方法：Set d = CreateObject("Scripting.Dictionary")

以上回答妳滿意麽？