VB 利用fso 枚举文件和文件夹

最新推荐文章于 2025-03-05 01:03:47 发布

miaozk2006

最新推荐文章于 2025-03-05 01:03:47 发布

阅读量503

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/miaozk2006/article/details/82417085

这篇博客介绍了如何在VB中利用Microsoft Scripting Runtime引用，通过FileSystemObject（FSO）枚举Windows下的文件和文件夹。作者提供了两个列表框的示例代码，分别用于展示文件夹和文件。此外，还提到了New与CreateObject在VB中的区别，并给出了相关链接进行深入探讨。

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

点菜单(工程)下的(引用),勾选(Microsoft Scripting Runtime)确认.再在用FSO前声明

添加两个LISTBOX

’调用代码如下：

Private Sub Command1_Click()
get_folders List1, "c:\windows"

get_files,List2, "c:\windows"
End Sub

1、获取文件夹列表代码如下：

Private Sub get_folders(ByRef List1 As ListBox, ByVal path As String)
    '引用了Microsoft Scripting Runtime
    Dim fso As New Scripting.FileSystemObject
    Dim fd As Scripting.folder
    Dim fd_1 As Scripting.folder
    Set fd = fso.GetFolder(path)
    For Each fd_1 In fd.SubFolders
        List1.AddItem fd_1.path
    Next
End Sub

2 、获取文件列表代码如下：

Private Sub get_filess(ByRef List1 As ListBox, ByVal path As String)
    '引用了Microsoft Scripting Runtime
    Dim fso As New Scripting.FileSystemObject
    Dim fd As Scripting.Files
    Dim fd_1 As Scripting.file
    Set fd = fso.GetFolder(path).Files
    For Each fd_1 In fd
        list2.AddItem fd_1
    Next
End Sub

'如果不引用(Microsoft Scripting Runtime）时，可以通过从下方法直接调用

'Dim file
'
'For Each file In CreateObject("scripting.filesystemobject").GetFolder("c:\windows\").Files
'
' List1.AddItem file
'
'Next

'关于VB中的New 与 CreateObject的区别

'请参阅：http://miaozk2006.blog.163.com/blog/static/3824705820131111532062/

关于VB中的New 与 CreateObject的区别请参阅：http://miaozk2006.blog.163.com/blog/static/3824705820131111532062/