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

[han6688]

如题,系统目录显示在listview中，并可以像资源管理器一样操作

[zhizlm]

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