- set objWsh = CreateObject("Wscript.Shell")
- set objWshSpe = objWsh.SpecialFolders
- For Each strRead In objWshSpe '枚举所有特殊文件夹
- MsgBox strRead
- Next
- strRead = objWshSpe.Item(0) '读取指定条目的完整路径
复制代码 winxpsp3 操作系统支持下列18个特殊文件夹
AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
AppData
PrintHood
Templates
Fonts
NetHood
Desktop
StartMenu
SendTo
Recent
Startup
Favorites
MyDocuments
Programs
从第1行到第18行,依次可用编号0~17代表
其中 Desktop 重复,请问是什么原因? |