如何用VBA读取一个文件夹内所有子文件夹的名称，为了汇总，有时我们要把同一个文件夹的所有子文件夹的名称，如果是少数几个可以复制粘贴，如果几十上百或者更多就麻烦了，。
如何用VBA遍历指定目录下的所有子文件夹和文件 Sub Test()Dim MyName，Dic，Did，I，T，F，TT，MyFileNameT=TimeSet Dic=CreateObject(\"Scripting.Dictionary\")'创建一个字典对象Set Did=CreateObject(\"Scripting.Dictionary\")Dic.Add(\"D：\\My Documents\\\")，\"I=0Do While IKe=Dic.keys '开始遍历字典MyName=Dir(Ke(I)，vbDirectory)'查找目录Do While MyName<；>；\"If MyName<；>；\".\"And MyName<；>；\".\"ThenIf(GetAttr(Ke(I)&MyName)And vbDirectory)=vbDirectory Then '如果是次级目录Dic.Add(Ke(I)&MyName&\"\\\")，\"\"'就往字典中添加这个次级目录名作为一个条目End IfEnd IfMyName=Dir '继续遍历寻找LoopI=I+1LoopDid.Add(\"文件清单\")，\"\"'以查找D盘My Documents下所有EXCEL文件为例For Each Ke In Dic.keysMyFileName=Dir(Ke&\"*.xls\")Do While MyFileName<；>；\"Did.Add(Ke&MyFileName)，\"MyFileName=DirLoopNextFor Each Sh In ThisWorkbook.WorksheetsIf Sh.Name=\"XLS文件清单\"ThenSheets(\"XLS文件清单\").Cells.DeleteF=TrueExit ForElseF=FalseEnd IfNextIf Not F ThenSheets.Add.Name=\"XLS文件清单End IfSheets(\"XLS文件清单\").[A1].Resize(Did.Count，1)=WorksheetFunction.Transpose(Did.keys。
java中怎样获得一个文件夹中的所有文件名 packagecom.readfile；import java.io.File；public class GetAllFiles { public static void main(String[]args){ 路径 这里写一个路径进去 String path=\"F：\\\\QQ文档；调用。
