Discussion :

[oazar]

Salut tout le monde...

Bon bah moi je voudrais savoir s'il est possible de savoir s'il y avait une disquette ds le lecteur("A:") .

J'avais pensé à mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
test = fs.DriveExists("A:")
MsgBox test

Mais il me renvoi vrai meme s'il n'y a pas de disquette inseré.

Si quelqu'un voit le probleme , ca serait cool de m'aider ... @++

[SpaceFrog]

Normal là tu teste la config matérielle de ton pc...
il faut faire un test en lecture ...

[oazar]

merci de m'avoir eclairé spacefrog, c'est sympa... mais je ne sais pas comment faire pour lire un disc

Alors j'ai fais ainsi et ca march pas mal ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
   On Error Resume Next
   fs.CreateFolder "A:\Test"
   If Err.Number = 71 Then
   MsgBox "Veuiller inserer une disquette"
   else 
   fs.DeleteFile "A:\Test"
   End If

Voila ... dis moi si tu as plus simple

[DarkVader]

Vérifie plutôt la mémoire disponible sur la disquette

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim fs As New FileSystemObject
Dim dr As Drive
Set dr = fs.Drives("A")
k = dr.FreeSpace
 
etc...

[oazar]

merci bien ... ca me donne ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
On Error Resume Next
Set dr = fs.Drives("A")
k = dr.FreeSpace
If Err.Number = 71 Then
MsgBox "Veuiller inserer une disquette"
End If

c'est vrai que c'est un peu mieu !