Here is another example to get 'special folders'.
(defun c:foo (/ i sf wss)
(setq wss (vlax-get-or-create-object "Wscript.Shell"))
(setq sf (vlax-get wss 'specialfolders))
;; http://msdn.microsoft.com/en-us/library/system.environment.specialfolder(v=vs.110).aspx
;; (vla-item sf "appdata")
;; (vla-item sf "desktop")
;; (vla-item sf "fonts")
;; (vla-item sf "AllUsersStartup")
(repeat (setq i (vlax-invoke sf 'count))
(print (vla-item (vlax-get wss 'specialfolders) (setq i (1- i))))
)
(and wss (vlax-release-object wss))
)