前些时候有个朋友问如何获得不同系统的系统路径,其实VB已经为我们提供了相关的函数,我把原来的一篇文章重新贴出来,希望有用
前些时间在研究如何获得系统盘的时候遇到了Environ，感觉实在是很不错的东东，所以在MSDN上查了一下，得到的结果：
Environ 函数
返回 String，它关连于一个操作系统环境变量。 在 Macintosh 中不可用
语法
Environ({envstring | number})
Environ 函数的语法含有以下这些命名参数：
部分 描述
envstring 可选参数。包含一个环境变量名的字符串表达式。
number 可选参数。数值表达式，用来表示环境字符串在环境字符串表格中的数值顺序。number 参数可以是任意的数值表达式，不过在计算前，它会先转换为一个整数。
说明
如果在环境字符串表格中找不到 envstring，则会返回一个零长度字符串 ("")。如果找到，则 Environ 会返回一段文本，文本是赋值给指定的 envstring 的，也就是说，在环境字符串表格中对应那个环境变量的等号 (=) 后面的那段文本。
如果指定了 number，则在环境字符串表格中相应位置上的字符串会返回。在这种情况下，Environ 会返回整个文本，包括 envstring。如果在指定位置上没有环境字符串，那么 Environ 会返回一个零长度字符串。
哈，竟然没有参数说明，只有一个简单的例子，感觉实在是不爽啊，呵呵，又到网络上搜了一下，发现最全的解释也就是将将MSDN上的内容COPY一下，实在是感觉做人有点不厚道了，郁闷中……
看来只有自己动手了：根据“number 参数可以是任意的数值表达式，不过在计算前，它会先转换为一个整数。”这句话，我得出了下面的一段小程序：
Private Sub Form_Click()
Dim i As Integer
For i = 1 To 100
Print Environ(i)
Next i
End Sub
呵呵，单击窗体，所有的参数和返回值都被打印在屏幕上了，我把参数和返回值列在下面给大家作个参考：
ALLUSERSPROFILE=D:\Documents and Settings\All Users
APPDATA=D:\Documents and Settings\Administrator\Application Data
CommonProgramFiles=D:\Program Files\Common Files
COMPUTERNAME=COOLWIND-D67A89
ComSpec=D:\WINNT\system32\cmd.exe
HOMEDRIVE=D:
HOMEPATH=\Documents and Settings\Administrator
LOGONSERVER=\\COOLWIND-D67A89
NUMBER_OF_PROCESSORS=1
OS=Windows_NT
Os2LibPath=D:\WINNT\system32\os2\dll;
Path=D:\WINNT\system32;D:\WINNT;D:\WINNT\System32\Wbem
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_IDENTIFIER=x86 Family 15 Model 1 Stepping 2, GenuineIntel
PROCESSOR_LEVEL=15
PROCESSOR_REVISION=0102
ProgramFiles=D:\Program Files
SystemDrive=D:
SystemRoot=D:\WINNT
TEMP=D:\DOCUME~1\ADMINI~1\LOCALS~1\Temp
TMP=D:\DOCUME~1\ADMINI~1\LOCALS~1\Temp
USERDOMAIN=COOLWIND-D67A89
USERNAME=Administraterde
USERPROFILE=D:\Documents and Settings\Administrator
windir=D:\WINNT
大家可以看到一般我们所需的路径都在上面了，而且方法比较简单方便^_^,有什么错误希望大家给予斧正。
前些时间在研究如何获得系统盘的时候遇到了Environ，感觉实在是很不错的东东，所以在MSDN上查了一下，得到的结果：
Environ 函数
返回 String，它关连于一个操作系统环境变量。 在 Macintosh 中不可用
语法
Environ({envstring | number})
Environ 函数的语法含有以下这些命名参数：
部分 描述
envstring 可选参数。包含一个环境变量名的字符串表达式。
number 可选参数。数值表达式，用来表示环境字符串在环境字符串表格中的数值顺序。number 参数可以是任意的数值表达式，不过在计算前，它会先转换为一个整数。
说明
如果在环境字符串表格中找不到 envstring，则会返回一个零长度字符串 ("")。如果找到，则 Environ 会返回一段文本，文本是赋值给指定的 envstring 的，也就是说，在环境字符串表格中对应那个环境变量的等号 (=) 后面的那段文本。
如果指定了 number，则在环境字符串表格中相应位置上的字符串会返回。在这种情况下，Environ 会返回整个文本，包括 envstring。如果在指定位置上没有环境字符串，那么 Environ 会返回一个零长度字符串。
哈，竟然没有参数说明，只有一个简单的例子，感觉实在是不爽啊，呵呵，又到网络上搜了一下，发现最全的解释也就是将将MSDN上的内容COPY一下，实在是感觉做人有点不厚道了，郁闷中……
看来只有自己动手了：根据“number 参数可以是任意的数值表达式，不过在计算前，它会先转换为一个整数。”这句话，我得出了下面的一段小程序：
Private Sub Form_Click()
Dim i As Integer
For i = 1 To 100
Print Environ(i)
Next i
End Sub
呵呵，单击窗体，所有的参数和返回值都被打印在屏幕上了，我把参数和返回值列在下面给大家作个参考：
ALLUSERSPROFILE=D:\Documents and Settings\All Users
APPDATA=D:\Documents and Settings\Administrator\Application Data
CommonProgramFiles=D:\Program Files\Common Files
COMPUTERNAME=COOLWIND-D67A89
ComSpec=D:\WINNT\system32\cmd.exe
HOMEDRIVE=D:
HOMEPATH=\Documents and Settings\Administrator
LOGONSERVER=\\COOLWIND-D67A89
NUMBER_OF_PROCESSORS=1
OS=Windows_NT
Os2LibPath=D:\WINNT\system32\os2\dll;
Path=D:\WINNT\system32;D:\WINNT;D:\WINNT\System32\Wbem
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_IDENTIFIER=x86 Family 15 Model 1 Stepping 2, GenuineIntel
PROCESSOR_LEVEL=15
PROCESSOR_REVISION=0102
ProgramFiles=D:\Program Files
SystemDrive=D:
SystemRoot=D:\WINNT
TEMP=D:\DOCUME~1\ADMINI~1\LOCALS~1\Temp
TMP=D:\DOCUME~1\ADMINI~1\LOCALS~1\Temp
USERDOMAIN=COOLWIND-D67A89
USERNAME=Administraterde
USERPROFILE=D:\Documents and Settings\Administrator
windir=D:\WINNT
大家可以看到一般我们所需的路径都在上面了，而且方法比较简单方便^_^,有什么错误希望大家给予斧正。
