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

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

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

多谢各位大神在帮助