❶ 如何用dir返回某目录下的所有文件名
控件:按钮 列表框 Function SearchFiles(Path As String, FileType As String) Dim Files() As String '文件路径 Dim Folder() As String '文件夹路径 Dim a, b, c As Long Dim sPath As String sPath = Dir(Path & FileType) '查找第文件 Do While Len(sPath) '循环没有文件止a = a + 1ReDim Preserve Files(1 To a) Files(a) = Path & sPath '文件目录和文件名组合,并存放数组 List1.AddItem Files(a) '加入list控件 sPath = Dir '查找下文件 DoEvents '让出控制权LoopsPath = Dir(Path & "\", vbDirectory) '查找第文件夹 Do While Len(sPath) '循环没有文件夹止 If Left(sPath, 1) < "." Then '了防止重复查找 If GetAttr(Path & "\" & sPath) And vbDirectory Then '文件夹则 b = b + 1ReDim Preserve Folder(1 To b) Folder(b) = Path & sPath & "\" '目录和文件夹名称组合形成新目录,并存放数组End IfEnd IfsPath = Dir '查找下文件夹 DoEvents '让出控制权LoopFor c = 1 To b '使用递归方法遍历所有目录 SearchFiles Folder(c), FileTypeNextEnd Function
❷ 我的世界存档里哪个文件夹是地狱
打开你的存档文件夹，里面的那个叫DIM-1的文件夹就是地狱的文件。还有一个跟它很像的文件夹DIM1这个是末地的文件，千万别搞混淆了。