❶ 如何用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這個是末地的文件，千萬別搞混淆了。