Get Dir Path Name
来源:互联网 发布:java解析二维码图片 编辑:程序博客网 时间:2024/05/17 03:45
Option Explicit
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Const BIF_RETURNONLYFSDIRS = &H1
Private pidl As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Public Function ShowDir(ByVal object As Object) As String
Dim bi As BROWSEINFO
Dim r As Long
Dim pidl As Long
Dim path As String
Dim pos As Integer
Dim strDirPath As String
'句柄
bi.hOwner = object.hWnd
'展开根目录
bi.pidlRoot = 0&
'列表框标题
bi.lpszTitle = "Please select Dir!"
'规定只能选择文件夹,其他无效
bi.ulFlags = BIF_RETURNONLYFSDIRS
'调用API函数显示列表框
pidl = SHBrowseForFolder(bi)
'利用API函数获取返回的路径
path = Space$(512)
r = SHGetPathFromIDList(ByVal pidl&, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
strDirPath = Left(path, pos - 1)
Else: strDirPath = ""
End If
ShowDir = strDirPath
End Function
Private Sub Command1_Click()
'当前Form作为参数传递
MsgBox ShowDir(Me)
End Sub
- Get Dir Path Name
- linux : get my full path name
- Get process's navigation path by using process name
- Get process's navigation path by using process name
- dfs.name.dir与dfs.data.dir
- Get the shell script dir
- magento get url and dir
- Hadoop参数:dfs.name.dir 与 dfs.data.dir
- Hadoop参数:fs.defaultFS、 dfs.name.dir 、 dfs.data.dir
- Hadoop参数:dfs.name.dir 与 dfs.data.dir
- Use regular expression to get filename from a file full path name.
- EVIOCGNAME:Get Device Name
- EVIOCGNAME:Get Device Name
- get file name
- Magento: Get category name
- EVIOCGNAME:Get Device Name
- get pid by name
- get trace name
- ASP.NET能实现身份认证的EMAIL发送方法
- doc convert out
- 体育方面的词汇
- 论项目的倒掉
- JSP图片的读写操作
- Get Dir Path Name
- SQL语句大全
- 地球真像个村子!
- 博友聚会话沟通
- 跟我学管理(18)
- 管理为何会变得复杂!
- 跟我学管理(17)
- 咨询与管理
- 跟我学管理(16)