VB编程：获取系统目录和Windows目录

文章作者 100test 发表时间 2007:03:26 17:25:27
来源 100Test.Com百考试题网

计算机等级考试训练软件《百宝箱》

当我们需要让自己的程序判断系统目录和windows目录的名字。这时可以调用windowsapi函数getsystemdirectory和getwindowsdirectory。


声明：

获取系统目录
public declare function getsystemdirectory lib kernel32 alias getsystemdirectorya _
(byval lpbuffer as string, byval nsize as long) as long

获取windows目录
declare function getwindowsdirectory lib kernel32 alias getwindowsdirectorya _
(byval lpbuffer as string, byval nsize as long) as long


调用：

检查系统目录
public function getsystempath() as string
dim p as string * 80
dim length as long
dim path as string

length = getsystem directory(p, len(p))
path = left(p, length)
getsystempath = path
end function

检查windows目录
public function getwindowspath() as string
dim p as string * 80
dim length as long
dim path as string

length = getwindows directory(p, len(p))
path = left(p, length)

getwindowspath = path
end function