dljdlj70000

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

dljdlj70000

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

dljdlj70000

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

dljdlj70000

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

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

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

非常谢谢落花老大

dljdlj70000

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

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