获取系统路径

marting

1. (defun _GetSpecialFolder ( int / fso fob res )
   
2.     (vl-catch-all-apply
   
3.        '(lambda nil
   
4.             (setq fso (vlax-create-object "Scripting.FileSystemObject")
   
5.                   fob (vlax-invoke-method fso 'getspecialfolder int)
   
6.                   res (vlax-get-property fob 'path)
   
7.             )
   
8.         )
   
9.     )
   
10.     (if fob (vlax-release-object fob))
    
11.     (if fso (vlax-release-object fso))
    
12.     res
    
13. )
    

(defun _GetSpecialFolder ( int / fso fob res )<br />     (vl-catch-all-apply<br />        '(lambda nil<br />             (setq fso (vlax-create-object "Scripting.FileSystemObject")<br />                   fob (vlax-invoke-method fso 'getspecialfolder int)<br />                   res (vlax-get-property fob 'path)<br />             )<br />         )<br />     )<br />     (if fob (vlax-release-object fob))<br />     (if fso (vlax-release-object fso))<br />     res<br /> )<br />

命令: (_GETSPECIALFOLDER 1)
"C:\\Windows\\System32"

命令: (_GETSPECIALFOLDER 2)
"C:\\Users\\DSJFWZ~1\\AppData\\Local\\Temp"

目录路径详见：
Reference
Arguments

• object
  Required. Always the name of a FileSystemObject.
• folderspec
  Required. The name of the special folder to be returned. Can be any of the constants shown in the Settings section.
  
  

Settings

The folderspec argument can have any of the following values:

SETTINGS

Constant

Value

Description

WindowsFolder

0

The Windows folder contains files installed by the Windows operating system.

SystemFolder

1

The System folder contains libraries, fonts, and device drivers.

TemporaryFolder

2

The Temp folder is used to store temporary files. Its path is found in the TMP environment

xvjiex

获取系统路径，感谢分享！

一张单程票

看到好贴必点赞，感谢分享！