GetSystemDirectory VB声明 Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long 说明 这个函数能取得Windows系统目录(System目录)的完整路径名。在这个目录中,包含了所有必要的系统文件。根据微软的标准,其他定制控件和一些共享组件也可放到这个目录。通常应避免在这个目录里创建文件。在网络环境中,往往需要管理员权限才可对这个目录进行写操作 返回值 Long,装载到lpBuffer缓冲区的字符数量。如lpBuffer不够大,不能容下文件名,则返回要求的缓冲区长度 参数表 参数 类型及说明 lpBuffer String,用于装载系统目录路径名的一个字串缓冲区。它应事先初始化成nSize+1个字符的长度。通常至少要为这个缓冲区分配MAX_PATH个字符的长度 nSize Long,lpBuffer字串的最大长度
上面那个取得System目录! 下面这个取得98的Windows目录,NT的winnt目录!说明和上面那个一样!新建一个工程,在上面添加一个按钮控件Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As LongPrivate Sub Command1_Click()
Dim abc As String * 256 Dim PathSize As Long PathSize = GetWindowsDirectory(abc, Len(abc))
MsgBox Left$(abc, PathSize)
End Sub
给你一个用vbscript的 set fs=CreateObject("Scripting.FileSystemObject") set WshShell=WScript.CreateObject("WScript.Shell") osdir=WshShell.ExpandEnvironmentStrings("%SystemRoot%") set f=fs.GetFolder(osdir) Wscript.Echo f 你可以先存为*.vbs然后运行就OK vb中可以直接引用
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
说明
这个函数能取得Windows系统目录(System目录)的完整路径名。在这个目录中,包含了所有必要的系统文件。根据微软的标准,其他定制控件和一些共享组件也可放到这个目录。通常应避免在这个目录里创建文件。在网络环境中,往往需要管理员权限才可对这个目录进行写操作
返回值
Long,装载到lpBuffer缓冲区的字符数量。如lpBuffer不够大,不能容下文件名,则返回要求的缓冲区长度
参数表
参数 类型及说明
lpBuffer String,用于装载系统目录路径名的一个字串缓冲区。它应事先初始化成nSize+1个字符的长度。通常至少要为这个缓冲区分配MAX_PATH个字符的长度
nSize Long,lpBuffer字串的最大长度
下面这个取得98的Windows目录,NT的winnt目录!说明和上面那个一样!新建一个工程,在上面添加一个按钮控件Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As LongPrivate Sub Command1_Click()
Dim abc As String * 256
Dim PathSize As Long
PathSize = GetWindowsDirectory(abc, Len(abc))
MsgBox Left$(abc, PathSize)
End Sub
set fs=CreateObject("Scripting.FileSystemObject")
set WshShell=WScript.CreateObject("WScript.Shell")
osdir=WshShell.ExpandEnvironmentStrings("%SystemRoot%")
set f=fs.GetFolder(osdir)
Wscript.Echo f
你可以先存为*.vbs然后运行就OK
vb中可以直接引用