小问题:请问winnt3.51和winnt5.0的系统文件夹目录是什么? 如题谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 winnt5.0?windows2000吧,就是WINNT啊 没用过3.51,试试下边的语句: Debug.Print Environ("windir") Debug.Print Environ("windir")Environ是什么东东?呵呵 UINT GetSystemDirectory( LPTSTR lpBuffer, // address of buffer for system directory UINT uSize // size of directory buffer ); 请看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 C盘内某个文件,他的唯一识别标识是什么!! [求教]关于vb与sql 2000的连接问题 TextBox输入位置 如何通过一个按钮改变选中文字的字号 一个奇怪的打印问题 继续请问我访问Access 2000的数据库时,Visual Data Manager为什么说格式不对,非要转化到Access 97才行? VB 关于GPIB通信 如何用vb访问并口/VC DLL调用问题 (急!!!!!!!!!) 【有关TAPI的问题,是高手的进来看看,高分相送500】 ???关于DATAGRID的问题??? 急急急!怎么让datagrid中的一列显示从0到adodc记录条数的连续的自然数? 按钮状态问题?
windows2000吧,就是WINNT啊
Debug.Print Environ("windir")
UINT uSize // size of directory buffer
);
返回 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