把起始目录赋值给一个变量不就行了
public runpath as string
runpath="C:\MIR\MIR3.0\"shell runpath & "程序名" , VBNORMORFOUCESsplit("字符串","分割符",,"比较方式")
public runpath as string
runpath="C:\MIR\MIR3.0\"shell runpath & "程序名" , VBNORMORFOUCESsplit("字符串","分割符",,"比较方式")
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
Split(expression[, delimiter[, limit[, compare]]])
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 函数来检查某些文件或目录是否存在