取得windows目录
来源:互联网 发布:淘宝上怎么买烟 编辑:程序博客网 时间:2024/04/29 21:53
若是程序中必须用到 Windows 目录,要找到正确的路径,做法如下:
'在声明区中加入以下声明:
Const MAX_PATH = 260
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function GetWinPath()
Dim strFolder As String
Dim lngResult As Long
strFolder = String(MAX_PATH, 0)
lngResult = GetWindowsDirectory(strFolder, MAX_PATH)
If lngResult <> 0 Then
GetWinPath = Left(strFolder, InStr(strFolder, Chr(0)) - 1)
Else
GetWinPath = ""
End If
End Function
'在程序中使用方法如下:
Private Sub Command1_Click()
Call MsgBox("您电脑中 Windows 目录的正确路径是: " & GetWinPath, vbInformation)
End Sub
- 取得windows目录
- 取得文件目录列表命令for Windows
- 取得Windows临时目录及其它文件或目录信息
- windows Mobile 取得启动应用程序的当前目录路径
- [Windows编程] 取得Vista/Win7 下的 “下载” 目录路径
- 取得程序运行目录
- php 取得上层目录
- 如何取得当前目录
- 取得当前工作目录
- 取得系统目录
- 取得程序当前目录
- C#取得系统目录
- C#取得系统目录
- 取得程序运行目录
- windows取得串口列表
- 怎样取得应用程序当前目录?
- java取得web工程目录
- java取得web工程目录
- java中的 by value or by reference
- 关于asp中多条记录提交的问题?
- 20050909
- read-Atleap-10-主业务分析-ContentField类-Hibernate多对一关系实施案例
- 用qmake快速生成makefile(收藏)
- 取得windows目录
- 用 quartz 调度定时工作
- PPMM图片I
- 关于Ajaxian JSF的设计原则
- 如何在Resin中使用OJB
- Wicket用户手册:能够处理用户输入的HelloWorld
- 用例建模指引
- 西门子C65开发手札
- Zend进军中国:PHP在中国的机遇