Set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.GetFolder("C:\Users\Administrator\Desktop\out\")
flag = false
for each item in f.files
if lcase(right(item.name,4)) = ".pdf" then
flag = true
exit for
end if
next
if flag then
createobject("wscript.shell").run "cmd /c start C:\Users\%username%\Desktop\out",2
end if
set f = nothing
set fso = nothing

换个思路，先全部循环遍历完指定文件夹，把pdf文件路径存储在数组内，完事后最后统一处理

刚学不久，不是很懂，在网上查了很多都不行，可否请版主帮写个出来!

监控文件夹，当有pdf则打开文件夹并退出运行。

Set oShell = CreateObject("WScript.Shell")
user=oShell.ExpandEnvironmentStrings("%UserName%")

Set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.GetFolder("C:\Users\" + user + "\Documents\")

flag = false
while not flag
    for each item in f.files        
        if lcase(right(item.name,4)) = ".pdf" then        
            oShell.run "cmd /c start /min " + f ,2
            flag = true
            exit for
        end if
    next
    WScript.sleep 1000
wend
set oShell = nothing
set f = nothing
set fso = nothing

[此贴子已经被作者于2021-9-29 21:35编辑过]

这代码执行起来，当这个目录下没有 PDF 文件时，不会卡死电脑来吗？
无限死循环。。。。。。。
在循环体中加入一行代码，
Sleep 10

后面这个参数表示程序挂起多少毫秒再继续。挂起程序时，会释放CPU，这样电脑不会被卡住。
挂起程序很短时间，不会对人操作电脑有多大影响。
sleep 是一个WIN API 函数，如果要申明时，请自行百度。

运行时提示找不到路径，C:\Users\%username%\Desktop\out\是否路径表达方式不正确？如换成C:\Users\Administrator\Desktop\out\就可以，但我是有多个用户用的，每个用户用同一个代码查找各自桌面上的文件夹。麻烦两位版主再帮帮忙修改一。

Set MYShell = CreateObject("WScript.Shell")
Text15.Text = MYShell.SpecialFolders("Desktop")

这样不管你是USERS 还是 Administ 或其他了

代码改了下，你看看

多谢各位大神在帮助