Disquette vidée en place ?

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 080 fois - Téléchargée 57 fois

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

Ajouter un commentaire

Commentaires

Bah, laisse béton, ce grosporc est juste 1 gros cochon k'a besoin de se faire bouffer son jambon... d'ailleurs il vend sa part à 20 cts le kilo, pô chéro...

Sino à part ça..
=>Louis:

Ton code tombe bien, mais cela peut-il marcher aussi juste pour vérifier s'il y pô de diskette ds le lecteur 3"1/2 au moment où je clique sur l'icône ki me permet d'éteindre Windows? Comme ça cela m'éviterait de trop m'faire chier à chake fois ke j'allume mon pc & k'il m'dit error no diskette système, tu vois?... (même chose lorsque je kitte un utilisateur, le prog' doit m'signaler genre "hé idiot, t'as oublié de retirer la diskette du lecteur!!") Bref, si tu peux m'aider cool!

m@il là: jooinam@caramail.com

Bone prog'!!!

Gogogogogogogoooooo

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.