vbs遍历文件夹查找文件包括子文件夹及文件

最新推荐文章于 2025-05-12 11:21:39 发布

anqiongdy

最新推荐文章于 2025-05-12 11:21:39 发布

阅读量1.1k

点赞数

分类专栏： QTP/vbs/MQC 文章标签： function each file

本文链接：https://blog.csdn.net/anqiongdy/article/details/6399676

版权

QTP/vbs/MQC 专栏收录该内容

12 篇文章

订阅专栏

本文介绍了一个使用VBScript编写的函数GetfilePathAndCount，该函数用于递归遍历指定文件夹及其子文件夹，查找所有.xxx后缀的文件，并记录这些文件的路径和名称。

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

Dim gb_filePath()   '''xxx文件的具体全路径
Dim gb_fileName()   '''xxx文件名
Dim gb_iCount
gb_iCount=0
''递归遍历文件夹 folderspec，包括子文件夹及文件。查找所有.xxx后缀的文件，记录到 gb_filePath 中
Function GetfilePathAndCount(ByVal folderspec)
Dim fso, f, ff,mrm
    Dim iCount
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(folderspec)

Set fsf = f.SubFolders
Set ff = f.Files

    For Each file in ff
        Str = Right(file.name, 4)
  If Str=".xxx" Then
    gb_iCount=gb_iCount+1
     ReDim Preserve gb_filePath(gb_iCount)
     ReDim Preserve gb_fileName(gb_iCount)
     gb_filePath(gb_iCount) = folderspec & "/"&file.name
     gb_fileName(gb_iCount) = file.name
  End If
    Next

For Each subfolder in fsf
        GetfilePathAndCount subfolder.Path
Next

Set f=nothing
Set fsf=nothing
Set fso=nothing

End Function