如何获取按文件夹名称排序的子文件夹及其文件的列表

Question

我可以使用 dir 命令行来获取子文件夹及其文件的列表（按文件夹名称排序，而不仅仅是文件名排序）吗？

使用

dir /s/b/o:gn > f.txt

我首先获取所有子文件夹，然后才获取所有子文件，例如：

 d:\root0\root1\folderA
 d:\root0\root1\folderB
 d:\root0\root1\file00.txt
 d:\root0\root1\file01.txt
 d:\root0\root1\folderA\fileA00.txt
 d:\root0\root1\folderA\fileA01.txt
 d:\root0\root1\folderB\fileB00.txt
 d:\root0\root1\folderB\fileB01.txt

但我想获取 -

d:\root0\root1\file00.txt
d:\root0\root1\file01.txt
d:\root0\root1\folderA
d:\root0\root1\folderA\fileA00.txt
d:\root0\root1\folderA\fileA01.txt
d:\root0\root1\folderB
d:\root0\root1\folderB\fileB00.txt
d:\root0\root1\folderB\fileB01.txt

[“file00.txt”和“file01.txt”也可以位于列表末尾]

谢谢，

Atara

Answer 1

使用排序怎么样？

dir /b /s | sort

这是我测试的一个示例：

---

dir /s /b /o:gn

d:\root0
d:\root0\root1
d:\root0\root1\folderA
d:\root0\root1\folderB
d:\root0\root1\file00.txt
d:\root0\root1\file01.txt
d:\root0\root1\folderA\fileA00.txt
d:\root0\root1\folderA\fileA01.txt
d:\root0\root1\folderB\fileB00.txt
d:\root0\root1\folderB\fileB01.txt

---

dir /s /b | sort

d:\root0
d:\root0\root1
d:\root0\root1\file00.txt
d:\root0\root1\file01.txt
d:\root0\root1\folderA
d:\root0\root1\folderA\fileA00.txt
d:\root0\root1\folderA\fileA01.txt
d:\root0\root1\folderB
d:\root0\root1\folderB\fileB00.txt
d:\root0\root1\folderB\fileB01.txt

---

要仅获取目录，请使用 /A:D 参数：

dir /a:d /s /b | sort

Answer 2

嗨，伙计，你为什么用这个？

dir /s/b/o:gn > f.txt （错误）

你不知道“/o”中的“g”是什么吗？

检查一下：http://www.computerhope.com/dirhlp.htm 或 dir / ？对于 dir help

你应该使用这个：

目录 /s/b/o:n > f.txt （右一个）

Answer 3

dir /b /ad /s *.* 将满足您的要求。

Answer 4

将所有文件和文件夹的列表放入文本文件的命令如下：

例如：dir /b /s |排序>文件文件夹列表.txt

Answer 5

在命令提示符下，转到您想要列表的主目录...并输入命令 tree /f

Answer 6

如果您想使用 Powershell，我发现的最佳方法是：

Get-childitem -path "C:\your\path\here\" -recurse -name | out-file C:\your\path\to\textfile\here\files.txt

然后您将获得以文本文件形式写入的文件夹和子文件夹内的文件名。

Answer 7

创建一个 vbs 文件并复制下面的所有代码。将目录位置更改为您想要的任何位置。

Dim fso
Dim ObjOutFile

Set fso = CreateObject("Scripting.FileSystemObject")

Set ObjOutFile = fso.CreateTextFile("OutputFiles.csv")

ObjOutFile.WriteLine("Type,File Name,File Path")

GetFiles("YOUR LOCATION")

ObjOutFile.Close

WScript.Echo("Completed")

Function GetFiles(FolderName)
    On Error Resume Next

    Dim ObjFolder
    Dim ObjSubFolders
    Dim ObjSubFolder
    Dim ObjFiles
    Dim ObjFile

    Set ObjFolder = fso.GetFolder(FolderName)
    Set ObjFiles = ObjFolder.Files

    For Each ObjFile In ObjFiles
    ObjOutFile.WriteLine("File," & ObjFile.Name & "," & ObjFile.Path)
    Next

    Set ObjSubFolders = ObjFolder.SubFolders

    For Each ObjFolder In ObjSubFolders

        ObjOutFile.WriteLine("Folder," & ObjFolder.Name & "," & ObjFolder.Path)


        GetFiles(ObjFolder.Path)
    Next

End Function

将代码保存为vbs并运行。你会在该目录中得到一个列表