把起始目录赋值给一个变量不就行了
public runpath as string
runpath="C:\MIR\MIR3.0\"shell runpath & "程序名" , VBNORMORFOUCESsplit("字符串","分割符",,"比较方式")

解决方案 »

  1.   

    Private Sub Command1_Click()
        Dim vArr As Variant
        Dim astr(10)
        
        vArr = astr
        vArr = Split("a/od/os/p/", "/")
        Debug.Print vArr(0)
        
        For i = LBound(vArr) To UBound(vArr)
        If vArr(i) <> "" Then
        List1.AddItem vArr(i)
        End If
        Next i
    End Sub
      

  2.   

    lysong(平)已经回答了。俺贴个函数原型吧。
    Split(expression[, delimiter[, limit[, compare]]])
      

  3.   

    不行呀.你用过快捷方式的起始位置吗?要SHELL的程序需要用到它所在目录的子目录的其他文件.如果起始位置不在程序目录,它就没办法正常运行.而SHELL的程序起始位置在VB目录下.所以还是没办法正常运行.
      

  4.   

    1,Shell 函数是执行一个可执行文件 语法 Shell(pathname[,windowstyle])  PathName 文件路径和名称(如:"C:\Windows\hh.exe")
      Windowstyle 表示在程序运行时窗口的样式。 windowstyle 命名参数有以下这些值:
      当为: 0,    窗口被隐藏,且焦点会移到隐式窗口。 
            1,    窗口具有焦点,且会还原到它原来的大小和位置。 
            2,    窗口会以一个具有焦点的图标来显示。 
            3,    窗口是一个具有焦点的最大化窗口。 
            4,    窗口会被还原到最近使用的大小和位置,而当前活动的窗口仍然保持活动。 
            6,    窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。 
       打开计算器例子,Shell("C:\WINDOWS\CALC.EXE", 1)2,Private sub form_load()
       If myfile=Dir$("d:\abc.txt") Then msgbox "文件存在"
      End sub
    '使用 Dir 函数来检查某些文件或目录是否存在
      

  5.   

    dir()这个函数我也用过,你告诉我这些东西有什么用?是不是用了它,起始位置就到了dir()的那个目录了?我试一下吧.