Detecter si il y a une disquette
Stan62970
Messages postés
48
Date d'inscription
mercredi 26 mai 2004
Statut
Membre
Dernière intervention
20 septembre 2006
-
3 juin 2004 à 20:00
Stan62970 Messages postés 48 Date d'inscription mercredi 26 mai 2004 Statut Membre Dernière intervention 20 septembre 2006 - 3 juin 2004 à 22:39
Stan62970 Messages postés 48 Date d'inscription mercredi 26 mai 2004 Statut Membre Dernière intervention 20 septembre 2006 - 3 juin 2004 à 22:39
A voir également:
- Detecter si il y a une disquette
- Python détecter touche clavier - Forum Visual Basic
- Vba excel détecter changement valeur cellule ✓ - Forum Visual Basic
- Détecter le changement de valeur d'une cellule - Forum Visual Basic 6
- Détecter quelle touche du clavier a été appuyée ✓ - Forum VB.NET
- Détecter le clavier sans avoir le focus - Forum Delphi / Pascal
4 réponses
ShareVB
Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
26
3 juin 2004 à 21:18
3 juin 2004 à 21:18
salut
tu peux utiliser l'api CreateFile ou plus simplement Dir$ de VB.
S'il n'y a pas de disquette (ou eventuellement aucune donnée) dans le lecteur, dir$ te renvoie vbNullString ou génére une erreur.
voilà
ShareVB
tu peux utiliser l'api CreateFile ou plus simplement Dir$ de VB.
S'il n'y a pas de disquette (ou eventuellement aucune donnée) dans le lecteur, dir$ te renvoie vbNullString ou génére une erreur.
voilà
ShareVB
Stan62970
Messages postés
48
Date d'inscription
mercredi 26 mai 2004
Statut
Membre
Dernière intervention
20 septembre 2006
3 juin 2004 à 21:33
3 juin 2004 à 21:33
Ca marche pô ! (ou plutot g pa compri)
g essayer av dir$ et i renvoi null a chaque fois disquette ou pa !
g essayer av dir$ et i renvoi null a chaque fois disquette ou pa !
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
21
3 juin 2004 à 22:30
3 juin 2004 à 22:30
Salut,
Essaie un truc comme ça :
Private Sub Command1_Click()
MsgBox detect_disquette
End Sub
Function detect_disquette() As Boolean
On Error GoTo erreur
If Dir("a:\.") <> "" Then detect_disquette = True
Exit Function
erreur:
detect_disquette = False
End Function
Cordialement
CanisLupus
Essaie un truc comme ça :
Private Sub Command1_Click()
MsgBox detect_disquette
End Sub
Function detect_disquette() As Boolean
On Error GoTo erreur
If Dir("a:\.") <> "" Then detect_disquette = True
Exit Function
erreur:
detect_disquette = False
End Function
Cordialement
CanisLupus
Stan62970
Messages postés
48
Date d'inscription
mercredi 26 mai 2004
Statut
Membre
Dernière intervention
20 septembre 2006
3 juin 2004 à 22:39
3 juin 2004 à 22:39
Ok ! la g compri ca marche!
Merci et a la prochéne!
Salut. ;)
Merci et a la prochéne!
Salut. ;)
