列出指定文件夹中的子文件夹和文件

关注

转载最新推荐文章于 2022-02-12 11:15:18 发布 928 阅读 AI 写同款· GEO 优化 ›

递归查看某个文件夹的所有子文件上次要从服务器里面将东西备份出来的时候，因为服务器里面的东西太多。一个一个文件夹去点开，耗时耗力。当时正好有一个工具，能遍历将某个盘下面的所有文件都遍历出来，然后输出来，这样就方便很多。当时觉得那个工具特别强大。这次学习了IO流，后来在工作中用到了递归，忽然想到，用递归来遍历的话，不就可以了吗。然后通过从网上查资料，写出了下面的Demo。先浏览F盘a文件夹下的所有内容 package D 阅读详情

VBA列出文件夹中所有的子文件夹

Sub ShowFolderList()
    Dim fso As Object, oFolder As Object
    Dim oFolderArray As Object, f As Object
    Dim k&

    Set fso = CreateObject("scripting.filesystemobject")
    Set oFolder = fso.GetFolder("C:/Program Files")
    Set oFolderArray = oFolder.SubFolders
    For Each f In oFolderArray
        k = k + 1
        Cells(k, 1) = f.Name
    Next

End Sub

VBA列出文件夹中所有的文件

Sub mydir()
    Dim mydir As String
    Dim i&
    Range("A:A").ClearContents
    mydir = Dir(ThisWorkbook.Path & "/*.*", vbNormal)
    Do While mydir <> ""
        i = i + 1
        Cells(i, 2) = mydir
        mydir = Dir
    Loop
End Sub

VSTO列出文件夹里所有的子文件夹和文件(C#)

int i = 0, k = 0;
DirectoryInfo dir = new DirectoryInfo(@"c:/windows");
DirectoryInfo[] dirs = dir.GetDirectories();
foreach (DirectoryInfo folder in dirs)
{
i++;
this.Range["a" + i, missing].Value2 = folder.Name;
}
FileInfo[] files = dir.GetFiles();
foreach (FileInfo file in files)
{
k++;
this.Range["b" + k, missing].Value2 = file.Name;
}

收录于