血糖大轮廓7次值正常:在VB中取得Windows的当前目录

来源：百度文库编辑：偶看新闻时间：2024/04/29 20:25:24

2001-10-24· ·--··yesky
很多情况下我们需要在程序中确定当前Windows的目录，VB中自身并没有这样的函数，但我们可以借助Windows API来达到目的，这个关键的函数就是：Kernel32中的GetWindowsDirectory。
首先要在新建的程序中加入一个Module，在该Module中作如下声明：
Declare Function GetWindowsDirectory Lib “kernel32” Alias “GetWindowsDirectoryA” (ByVal lpBuffer As String, ByVal nSize As Long) As Long
这里的几个参数说明一下：lpBuffer是一个字符串，用以返回Windows的目录值（实际上是一个指针），这个目录值不带反斜杠的，比如C:\Windows，但有一种情况例外：当Windows安装在根目录下时返回反斜杠，比如C:\；第二个参数是前一个字串的长度，你得告诉系统为返回值预留的字串的最大长度（其实这个参数实在有些鸡肋的感觉）；函数的返回值，在成功的情况下是目录字符串的长度，在不成功时返回NULL值，还有一种情况，就是返回值超出预留的串长度，那么该函数就返回实际值应有的长度。
函数说明完毕，可以看到，为了防止出错情况，函数引入了nSize参数，但只要使用下述经典的取目录代码，可保证程序平稳运行。
Public Function MyGetWinDirectory() As String
Dim sBuffer As String
Dim lSize As Long
sBuffer = String(255, 0)
lSize = GetWindowsDirectory (sBuffer, Len(sBuffer))
sBuffer = Left(sBuffer, lSize)
sBuffer = sBuffer ＋ “\”
MyGetWinDirectory = sBuffer
End Function
这里程序首先为字符预留了255Bytes，应该是足够了，不会有人用这么长的Windows目录名的，更重要的是超出255的长文件名Windows是不支持的；然后调用GetWindowsDirectory函数，通过返回值lSize截取缓冲区中有用的部分重新定义sBuffer；最后再加上反斜杠，形成完整的路径名。
现在你可以试一下你的新函数：在窗体Form1中加入一个文本框Text1，然后再加入一个命令键Command1，在Command1_Click()事件中加入以下代码：
Private Sub Command1_Click()
Text1 = MyGetWinDirectory
MsgBox Text1
End Sub
最后运行程序，占击一下Command1，看一下实际的运行效果。（以上程序在中文Windows98，VB6中通过。）

在vb中如何将recordset的当前纪录变为第一条纪录，谢谢！ VB如何取得System32目录 VB中怎样判断Treeview的当前节点是不是叶子节点？ VB:Data(.mdb)中数据的当前打印和全部打印在asp脚本中如何取得URL的目录地址在asp脚本中如何取得URL的目录地址！！！在vb中如何用程序取得ie缓存位置（VB）在过程运行中取得按键Ascii 如果在vb中在当前路径新建一个目录在VB中怎么打开指定目录的应用程序？如何在VB中实现目录的查询我在瑞星个人防火墙中知道的当前活动程序在文件中有的怎么找不到呀?????? VB中设置目录权限在WORD文件的当前表格中,设置表格每一页出现前两行的文字,如何设置? 在Windows操作系统中所采用的目录结构为临时文件夹能在windows的目录中找到么？在vb中用app.path取得当前路径，在vs中如何取得呢。铜塑线的当前价格如何在VB中取得的结果集中再进行查询如何在vb中调用windows计划任务向导 VB目录的在哪?还有Icons目录在哪? vb 中现存文件的生成时间取得方法 VB中，32位乘法如何取得EDX、EAX内容。 C语言中怎么编程求的当前计算机中的时间(TC里面)