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

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

声明:

获取系统目录
公共声明函数getsystemdirectory lib' kernel32 '别名' getsystemdirectorya ' _
(byval LP buffer为string，Valnsize为long)
'获取windows目录
声明函数getwindows Directory Lib ' Kernel32 '别名' getwindows Directory Ya ' _
(Byvallpbuffer为string，Byvalnsize为long)只要

致电:

检查系统目录
公共函数get system path()as string
dimp as string * 80
dim length as long
dim path as string。

length = getsystem directory(p，len(p))
path = left(p，length)
get system path = path
end function

检查windows目录
公共函数getwindows path()as string
dimp as string * 80
dim length as long
dim path as string。

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

getwindowspath = path
end函数