如题
谢谢

解决方案 »

  1.   

    winnt5.0?
    windows2000吧,就是WINNT啊
      

  2.   

    没用过3.51,试试下边的语句:
        Debug.Print Environ("windir")
      

  3.   

    Debug.Print Environ("windir")Environ是什么东东?呵呵
      

  4.   

    UINT GetSystemDirectory(    LPTSTR lpBuffer, // address of buffer for system directory 
        UINT uSize  // size of directory buffer 
       );
     
      

  5.   

    请看MSDN关于“Environ 函数”的解释:Environ 函数
          返回 String,它关连于一个操作系统环境变量。 在 Macintosh 中不可用语法 Environ({envstring | number})Environ 函数的语法含有以下这些命名参数:部分 描述 
    envstring 可选参数。包含一个环境变量名的字符串表达式。 
    number 可选参数。数值表达式,用来表示环境字符串在环境字符串表格中的数值顺序。number 参数可以是任意的数值表达式,不过在计算前,它会先转换为一个整数。 
    说明如果在环境字符串表格中找不到 envstring,则会返回一个零长度字符串 ("")。如果找到,则 Environ 会返回一段文本,文本是赋值给指定的 envstring 的,也就是说,在环境字符串表格中对应那个环境变量的等号 (=) 后面的那段文本。如果指定了 number,则在环境字符串表格中相应位置上的字符串会返回。在这种情况下,Environ 会返回整个文本,包括 envstring。如果在指定位置上没有环境字符串,那么 Environ 会返回一个零长度字符串。Environ 函数示例
    本示例使用 Environ 函数来提供来自环境变量表中 PATH 语句的长度及路径项目数。Dim EnvString, Indx, Msg, PathLen   ' 声明变量。
    Indx = 1   ' 设置索引值的初值为 1。
    Do
       EnvString = Environ(Indx)   ' 取得环境变量。
       If Left(EnvString, 5) = "PATH=" Then   ' 检查 PATH 项。
          PathLen = Len(Environ("PATH"))   ' 取得长度。
          Msg = "PATH entry = " & Indx & " and length = " & PathLen
          Exit Do
       Else
          Indx = Indx + 1   ' 不是 PATH 项,
       End If   ' 则跳过此项,继续检查下一项。
    Loop Until EnvString = ""
    If PathLen > 0 Then
       MsgBox Msg   ' 显示消息。
    Else
       MsgBox "No PATH environment variable exists."
    End If