首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

Vbscript列出文件夹和子文件夹中的所有PDF文件

Vbscript是一种基于Visual Basic的脚本语言,用于自动化任务和批处理。它可以通过编写脚本来实现列出文件夹和子文件夹中的所有PDF文件的功能。

在Vbscript中,可以使用递归的方式遍历文件夹和子文件夹,并判断文件的扩展名是否为PDF来筛选出所需的文件。以下是一个示例代码:

代码语言:vbscript
复制
' 创建一个文件系统对象
Set fso = CreateObject("Scripting.FileSystemObject")

' 定义一个函数来列出文件夹和子文件夹中的所有PDF文件
Sub ListPDFFiles(folder)
    ' 获取文件夹对象
    Set objFolder = fso.GetFolder(folder)
    
    ' 遍历文件夹中的所有文件和子文件夹
    For Each objFile In objFolder.Files
        ' 判断文件扩展名是否为PDF
        If LCase(fso.GetExtensionName(objFile.Name)) = "pdf" Then
            ' 输出文件路径
            WScript.Echo objFile.Path
        End If
    Next
    
    ' 递归调用函数,遍历子文件夹
    For Each objSubFolder In objFolder.SubFolders
        ListPDFFiles objSubFolder.Path
    Next
End Sub

' 调用函数,传入要列出PDF文件的文件夹路径
ListPDFFiles "C:\Folder\Path"

上述代码中,通过创建一个文件系统对象(FileSystemObject),我们可以使用其提供的方法来获取文件夹和文件的信息。GetFolder方法用于获取文件夹对象,Files属性用于获取文件夹中的所有文件,SubFolders属性用于获取文件夹中的所有子文件夹。

在遍历文件夹和文件时,我们使用GetExtensionName方法获取文件的扩展名,并通过比较扩展名是否为PDF来筛选出所需的文件。如果文件扩展名为PDF,则输出文件的路径(使用Echo方法)。

最后,我们通过递归调用函数来遍历文件夹的子文件夹,以便获取所有子文件夹中的PDF文件。

