Try this:


VB Code:
  1. Private Sub Command1_Click()

  2.     On Error Resume Next

  3.     Dir "A:\", vbDirectory

  4. End Sub


For multiple times, do something like:


VB Code:
  1. Private Sub Command1_Click()

  2.     On Error Resume Next

  3.     For i = 0 To 10

  4.         Dir "A:\", vbDirectory

  5.     Next i

  6. End Sub