[分享]灵活运用VBA函数Environ

zhuyiwen

灵活运用这个VBA函数, 求取机器名、WINDOWS目录等

全文请见：
    http://bcd.accxp.com/index.asp?Main=10&ArtID=71

[em24]

李寻欢

除了windir通用外，其它的好象98都用不上

zhuyiwen

我是用WINDOWS2000测试的，你可以用循环测试一下所有的环境变量。Sorry

zhuyiwen

Sub test()
Dim EnvString, Indx              ' 声明变量。
Indx = 1                         ' 设置索引值的初值为 1。
Do
    EnvString = Environ(Indx)    ' 取得环境变量。
    Debug.Print EnvString
    indx = indx + 1
Loop Until EnvString = ""
End Sub

[em24]


测试结果：
ALLUSERSPROFILE=C:\Documents and Settings\All Users
APPDATA=C:\Documents and Settings\Administrator\Application Data
CommonProgramFiles=C:\Program Files\Common Files
COMPUTERNAME=MYDESKTOP
ComSpec=C:\WINNT\system32\cmd.exe
HOMEDRIVE=C:
HOMEPATH=LOGONSERVER=\\MYDESKTOP
NUMBER_OF_PROCESSORS=1
OS=Windows_NT
Os2LibPath=C:\WINNT\system32\os2\dll;
Path=C:\Program Files\Microsoft Office\Office10\;C:\WINNT\system32;C:\WINNT;C:\WINNT\System32\Wbem;C:\Program Files\Microsoft SQL Server\80\Tools\BINN;c:\dos
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_IDENTIFIER=x86 Family 15 Model 2 Stepping 7, GenuineIntel
PROCESSOR_LEVEL=15
PROCESSOR_REVISION=0207
ProgramFiles=C:\Program Files
SystemDrive=C:
SystemRoot=C:\WINNT
TEMP=C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp
TMP=C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp
USERDOMAIN=MYDESKTOP
USERNAME=Administrator
USERPROFILE=C:\Documents and Settings\Administrator
windir=C:\WINNT

[此贴子已经被作者于2003-8-13 11:46:55编辑过]