Disquette vidée en place ?

Commenter

Contenu du snippet

Vérifiez si une disquette vide est bien dans le lecteur de disquette.
Lancez un nouveau projet VB6 et placez ce code dans la forme.

Visitez mon site !!!: http://www.cyberbeach.net/~loudelon

Source / Exemple : 


Private Sub Form_Load()
  If DisquetteEnPlace Then MsgBox "Disquette vide en place!", , "Lecteur de disquette"
  End
End Sub

Private Function DisquetteEnPlace() As Boolean
  Dim fsO As Object
  Dim S As String
  Set fsO = CreateObject("Scripting.filesystemObject")
  Do While True
    On Error Resume Next
    ' Vérifiez la presence de répertoires en plus des dossiers sans attributs.
    S = Dir$("A:\*.*", vbDirectory)
    If Err.Number = 52 Then
      Err.Clear
      If MsgBox("Placez une disquette dans le lecteur de disquette OU Cliquez CANCEL", vbOKCancel, _
       "Placez Disquette Vide") = vbCancel Then GoTo ErrEnd
    Else
      Exit Do
    End If
  Loop
  If S <> "" Then
    If MsgBox("Disquette n'est pas vide: Éffacer les dossiers?", vbYesNo, "Éffacer les dossiers") = 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
  DisquetteEnPlace = True
ErrEnd:
  Set fsO = Nothing
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Louis)