VB中如何获取已打开的文件名称及路径。

[knicks_01]

举例：任务管理器 应用程序界面中，能看那些文件已被打开。
比如：xxx.XLS,xxx.doc。并能得到完整的路径。
请教如何能获取那些信息。

[knicks_01]

通过遍历能取道标题得到文件名。
但是无法得到文件路径。
如果使用SearchTreeForFile去寻找文件得到路径，会有问题。

[fxy_2002]

'根据进程号获取进程路径函数

Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function EnumProcessModules Lib "psapi.dll" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Private Declare Function GetModuleFileNameExA Lib "psapi.dll" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long

Function GetProcessPathByProcessID(PID As Long) As String
On Error GoTo Z
Dim cbNeeded As Long
Dim szBuf(1 To 250) As Long
Dim Ret As Long
Dim szPathName As String
Dim nSize As Long
Dim hProcess As Long
hProcess = OpenProcess(&H400 Or &H10, 0, PID)
If hProcess <> 0 Then
Ret = EnumProcessModules(hProcess, szBuf(1), 250, cbNeeded)
If Ret <> 0 Then
szPathName = Space(260)
nSize = 500
Ret = GetModuleFileNameExA(hProcess, szBuf(1), szPathName, nSize)
GetProcessPathByProcessID = Left(szPathName, Ret)
End If
End If
Ret = CloseHandle(hProcess)
If GetProcessPathByProcessID = "" Then
GetProcessPathByProcessID = "SYSTEM"
End If
Exit Function
Z:
End Function

[happy_sea]

遍历可见窗口标题然后逐条分析

[boywang]

遍历可见handle然后逐条分析

[happy_sea]

要想获取一个当前运行的exe程序的完整路径很好办，但是想获取这个exe程序打开的文档就不好办。比如你想获取Word当前正在编辑的完整路径与文件名，除非这个Word是你的程序打开的，否则，你搜索一下可不可以向Word、Excel发送消息，让它返回这个文件名，估计希望不大。。。

[knicks_01]

是啊如上所说，进程里只能显示，那些EXE在运行，但是无法知道EXE打开的文件。
不过还是谢谢大家。