首页 >> 读书频道 >> 电脑 >> 在VB中取得Windows的当前目录
 
· 第14章 XSL变换
· 用API函数实现文件夹列
· 利用API创建文件目录
· 用API函数遍历文件三
· API实现完美的图片出现
· API实现完美的图片出现
· API实现完美的图片出现
· 第14章 XSL变换
· 实现平面工具栏上
· 用API制作图形窗体
· 本章小结
· VB托盘程序详解中
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

在VB中取得Windows的当前目录


查看有无更新版本

关键字:VB 2006-9-18

 

很多情况下我们需要在程序中确定当前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中取得Windows的当前目录

[ 1 ]
在VB中取得Windows的当前目录 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