VBA代码集锦---从指定文件下取得该目录下的文件名字大小类型

xiehl

于 2010-05-19 09:23:00 发布

阅读量471

点赞数

CC 4.0 BY-SA版权

文章标签： vba integer function object each

本文链接：https://blog.youkuaiyun.com/xiehl/article/details/5606383

本文介绍了一个使用VBA编写的函数getFiles，该函数能够获取指定文件夹内所有文件的名称、大小及类型，并将这些信息写入Excel工作表中。此代码适用于需要批量处理文件或整合文件信息的工作场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub test2()
Dim i As Integer

i = getFiles(ActiveSheet) '函数调用

End Sub

Public Function getFiles(addsheet As Worksheet) As Integer
          Dim x     As Object
          Dim f
          Dim fs
          Dim i
          Dim SrcFile

          Set x = CreateObject("Scripting.FileSystemObject")
          Set f = x.GetFolder("D:/xiehl/ECSHOP/src/upload/admin")
          Set fs = f.Files
          i = 1
          For Each SrcFile In fs
                  'Debug.Print   SrcFile.Name
                  addsheet.Cells(i, 1) = SrcFile.Name
                  addsheet.Cells(i, 2) = SrcFile.Size
                  addsheet.Cells(i, 3) = SrcFile.Type
                  i = i + 1
          Next

          Set fs = Nothing
          Set f = Nothing
          Set x = Nothing
End Function