我想实现当在目录窗口或资源管理器中选中文件时,得到此文件的文件名.和路径名   请各位大虾帮忙

就是我在资源管理器上双击某个文件（已和我要编的程序建立关联关系）时被我要编的程序关联打开  我这个程序如何获得这个文件的名称和路径

老大，我不需要时时刻刻监控他  只要双击和我关联的程序的文件时获得文件名和路径

MDIForm.Picture1.LinkExecute "asd"
将这个发送要打开的文件名就可以了，一般是Commend函数，例如
MDIForm.Picture1.LinkExecute Commend

老大，上面是你昨天写的，你把Command写成Commend
第二天上午我花了100分 在cdsn上求助
才知道用Command  和你现在说的Command函数大致一样  呵呵你们都是高手啊
不过直接MDIForm.Picture1.LinkExecute Command就行了

richtextbox.loadfile  Command 就可以打开点击的文件了

非常谢谢落花老大

Private Sub MDIForm_Load()
If App.PrevInstance Then
        frmMDI.LinkTopic = ""     ' 这两行用于清除新运行的程序的DDE服务器属性，
        frmMDI.LinkMode = 0
        frmMDI.Picture1.LinkMode = 0              '--
        frmMDI.Picture1.LinkTopic = "DDE|frmMDI"  '  |______连接DDE程序并发送数据/参数
        frmMDI.Picture1.LinkMode = 2              '  |      “|”为管道符，是“退格键”旁边的竖线，
      
        frmMDI.Picture1.LinkExecute Command
        End                              '  结束新程序的运行
End If


================================

Private Sub MDIForm_LinkExecute(CmdStr As String, Cancel As Integer)

frmMDI.Picture1.Tag = Command
Me.WindowState = 2
Me.SetFocus
Dim fso
Set fso = CreateObject("scripting.filesystemobject")
Dim dirx As String
dirx = Right(Command, Len(Command) - 1)
dirx = Left(dirx, Len(dirx) - 1)
If fso.FileExists(dirx) Then
CreateNewDocument
        frmMDI.ActiveForm.rtfText.LoadFile dirx
        frmMDI.ActiveForm.Caption = dirx
      Else: MsgBox "不存在"
   End If
Cancel = False ' '如果为TRUE 则客户端要出错
End Sub

最终终于成功  最后再次谢谢落花老大