level 5
Shell App.Path & "\1\12.exe"
这句话有什么问题吗?
2009年04月18日 06点04分
1
level 6
没问题啊~~
运行 程序所在目录下的文件夹1下的12.exe程序
很正常!
2009年04月18日 08点04分
2
level 0
Shell Replace(App.Path & "\1\12.exe","\\","\")
和
IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
谁更快一点????
2009年04月19日 01点04分
4
level 7
实测结果:
Replace(App.Path & "\1\12.exe","\\","\") 明显要快!!!
程序如下:
Private Sub Form_Click()
Dim i As Long, j As Long, a As String, k As Long
j = Timer * 1000
For i = 1 To 100000
a = Replace(App.Path & "\1\12.exe", "\\", "\")
Next
j = Timer * 1000 - j
k = Timer * 1000
For i = 1 To 100000
a = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
Next
k = Timer * 1000 - k
MsgBox j & " " & k
End Sub
奇怪的是,编译以后反而都变慢了。。。。。
大家研究一下怎么回事?
2009年04月19日 04点04分
6