Bonjour,
J'aimerais récupérer la lettre d'un disque dur par rapport à son nom de volume.
Merci d'avance
Bonjour,
J'aimerais récupérer la lettre d'un disque dur par rapport à son nom de volume.
Merci d'avance
[VBA]
'Afficher la lettre d'un lecteur par rapport à son nom de volume
Public Function lettre_lecteur(nom_volume As String)
Dim fs As Scripting.FileSystemObject
Dim d As Drive
Dim chemin As String
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
For Each d In fs.Drives
If d.VolumeName = nom_volume Then
chemin = d.DriveLetter
End If
Next
chemin = chemin & ":\"
End Function
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager