在VB中取得Windows的当前目录
很多情况下我们需要在程序中确定当前Windows的目录，VB中自身并没有这样的函数，但我们可以借助WindowsAPI来达到目的，这个关键的函数就是：Kernel32中的GetWindowsDirectory。 首先要在新建的程序中加入一个Module，在该Module中作如下声明： DeclareFunctionGetWindowsDirectoryLib“kernel32”Alias“GetWindowsDirectoryA”(ByVallpBufferAsString,ByValnSizeAsLong)AsLong 函数说明完毕，可以看到，为了防止出错情况，函数引入了nSize参数，但只要使用下述经典的取目录代码，可保证程序平稳运行。 PublicFunctionMyGetWinDirectory()AsString 现在你可以试一下你的新函数：在窗体Form1中加入一个文本框Text1，然后再加入一个命令键Command1，在Command1_Click()事件中加入以下代码： PrivateSubCommand1_Click() 以上程序在中文Windows98，VB6中通过。
这里的几个参数说明一下：lpBuffer是一个字符串，用以返回Windows的目录值（实际上是一个指针），这个目录值不带反斜杠的，比如C:\Windows，但有一种情况例外：当Windows安装在根目录下时返回反斜杠，比如C:\；第二个参数是前一个字串的长度，你得告诉系统为返回值预留的字串的最大长度（其实这个参数实在有些鸡肋的感觉）；函数的返回值，在成功的情况下是目录字符串的长度，在不成功时返回NULL值，还有一种情况，就是返回值超出预留的串长度，那么该函数就返回实际值应有的长度。
DimsBufferAsString
DimlSizeAsLong
sBuffer=String(255,0)
lSize=GetWindowsDirectory(sBuffer,Len(sBuffer))
sBuffer=Left(sBuffer,lSize)
sBuffer=sBuffer＋“\”
MyGetWinDirectory=sBuffer
EndFunction
这里程序首先为字符预留了255Bytes，应该是足够了，不会有人用这么长的Windows目录名的，更重要的是超出255的长文件名Windows是不支持的；然后调用GetWindowsDirectory函数，通过返回值lSize截取缓冲区中有用的部分重新定义sBuffer；最后再加上反斜杠，形成完整的路径名。
Text1=MyGetWinDirectory
MsgBoxText1
EndSub
最后运行程序，占击一下Command1，看一下实际的运行效果。
- 最新文章
- 变量名称变成了保留字[04-17]
- VisualBasic工程管理一[04-17]
- VisualBasicCOM基础讲座之事件[04-17]
- 在VB中异步执行程序[04-17]
- VisualBasic命令分类表[04-17]
- 利用VB测声卡[04-17]
- 相关文章
- WindowsAPI的作用及使用技巧[04-17]
- 在VisualBasic中判断Windows9x的运行模式[04-17]
- 如何在VB中判断Windows9x的运行模式[04-17]
- 利用Api函数计算Windows从启动后所运行的总[04-17]
- 用VB将命令行软件Windows化[04-17]
- 获得Windows的临时文件的路径[04-17]
