Question

系统目录获取VB

包括系统目录
安装目录
临时文件目录
收藏夹
我的文档
等等
最好是通过注册表
或直接告知注册表位置
越多越好
能否告知Environ各个参数的中文意思，和在注册表中的相对位置。
参数好像有30多个的。
最好还是注册表把。

Answer 1

通过注册表太复杂了吧，一个Environ 函数就搞定了

USERPROFILE=C:\Documents and Settings\Administrator
Environ("USERPROFILE")=C:\Documents and Settings\Administrator
收藏夹 USERPROFILE\Favorites

我的文档 USERPROFILE\My Documents

在命令提示符窗口里输入SET命令就可以看到所有已定义的环境变量

COMPUTERNAME 计算机名
HOMEDRIVE 主驱动器
HOMEPATH= 主目录
NUMBER_OF_PROCESSORS 处理器数目
OS 操作系统
PROCESSOR_ARCHITECTURE 处理器架构
PROCESSOR_IDENTIFIER 处理器型号
ProgramFiles 程序目录
SystemDrive 系统驱动器
SystemRoot Windows目录
TEMP 临时文件
TMP 临时文件
USERNAME 用户名
USERPROFILE 用户目录
windir Windows目录

Environ 函数

返回 String，它关连于一个操作系统环境变量。 在 Macintosh 中不可用

语法

Environ({envstring | number})

Environ 函数的语法含有以下这些命名参数：

部分 描述
envstring 可选参数。包含一个环境变量名的字符串表达式。
number 可选参数。数值表达式，用来表示环境字符串在环境字符串表格中的数值顺序。number 参数可以是任意的数值表达式，不过在计算前，它会先转换为一个整数。

说明

如果在环境字符串表格中找不到 envstring，则会返回一个零长度字符串 ("")。如果找到，则 Environ 会返回一段文本，文本是赋值给指定的 envstring 的，也就是说，在环境字符串表格中对应那个环境变量的等号 (=) 后面的那段文本。

如果指定了 number，则在环境字符串表格中相应位置上的字符串会返回。在这种情况下，Environ 会返回整个文本，包括 envstring。如果在指定位置上没有环境字符串，那么 Environ 会返回一个零长度字符串。

Answer 2

Private Sub Form_click()
'COMPUTERNAME 计算机名
'HOMEDRIVE 主驱动器
'HOMEPATH = 主目录
'NUMBER_OF_PROCESSORS 处理器数目
'OS 操作系统
'PROCESSOR_ARCHITECTURE 处理器架构
'PROCESSOR_IDENTIFIER 处理器型号
'ProgramFiles 程序目录
'SystemDrive 系统驱动器
'SystemRoot Windows目录
'TEMP 临时文件
'TMP 临时文件
'USERNAME 用户名
'USERPROFILE 用户目录
'windir Windows目录
MsgBox Environ("os")
End Sub

Answer 3

注册表：
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders

再就是Environ

Answer 4

VB6？那用FSO这个COM
.NET在MY.COMPUTER空间