机房收费系统之Environ函数

背景：在登录窗体的过程中需要向OnWork表中插入computer这列，当时自己百度的时候搜到是用Environ函数向数据库中添加，但是不能放过每一个成长的机会，顺便查了查Environ函数

Environ函数

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

语法

Environ ( {envstring | number} )

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

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

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

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

VB Environ系统环境变量函数大全

Environ (“Windir”) ‘c:\windows Windows 目录

Environ (“ProgramFiles”) ‘c:\ProgramFiles 应用程序文件夹

Environ (“UserProfile”) ‘C:\Documents and Settings\Administrator 用户配置文件目录

Environ (“ALLUSERSPROFILE”) ‘局部 返回所有“用户配置文件”的位置。

Environ (“APPDATA”) ‘局部 返回默认情况下应用程序存储数据的位置。

Environ (“COMPUTERNAME”) ‘系统 返回计算机的名称。

Environ (“COMSPEC”) ‘系统 返回命令行解释器可执行程序的准确路径。

Environ (“HOMEDRIVE”) ‘系统 返回连接到用户主目录的本地工作站驱动器号。基于主目录值的设置。用户主目录是在“本地用户和组”中指定的。

Environ (“HOMEPATH”) ‘系统 返回用户主目录的完整路径。基于主目录值的设置。用户主目录是在“本地用户和组”中指定的。

Environ (“NUMBER_OF_PROCESSORS”) ‘系统 指定安装在计算机上的处理器的数目。

Environ (“OS”) ‘系统 返回操作系统的名称。Windows 2000 将操作系统显示为 Windows_NT。

Environ (“PATH”) ‘系统 指定可执行文件的搜索路径。

Environ (“PATHEXT”) ‘系统 返回操作系统认为可执行的文件扩展名的列表。

Environ (“PROCESSOR_ARCHITECTURE”) ‘系统 返回处理器的芯片体系结构。值: x86，IA64。

Environ (“PROCESSOR_LEVEL”) ‘系统 返回计算机上安装的处理器的型号。

Environ (“PROCESSOR_LEVEL”) ‘系统 返回处理器的版本号。

Environ (“SYSTEMDRIVE”) ‘系统 返回包含 Windows XP 根目录（即系统根目录）的驱动器。

Environ (“SYSTEMROOT”) ‘系统 返回 Windows XP 根目录的位置。

Environ (“TEMP”) ‘and %TMP”) ‘系统和用户 返回对当前登录用户可用的应用程序所使用的默认临时目录。有些应用程序需要 TEMP，而其它应用程序则需要 TMP。

Environ (“USERDOMAIN”) ‘局部 返回包含用户帐户的域的名称。

Environ (“USERNAME”) ‘局部 返回当前登录的用户的名称。

例子

字符串表达式

Private Sub Command1_Click()Text1.Text = Environ("computername")End Sub

数值表达式

Private Sub Command1_Click()Text1.Text = Environ(6)End Sub

总结：虽然Environ函数在我们日常生活中不太常用，但是它仍然很重要。不断“遇”见，不断积累。