vb选择文件路径
来源:互联网 发布:ubuntu 10.04 源 编辑:程序博客网 时间:2024/04/26 19:16
Option Explicit
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
Private Const MAX_PATH = 260
Private Declare Function SHBrowseForFolder Lib "shell32" _
(lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" _
(ByVal pidList As Long, _
ByVal lpBuffer As String) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
(ByVal lpString1 As String, ByVal _
lpString2 As String) As Long
Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Private Sub Command1_Click()
Dim lpIDList As Long
Dim sBuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo
szTitle = "This is the title"
With tBrowseInfo
.hWndOwner = Me.hWnd
.lpszTitle = lstrcat(szTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With
lpIDList = SHBrowseForFolder(tBrowseInfo)
If (lpIDList) Then
sBuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sBuffer
sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
MsgBox sBuffer
End If
End Sub
- vb选择文件路径
- vb 文件路径选择
- vb实现选择路径功能
- C#选择文件路径
- MFC选择文件路径
- VB/VBA通用路径选择对话框
- C#选择文件、选择文件路径
- 路径选择框&文件选择框使用
- 设置浏览文件 选择当前选择路径
- MFC文件选择和文件夹路径选择
- MFC选择文件夹对话框,选择文件路径
- 保存文件路径的选择
- 选择文件路径--浏览控件
- 如何获得选择文件路径
- [WPF] 文件路径选择控件
- MFC选择文件存放路径
- javafx2导出文件选择路径
- c#选择文件保存路径
- 想成为嵌入式程序员应知道的0x10个基本问题
- 加班后遗症
- 初涉VFP,我的体会
- 新株洲站2009年前建成
- nhibernate源码分析之一:对象映射
- vb选择文件路径
- Cisco VPN连接配置实例
- 博文视点官方博客已经开通!
- Windows Workflow开发演练
- 一只兔子在公司的遭遇!
- vb读取环境变量及其路径
- WPF中的datatrigger
- 面向上帝的编程语言
- 一般人为什么不成功?(陈安之)