怎么获得已经打开的文本文件的实际存储路径？

如何获得已经打开的文本文件的实际存储路径？？？
如何获得用NotePad已经打开的文本文件的实际存储路径？？？

------解决方案--------------------
打开是用程序打开的吗？
------解决方案--------------------
http://community.****.net/Expert/topic/5601/5601470.xml?temp=.5651514
------解决方案--------------------
在哪里看出没联系的?
------解决方案--------------------
添加那个模块

然后:

Private Sub Command1_Click()
Dim I As Long

I = Shell( "notepad " & "D:\Temp\123.txt ", vbMinimizedNoFocus)
MsgBox GetRemoteCmdLine(I)
End Sub

你试了再说.