Discussion :

[zit_zit]

bonjour a tous,

j'aimerais listé tous les lecteurs que j'ai c,d etc.. et lecteurs reseaux!!

mais il semblerai que ce ne soit pas possible sans passé par des Api en VBA.

je me trompe ou pas car je ne peu pas creer d'oject Drive ce qui est assez contraignant.

merci pour l'aide.

[Invité]

Bonjour

Je penses que la lecture de ce tuto http://warin.developpez.com/access/fichiers/#LI-B-2 de Christophe Warin devrait t'aider.

Une lecture du chapitre IB devrait te convenir.

Starec

[ouskel'n'or]

J'ai ça, inspiré de l'aide en ligne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub AfficheLettreLecteur()
    Dim fs, d, s
For i = 67 To 70 'je commence par C: mais on peut commencer par A => 65
    drvPath = Chr(i) & ":"
    on error resume next
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvPath))
    s = "Lecteur " & d.DriveLetter & ": - "
    s = s & d.VolumeName & vbCrLf
    s = s & "Espace disponible : " & FormatNumber(d.FreeSpace / 1024, 0)
    s = s & " Koctets"
    MsgBox s
    Set d = Nothing
Next
End Sub

A tout hasard...

[zit_zit]

merci bcp probleme résolu