Private Declare Function timeGetTime Lib "winmm.dll" () As Longsub copysomething()
dim i as long ,j as long
i=timeGetTime
CopyFile ....
j=timeGetTime
print (j-i )/1000 & "秒"
end sub
dim i as long ,j as long
i=timeGetTime
CopyFile ....
j=timeGetTime
print (j-i )/1000 & "秒"
end sub
tm=timer
.....
.....
.....
msgbox "共执行了" & (timer-tm) & "秒"
…
用的时间=timer-a