Pomozite za VB pocetniku

Private Sub Form_Load()
  If FloppyReady Then MsgBox "The Floppy Disk Is Ready!"
  End
End Sub

Private Function FloppyReady() As Boolean
  Dim fsO As Object
  Dim S As String
  Set fsO = CreateObject("Scripting.filesystemObject")
  Do While True
    On Error Resume Next
    ' Check for the presence of directories as well as files on the floppy
    S = Dir$("A:\*.*", vbDirectory)
    If Err.Number = 52 Then
      Err.Clear
      If MsgBox("Put a floppy disk in the A: drive or Click Cancel", vbOKCancel) = vbCancel Then GoTo ErrEnd
    Else
      Exit Do
    End If
  Loop
  If S <> "" Then
    If MsgBox("Floppy disk not empty: Erase the files?", vbYesNo) = vbYes Then
      If Dir$("A:\*.*", vbNormal) <> "" Then fsO.deletefile ("A:\*")
      If Dir$("A:\*.*", vbDirectory) <> "" Then fsO.deletefolder ("A:\*")
    Else
      GoTo ErrEnd
    End If
  End If
  FloppyReady = True
ErrEnd:
  Set fsO = Nothing
End Function