批量遍历、输出D盘所有文件名及路径——vba实现

原创

已于 2024-08-13 18:07:23 修改 · 697 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#java #开发语言

于 2024-07-30 20:22:50 首次发布

导出一个文件夹下所有文件名，可用vba插件实现，如图

导出c盘所有文件路径

如下图，已在桌面生成一个txt文本，但此方法只可输出一级目录下的文件，若输出所有文件，则需修改插件代码（若想导出硬盘下所有文件和文件夹，则需用递归算法，若需插件可联系本博。）

部分源代码如下：

Sub 输出文件夹所有文件名()
'yngqq443440204@2024年7月30日11:13:48
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("D:\")
    Set fc = f.Files
    Dim arr() As String
  
    For Each f1 In fc
   
        s = s & f1.Name
        s = s & vbCrLf
        ReDim Preserve arr(i)
        arr(i) = f1.Name
        i = i + 1
    Next
    Select Case s
    Case ""
        MsgBox "没有文件"
    Case Else