有大虾用过VBExplorer（或EnumDeskVB）吗？有问题请教！

[stsit]

我在菜单栏增加一个功能“显示”，点击后希望获得所选文件（在ListView1内）的完整路径。
如何能得到？请指点。
谢谢！

[since1990]

把这部分代码倒回来：

VBExplorer：

Private Sub Dir1_Change()
On Error GoTo errHandler
Dim Buffer As String
Dim rtn
Dim DirPath
Dim fExt As String
ListView2.Visible = False
ListView1.Visible = True
mnuSortAZ_Click
Buffer = Space(MAX_PATH)
rtn = GetWindowsDirectory(Buffer, Len(Buffer))
WinPath = Left(Buffer, rtn)
On Error Resume Next
DelTree32 WinPath & "\Temp\Temp1"
MkDir WinPath & "\Temp\Temp1"
cmdUndoDelete.Enabled = False
cmdUndoRename.Enabled = False
On Error GoTo errHandler
fPath = Dir1.path & "\"
Dir1.path = fPath
Call vbGetFileList
Exit Sub
errHandler:
DirPath = DriveLetter & fExt
fPath$ = DirPath
If fPath$ > "" Then vbGetFileList
Dir1.path = fPath
Call vbGetFileList
End Sub

[kmzs]

VBExplorer（或EnumDeskVB）
可能用过，是什么呀？？？？
解释一下，帮助回忆！！！！

[stsit]

多谢两位！

VBExplorer（或EnumDeskVB）是用VB写的资源管理器
http://www.mvps.org/btmtz/vbexplorer/

小弟只是初学VB，楼上给的代码我不知如何运用
我是希望能获得所选文件的绝对路径（如：d:\aaa\bbb\file.txt）
这样就可以对文件进行其他操作

[stsit]

API版的bbe大侠给出了答案，有兴趣可到API版看看