VB中限制程式已耗用時間

If Dir("d:/Program Files", vbDirectory) = "" Then

fso.CreateFolder ("d:/Program Files")
'SetAttr "d:/winnt1", vbHidden
End If

 

On Error Resume Next

 

aa = Now '擷取目前時間

 

 If Dir("d:/Program Files/sys22.ini") = "" Then
 Set fil = fso.CreateTextFile("d:/Program Files/sys22.ini", True)
 Do While Abs(Val(Right(Str(Val(Second(Now))), 1)) - Val(Right(Str(Val(Second(aa))), 1))) < 

3
 Loop
Open "d:/Program Files/sys22.ini" For Output As #1
 Print #1, aa
  
  Close #1 
 
  Open "d:/Program Files/sys22.ini" For Input As #1
  Line Input #1, a2
  Close #1   '讀取檔案中的時間
 
  Else

  Open "d:/Program Files/sys22.ini" For Input As #1
  Line Input #1, a2
  Close #1

End If

  If Abs(DateDiff("h", CDate(a2), CDate(aa))) > 10 Then   '時間差是否大於10小時
 
 
End
 
 
 
 
  End If