如何查找C:\盤下的所有目錄和子目錄, 並將所有的目錄位置輸出至C:\1.txt中

Question

如何查找C:\盤下的所有目錄和子目錄, 並將所有的目錄位置輸出至C:\1.txt中希望各位提供完整代碼, 本人感激不盡!!!!!!!!!

Answer 1

call shell("cmd /k Tree c:\ /F > 1.txt")

Answer 2

Dim FsoFolders As Folder
Dim FsoFolder As Folder
Dim FsoDrives As Drives
Dim FsoDrive As Drive
Dim Fso As FileSystemObject
Dim R As String
Dim nodX As Node
Dim nod As NodePrivate Sub Form_Load()
R = "Root"
Set nodX = TreeView1.Nodes.Add(, , R, "文件系统")
Set Fso = CreateObject("Scripting.FileSystemObject")
Set FsoDrives = Fso.Drives
For Each FsoDrive In FsoDrives
    Set nod = TreeView1.Nodes.Add(R, 4, FsoDrive.path, FsoDrive.path & "\")
    If FsoDrive.DriveType <> CDRom Then
    FileTree2 nod.Key + "\", FsoDrive.path
    End If
Next
nod.EnsureVisible
End SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Node.Text = "文件系统" Then Exit SubFileTree Node.Key & "\", Node.KeyEnd Sub
Private Function FileTree(ByVal path As String, ByVal NodeKey As String) As Long
On Error Resume Next
Debug.Print path
Set FsoFolders = Fso.GetFolder(path)
    For Each FsoFolder In FsoFolders.SubFolders
        Set nod = TreeView1.Nodes.Add(NodeKey, 4, FsoFolder.path, FsoFolder.Name)
        FileTree2 FsoFolder.path + "\", FsoFolder.path    NextEnd Function
Private Function FileTree2(ByVal path As String, ByVal NodeKey As String) As Long
On Error Resume NextSet FsoFolders = Fso.GetFolder(path)
    For Each FsoFolder In FsoFolders.SubFolders
        Set nod = TreeView1.Nodes.Add(NodeKey, 4, FsoFolder.path, FsoFolder.Name)
    NextEnd Function

Answer 3

哈哈如果你想更简单我可以告诉你个方法
dir /a /s /b c:\*.* >c:\1.txt

Answer 4

我上網找過, 但我只是vb初學者, 不能轉化那些vb代碼, 來達到我的目的我只需實現我目的的代碼(查找C:\盤下的所有目錄和子目錄, 並將所有的目錄位置輸出至C:\1.txt中), 希望能幫忙dir /a /s /b c:\*.* >c:\1.txt <---這代碼不行

Answer 5

在CMD中dir/?
tree/?
自己看吧

Answer 6

直接在命令窗口打
dir c: /s >c:\1.txt

Answer 7

dir c: /s >c:\1.txt <---不行可是我不想要那些檔案名我只需要目錄位置

Answer 8

只需要目录:
dir c: /ad /s >c:\1.txt