网页功能: 加入收藏 设为首页 网站搜索  
VB中用API函数实现文件夹列表
发表日期:2002-12-08作者:[] 出处:  

---- 在安装软件等一些操作中,需要用户指定安装路径,现在软件的安装界面都是非常友好的,一般来说给出一个缺省路径,用户如不满意可以在文件夹列表中选择其他的路径。在WIN9X下,一般不再采用原来的先在驱动器列表框中选择驱动器再在相应的驱动器中选择相应文件夹的界面,而是采用的类似资源管理器中“所有文件夹”界面:最上层是“桌面”,然后是“我的电脑”、驱动器A、C、D...等,在一个列表框中用户可实现浏览所有驱动器及文件夹的操作。这种特色的文件列表没有现成的控件可供使用,但利用API函数可方便地实现。

---- 实现方法:API函数SHBrowseForFolder可以提供这样的文件列表,它需要用到一个BROWSEINFO类型,此类型包括了列表框使用的参数,此类型的声明见下面的程序,其中这里用到的几个参数简单说明一下:

---- hwndOwner—当前窗口的句柄。

---- pidlRoot—从何根路径开始展开文件夹,缺省情况下从“桌面”开始展开。

---- lpszTitle—目录树上方的标题,用来给用户一些提示信息。

---- ulFlags—显示标志控制项:比如若赋值为BIF_BROWSEFORCOMPUTER,则只有当用户选择“我的电脑”时“确定”按钮才有效,这里我们需要的是

---- BIF_RETURNONLYFSDIRS,只有用户选择的是文件夹时“确定”按钮才有效。

---- 此函数返回值是指向项目(ITEM)的一个指针,有了这个数值,再用API函数SHGetPathFromIDList可以获得具体的路径,如果用户按的是“取消”按钮,则返回值为NULL。

---- 下面是一个例子,在窗体中放置一个命令按钮command1、一个文本框Text1,在窗体的声明部分API声明函数和类型及常量如下:

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

---- 双击命令按钮,写如下代码:

Private Sub command1_Click()

Dim bi As BROWSEINFO

Dim r As Long

Dim pidl As Long

Dim path As String

Dim pos As Integer

'句柄

bi.hOwner = Me.hWnd

'展开根目录

bi.pidlRoot = 0&

'列表框标题

bi.lpszTitle = "请选择软件安装路径:"

'规定只能选择文件夹,其他无效

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))

Text1 = Left(path, pos - 1)

Else: Text1 = ""

End If

End Sub

---- 运行此程序,单击命令按钮,就可以看到和资源管理器中一样的“所有文件夹”列表了。

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 VB中用API函数实现文件夹列表
本类热点文章
  揭穿号称内存占用极低的软件的诡计
  用VB6实现真正实用的多线程处理
  读写INI文件的四个函数
  shell函数能以同步方式打开一个exe文件
  VB的API编程精粹
  TAPI笔记
  锁定计算机
  巧用API函数增强VB位操作功能
  在VB中使用API函数
  让你的文本框“聪明”一点
  关机消息的拦截
  在WIN2000下实现程序的关机
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00346