提个关于shell的问题
vb吧
全部回复
仅看楼主
level 5
DanieSimth 楼主
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 0
谢谢!!!!!
忘马甲了,我是楼主、。
2009年04月19日 04点04分 5
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
level 6
解释执行和编译执行的速度不会相同的
2009年04月19日 05点04分 7
1