Windows中的Specialfolders

csharp

2. 
   
3. (defun c:tt (/ ws wsf i)
   
4.   (setq        ws  (vlax-get-or-create-object "wscript.shell")
   
5.         wsf (vlax-get ws 'Specialfolders)
   
6.         i   -1
   
7.   )
   
8.   (repeat (vlax-get wsf 'length)
   
9.     (princ "\n")
   
10.     (princ (vla-item wsf (setq i (1+ i))))
    
11.   )
    
12.   (vlax-release-object wsf)
    
13.   (vlax-release-object ws)
    
14.   (princ)
    
15. )

<br /> (defun c:tt (/ ws wsf i)<br />   (setq        ws  (vlax-get-or-create-object "wscript.shell")<br />         wsf (vlax-get ws 'Specialfolders)<br />         i   -1<br />   )<br />   (repeat (vlax-get wsf 'length)<br />     (princ "\n")<br />     (princ (vla-item wsf (setq i (1+ i))))<br />   )<br />   (vlax-release-object wsf)<br />   (vlax-release-object ws)<br />   (princ)<br /> )

XDSoft

通用函数库也有相关的函数
（XD::System:GetSpecialFolder）获取系统特殊文件夹

14 个回复 - 98 次查看

**** 本内容被作者隐藏 ****

2017-7-19 16:42 - newer - 开源函数库

1. 
   
2. ;|
   
3. 函数名称:        XD::System:GetSpecialFolder
   
4. 调用格式:        (XD::System:GetSpecialFolder name)
   
5. 参数说明:        name --- 下面字符串之一
   
6. 
   
7. AllUsersDesktop
   
8. AllUsersStartMenu
   
9. AllUsersPrograms
   
10. AllUsersStartup
    
11. AppData
    
12. Desktop
    
13. Favorites
    
14. Fonts
    
15. MyDocuments
    
16. NetHood
    
17. PrintHood
    
18. Programs
    
19. Recent
    
20. SendTo
    
21. StartMenu
    
22. Startup
    
23. Templates
    
24. 返回值:        字符串 or nil
    
25. 函数简介:        获取系统特殊文件夹
    
26. 函数来源:        原创
    
27. 函数作者:        newer
    
28. 适用版本:        不限
    
29. 最后更新时间:        2017-07-19
    
30. |;
    
31. 
    

复制代码

命令: (XD::System:GetSpecialFolder "fonts")
"C:\\Windows\\Fonts"