求助：如何得到“我的文档”的目录位置？

Question

在WINDOWS2000下环境，VB如何确定“documents and settings”的位置，以及当前用户在“documents and settings"中的位置。

Answer 1

http://www.xygu.com/dispbbs.asp?boardID=1&ID=21

Answer 2

很简单的办法用Environ函数EnvironDim EnvString, Indx, Msg, PathLen   ' Declare variables.
Indx = 1   ' Initialize index to 1.
Do
   EnvString = Environ(Indx)   ' Get environment 
            ' variable.
   If Left(EnvString, 5) = "PATH=" Then   ' Check PATH entry.
      PathLen = Len(Environ("PATH"))   ' Get length.
      Msg = "PATH entry = " & Indx & " and length = " & PathLen
      Exit Do
   Else
      Indx = Indx + 1   ' Not PATH entry,
   End If   ' so increment.
Loop Until EnvString = ""
If PathLen > 0 Then
   MsgBox Msg   ' Display message.
Else
   MsgBox "No PATH environment variable exists."
End If它可以得到30个环境变量
如：
ALLUSERSPROFILE=C:\Documents and Settings\All Users
APPDATA=C:\Documents and Settings\ch21st\Application Data
CommonProgramFiles=C:\Program Files\Common Files
COMPUTERNAME=SHANG
ComSpec=C:\WINXP\system32\cmd.exe
HOMEDRIVE=C:
HOMEPATH=\Documents and Settings\ch21st
include=D:\Program Files\Microsoft Visual Studio\VC98\atl\include;D:\Program Files\Microsoft Visual Studio\VC98\mfc\include;D:\Program Files\Microsoft Visual Studio\VC98\include
lib=D:\Program Files\Microsoft Visual Studio\VC98\mfc\lib;D:\Program Files\Microsoft Visual Studio\VC98\lib
LOGONSERVER=\\SHANG
MSDevDir=D:\Program Files\Microsoft Visual Studio\Common\MSDev98
NUMBER_OF_PROCESSORS=1
OS=Windows_NT
Path=d:\PROGRA~1\Borland\CBUILD~1\Projects\Bpl;d:\PROGRA~1\Borland\CBUILD~1\Bin;C:\WINXP\system32;C:\WINXP;C:\WINXP\System32\Wbem;D:\Program Files\Microsoft Visual Studio\Common\Tools\WinNT;D:\Program Files\Microsoft Visual Studio\Common\MSDev98\Bin;D:\Program Files\Microsoft Visual Studio\Common\Tools;D:\Program Files\Microsoft Visual Studio\VC98\bin
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_IDENTIFIER=x86 Family 6 Model 7 Stepping 3, GenuineIntel
PROCESSOR_LEVEL=6
PROCESSOR_REVISION=0703
ProgramFiles=C:\Program Files
SESSIONNAME=Console
SystemDrive=C:
SystemRoot=C:\WINXP
TEMP=C:\DOCUME~1\ch21st\LOCALS~1\Temp
TMP=C:\DOCUME~1\ch21st\LOCALS~1\Temp
USERDOMAIN=SHANG
USERNAME=ch21st
USERPROFILE=C:\Documents and Settings\ch21st
windir=C:\WINXP