我的问题多多，还有一个运行快捷方式的问题，请帮我解决！！！

我用
桌面上notes.exe的快捷方式的属性是下面这样的：
"C:\Program Files\lotus\notes\notes.exe" "=C:\Program Files\lotus\notes\notes.ini"我在用ShellExecute Me.hwnd, vbNullString, str, vbNullString, vbNullString, 1执行它的时候
怎么改变用到的notes.ini的？比如：
我想用d盘下面的notes.ini文件
"C:\Program Files\lotus\notes\notes.exe" "=D:\notes\notes.ini"

解决方案 »

  1.   

    GetLnkTargetPath 
    Function GetTargetPath(ByVal LinkName As String)
        On Local Error Resume Next
        Dim Obj As Object
        Set Obj = CreateObject("WScript.Shell")    Dim Shortcut As Object
        Set Shortcut = Obj.CreateShortcut(LinkName)
        GetTargetPath = Shortcut.TargetPath
        Shortcut.SaveEnd Function读出主应用程序，shell 传入参数就可以
      

  2.   

    to：yinweihong() 我没成功，请说详细点！！谢谢！！！
      

  3.   

    函数中获取到字符串是"C:\Program Files\lotus\notes\notes.exe" "=C:\Program Files\lotus\notes\notes.ini"
    分离出"C:\Program Files\lotus\notes\notes.exe"  然后
    shell "C:\Program Files\lotus\notes\notes.exe" "=D:\notes\notes.ini"
      

  4.   

    不行呀，
    我运行shell "C:\Program Files\lotus\notes\notes.exe" "=D:\notes\notes.ini"
    语法错误呀！！
      

  5.   

    shell "C:\Program Files\lotus\notes\notes.exe" &space(1) & "D:\notes\notes.ini"
    z这样有错么？
      

  6.   

    "=D:\notes\notes.ini"这里面这个=号要的么？ShellExecute Me.hwnd, "open", "C:\Program Files\lotus\notes\notes.exe", "=D:\notes\notes.ini", vbNullString，SW_SHOWNORMAL
      

  7.   

    是呀，我也是这么写的，但是C:\Program Files\lotus\notes\notes.exe启动一半就退出了
    为什么？？？谢谢！！
      

  8.   

    至于为什么启动一半就退出了，是C:\Program Files\lotus\notes\notes.exe本身的问题还是什么
    原因很多啊，不太清楚了