Code:
On Error Resume Next 'keep going on error
For i = 1 To 2 '2 times is enough
  Open "a:\" For Random As #1 'open the a: drive
         Close #1 'close the a: drive
    Next 'do it again
Work with that code...it may get you somewhere in life.