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

' 创建一个文件系统对象
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"