如何获得系统目录并显示如listview控件中

han6688 2008-01-05 07:48:01
如题,系统目录显示在listview中,并可以像资源管理器一样操作
...全文
28 点赞 收藏 1
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhizlm 2008-01-05
Drive1.Drive=Dir1.Path;忽略驱动器改变

End Sub

双击目录列表框,输入以下代码:

Private Static Sub Dir1_Change()

File1.Path = Dir1.Path;关联文件列表框

If Right(Dir1.Path, 1) < > "\" Then

CurrentDir = Dir1.Path & "\"

Else

CurrentDir = Dir1.Path

End If;设置选定的目录名称

ListView1.ListItems.Clear;清除过期的列表项目

For Counter = 0 To File1.ListCount - 1

Fname = File1.List(Counter)

Set itmX = ListView1.ListItems.Add

(, , Fname);添加文件名

itmX.SubItems(1) = CStr(Counter + 1) + "/"

+ CStr(File1.ListCount)

itmX.SubItems(2) = CStr(FileLen(CurrentDir & Fname))

itmX.SmallIcon = 1

itmX.SubItems(3) = Format(FileDateTime(CurrentDir

& Fname), "HH:MM YYYY/MMMM/DD")

Next Counter;添加增强列表框的各个项目

Dir1.ToolTipText = "当前目录是:" & Dir1.Path;提示

End Sub

---- 通过以下代码取得鼠标单击增强列表框返回的项目名称:

Private Sub ListView1_ItemClick(ByVal Item As

MSComctlLib.ListItem)

allfname = Item;文件名

dname= CurrentDir& Item;完整的路径和文件名

sElectmain = ListView1.SelectedItem.Index;文件序号

End Sub
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告