如何在VB中调用通用对话框来让用户选择一个路径。是路径不是打开文件对话框
解决方案 »
- 求助 倒数记时器
- 我想将字符转化为数字,这个为什么不对?
- 关于sendmesseag 的问题,高手帮帮
- 专家有无VBRezQ 的注册版
- Vb6.0 中操作ms-word; 打开一个word的函数参数时怎样的?我怎样去找相关的帮助文档?
- ▲▲特急菜鸟问题?????关于VB与SQL。
- msflexgrid中选择
- 如何使指定窗口播放的图像通过API抓取到另一个PIC控件中!并同时播放!
- vb 中如何调用asp? 如何调用html?
- 怎么把"20010101"这样的字串变成日期型的?只用现成的函数
- VB开发com组件实现数据导入导出思想的问题!
- 庆祝我的表格控件累计销售突破100份,发布最新版V2.64,兼散分!
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BROWSEINFO) As Long
Private Const BIF_RETURNONLYFSDIRS = &H1
Private Const BIF_NEWDIALOGSTYLE = &H40
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 TypePrivate Sub Command1_Click()
Text1.Text = BrowseFolder(Me.hwnd, "请选择您文件夹")
End Sub
'浏览文件夹函数
Public Function BrowseFolder(ByVal hwnd As Long, ByVal Title As String) As String
Dim bi As BROWSEINFO
Dim rtn, pid As Long
Dim path As String * 512
Dim pos As Integer
With bi
.hOwner = hwnd
.ulFlags = BIF_RETURNONLYFSDIRS Or BIF_NEWDIALOGSTYLE
.lpszTitle = Title
End With
pid = SHBrowseForFolder(bi)
rtn = SHGetPathFromIDList(ByVal pid, ByVal path)
If rtn Then
pos = InStr(path, Chr(0))
BrowseFolder = Left(path, pos - 1)
Else
BrowseFolder = ""
End If
End Function