对于腾讯云相关产品和产品介绍链接地址,由于要求不能提及具体的云计算品牌商,我无法给出具体的推荐。但是,腾讯云提供了丰富的云计算服务,包括云服务器、对象存储、数据库、人工智能等,你可以访问腾讯云官方网站(https://cloud.tencent.com/)了解更多信息。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

VBA程序:列出文件夹及其文件夹指定文件

标签:VBA,自定义函数 我想要列出文件夹及其文件夹名为testExcel文件,如何使用VBA程序实现?...Error Resume Next For i = 0 To lst.ListCount - 1 Debug.Print lst.List(i).Value Next End Sub '目的: 列出路径文件...'参数: strPath = 要搜索路径. ' strFileSpec = "*.*" 除非另有指定. ' bIncludeSubfolders: 如果为True,同时从strPath文件夹返回结果...如果不, 则将文件在立即窗口列出. ' 列表框必须具有其Row Source Type属性设置为Value列表. '方法:FilDir()添加项到集合, 对子文件夹递归调用自身....Else TrailingSlash = varIn & "\" End If End If End Function 可以看到,程序使用了一个自定义函数ListFiles,可以列出所有文件

12510

ExcelVBA文件操作-获得文件夹所有文件夹

ExcelVBA文件操作-获得文件夹所有文件夹 上一期,学习了 今天我们来学习如果取得文件夹文件夹路径 如图 在我们可以先用上一节选择取得【test目录】 再读取【1目录、2目录、3目录...'FileDialog 对象 Show 方法显示对话框,并且返回 -1(如果您按 OK) 0(如果您按 Cancel)。...fs = CreateObject("Scripting.FileSystemObject")返回一个对象 对象中有一个方法:GetFolder方法可返回fs对象对象:Folder...Folder对象中有一个属性是: SubFolders可返回文件夹文件夹例如:Sub ShowFolderList(folderspec) Dim fs, f, f1, fc,...+ 1 Loop Until sDic.Count = n GetAllPath = sDic.keys End Function 【主程序如下】 Sub yhd_ExcelVBA获得文件夹所有文件夹

58120
  • ExcelVBA文件操作-获得文件夹所有文件夹

    ExcelVBA文件操作-获得文件夹所有文件夹 图片 上一期,学习了 今天我们来学习如果取得文件夹文件夹路径 如图 图片 在我们可以先用上一节选择取得【test目录】 再读取【1目录、2....Show = -1 Then 'FileDialog 对象 Show 方法显示对话框,并且返回 -1(如果您按 OK) 0(如果您按 Cancel)。...Set fs = CreateObject("Scripting.FileSystemObject") 返回一个对象 对象中有一个方法:GetFolder方法 可返回fs对象对象...Folder对象中有一个属性是: SubFolders 可返回文件夹文件夹 例如: Sub ShowFolderList(folderspec) Dim fs, f,...1 Loop Until sDic.Count = n GetAllPath = sDic.keys End Function 【主程序如下】 Sub yhd_ExcelVBA获得文件夹所有文件夹

    3.1K40

    python 如何删除文件夹所有文件文件夹

    前言 删除文件夹所有文件,以及文件所有文件,把这个文件夹全部删除。...283340479 # blog:https://www.cnblogs.com/yoyoketang/ def delete_dir_file(dir_path): """ 递归删除文件夹文件文件夹文件.../data') 上面代码删除时候,如果想保留我们文件夹以及文件夹,仅仅只删除文件,可以去掉这句 # 递归删除空文件夹 if os.path.exists(dir_path):...blog:https://www.cnblogs.com/yoyoketang/ def delete_dir2(dir_path): # os.walk会得到dir_path下各个后代文件夹其中文件三元组列表...283340479 # blog:https://www.cnblogs.com/yoyoketang/ def delete_dir_file(dir_path): """ 递归删除文件夹文件文件夹文件

    44710

    删除指定文件夹及其文件夹所有文件,但保留文件夹

    excelperfect 标签:VBA 经常要整理电脑中文件,特别是每当要自查电脑文件时。每次都是将一个一个文件夹打开,将其中文件全部删除,但要保留文件夹,以便于后面再陆续存放新文件。...手动操作起来每繁琐,特别是当文件夹及其文件夹很多且里面的文件也较多时。 其实,这样工作使用VBA来很好解决。...下面的程序会删除指定文件夹所有文件,包括其文件夹文件,但会保留文件夹,即保留文件夹框架,以便再往里面存放新文件。...Sub KillFiles(strPath As String, Optional blnRecursive As Boolean) ' 本过程返回目录所有文件到Dictionary对象....' 如果递归调用则同时返回文件夹所有文件.

    45310

    ExcelVBA文件操作-选择文件夹(含文件夹)获取所有文件列表

    到目前 我们已完成:1.先打开对话框2.选择文件夹3.获取文件夹4.得到文件夹(包含文件夹路径5. 获取文件夹(不含文件夹)内文件列表 今天我们将解决问题是: 6....获取文件夹(含文件夹)内文件列表 【问题】 选择文件夹(含文件夹)获取所有文件列表 【解决思路】 第【1-3】步:可以用自定义函数(PS:此函数返回要进行是否为空判断,如果为空要exit sub...Else SelectGetFolder = "" End If End With End Function 第【4】步:得到文件夹(包含文件夹路径 也可以用自定义函数...(PS:返回数组是以0为下标的) '输入文件夹,返回数组=文件夹(含文件夹路径 Function GetAllFolderPath(sPath As String) Dim aRes,...,返回数组=本文件夹文件名列表(不包含文件夹) Function GetFolderFiles(folderspec) Dim sFso As Object, sfld, sff, sffs

    4.7K21

    ExcelVBA文件操作-选择文件夹(含文件夹)获取所有文件列表

    ExcelVBA文件操作-选择文件夹(含文件夹)获取所有文件列表 【回顾】 近期我们学习了 1.ExcelVBA-打开对话框取得文件夹路径2种方法 2.ExcelVBA文件操作-获得文件夹所有文件夹...3.ExcelVBA文件操作-选择文件夹获取文件列表 到目前 我们已完成:1.先打开对话框2.选择文件夹3.获取文件夹4.得到文件夹(包含文件夹路径5....获取文件夹(不含文件夹)内文件列表 今天我们将解决问题是: 6....获取文件夹(含文件夹)内文件列表 【问题】 选择文件夹(含文件夹)获取所有文件列表 【解决思路】 第【1-3】步:可以用自定义函数(PS:此函数返回要进行是否为空判断,如果为空要exit sub...-选择文件夹获取文件列表 ExcelVBA文件操作-获得文件夹所有文件夹 ExcelVBA-打开对话框取得文件夹路径2种方法 Excel VBA取白色单元格内容黄色单元格Address ExcelVBA

    83330

    提取并列出文件夹所有文件文件

    标签:Power Query 要将文件夹所有文件文件名提取并输入到Excel工作表,用什么方法呢?VBA,还是…… 本文使用Power Query来轻松实现。...在Excel,单击功能区“数据”选项卡“获取转换数据”组“获取数据——来自文件——从文件夹”,如下图1所示。 图1 导航到要获取文件文件夹,如下图2所示。...图2 单击“打开”,在出现对话框单击“加载”按钮下拉菜单“加载”,如下图3所示。 图3 找到“Attributes”列并单击其右侧扩展图标,如下图4所示。...图4 从中可以选择要获取并显示文件属性,如下图5所示。 图5 然后,单击Power Query编程器“关闭并上载”按钮,如下图6所示。...图6 此时,将在工作表按选定属性列出指定文件夹所有文件名,如下图7所示。 图7

    32430

    VBA实用小程序72:遍历文件夹文件夹文件

    很多时候,我们都想要遍历文件夹每个文件,例如在工作表列出所有文件名、对每个文件进行修改。VBA给我们提供了一些方式:(1)Dir函数;(2)File System Object。...图1 后期绑定 后期绑定不需要任何特定操作来启用FSO库,确保在VBA代码需要时打开库。 遍历文件夹所有文件 下面的示例代码将文件名打印到立即窗口,很容易修改这些代码以更适合你具体情况。...方法1:使用Dir函数 Sub LoopAllFilesInAFolder() '遍历文件夹所有文件 Dim fileName As Variant fileName =Dir...当文件存储在文件夹时,可能就需要一些技巧了。...现在需要找到一种方法来钻取到这些文件夹。我们将使用上述相同DirFSO方法。为了确保这些代码可以处理任意数量文件夹,宏实际上会调用自身(一种称为递归技术)。

    10.4K30

    C#如何遍历某个文件夹所有文件文件夹(循环递归遍历多层),得到所有文件名,存储在数组列表

    首先是有一个已知路径,现在要遍历该路径下所有文件文件夹,因此定义了一个列表,用于存放遍历到文件名。...递归遍历如下:将已知路径列表数组作为参数传递, public void Director(string dir,List list) { DirectoryInfo d...d.GetDirectories();//文件夹 foreach (FileInfo f in files) { list.Add(f.Name);//添加文件名到列表...} //获取文件夹文件列表,递归遍历 foreach (DirectoryInfo dd in directs) {...Director(dd.FullName, list); } } 这样就得到了一个列表,其中存储了所有文件名,如果要对某一个文件进行操作,可以循环查找: foreach (string

    14.1K40

    ExcelVBA文件操作-获取文件夹(含文件夹所有文件列表(优化版)

    1.ExcelVBA文件操作-选择文件夹(含文件夹)获取所有文件列表 2.ExcelVBA文件操作-选择文件夹获取文件列表 3.ExcelVBA文件操作-获得文件夹所有文件夹 4.ExcelVBA...-打开对话框取得文件夹路径2种方法 【问题】 前面的学习,有几个自定义函数:1.运行不是那么优化,2.在实际应用我们关注文件路径,对文件夹路径不是那么关注今天进行优化:取自定义函数为:arr...=GetAllFolderFiles(路径,参数)只获取文件路径,添加了可选项,参数默认为0时,只读取本目录文件列表,参数不等于0时,读取本目录(含子目录)所有文件列表 【两个自定义函数】...,返回数组=文件夹包含文件夹列表 ' 用法:arr=GetAllFolderFiles(路径,2)参数Ndir=1不包含子目录,Ndir>1包含子目录 Function GetAllFolderFiles...个N位数文本 ExcelVBA字典输出 Excel技巧Excel函数视频教程 yhd-VBA从一个工作簿某工作表查找符合条件数据插入到另一个工作簿某工作表

    1.8K20

    找出文件夹(及其文件夹)文件并复制到目标文件夹

    测试结果 文本提示 找出文件夹(及其文件夹)文件并复制到目标文件夹 1.问题引出 下载了整个2018年2019年上半年经济学人,不过是根据发刊日期建立了多个文件夹,我想复制出里面所有的*.epub...而且为了便于按照名字排序,最后复制后名字做了处理,只保留了文件数字(经济学人发布年份,因为不是一个人发布名字多少不统一。...程序源码 # UTF-8 # 整理文件 # 将指定目录下对应格式文件(eg.epub)复制到指定目录 # ------------------------------------ import...path: "文件夹""文件"所在路径 :return: (list_folders, list_files) :list_folders: 文件夹...# 递归遍历当前目录所有子目录文件目录 for name in files: # files保存所有文件

    3.1K20

    在 Linux 重命名文件夹所有文件

    在Linux系统,有时候我们需要批量重命名文件夹所有文件,以便更好地组织管理文件。本文将详细介绍几种在Linux重命名文件夹所有文件方法,包括使用命令行工具脚本等方式。...图片方法一:使用 mv 命令mv命令是Linux系统中用于移动或重命名文件文件夹命令。通过结合mv命令通配符,我们可以批量重命名文件夹所有文件。...ls -l这将列出文件夹文件,并显示它们详细信息。确保重命名操作没有出现错误,并且文件名已按预期修改。执行重命名操作。如果确认重命名操作正确无误,可以执行mv命令来实际重命名文件。...结语通过使用mv命令、rename命令脚本,我们可以在Linux轻松地重命名文件夹所有文件。本文详细介绍了三种常用方法,包括使用mv命令、rename命令编写脚本来实现批量重命名操作。...使用mv命令可以直接在命令行执行简单重命名操作,适用于简单文件名修改。通过结合通配符新旧文件名模式,我们可以轻松地重命名文件夹所有文件

    4.9K40
    领券