Y
Yeahou
Guest
Bonjour le forum
voici un petit problème sur lequel j'accroche :
j'ai un lecteur réseau connecté à un lettre de drive variable, je connais le chemin d'un dossier placé dessus sous la forme \\essai\essai2\essai3 et je désire récupérer la lettre de lecteur utilisée.
J'ai essayé
Sub essai()
Dim fs, fs2, f, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("\\essai\essai2\essai3")
MsgBox "Lecteur : " & f.drive
Set fs2 = CreateObject("Scripting.FileSystemObject")
Set d = fs2.GetDrive(fs2.GetDriveName(f.drive))
s = "Lettre de lecteur : " & d.driveletter
MsgBox s
End Sub
avec f.drive, je récupére bien le lecteur mais je n'arrive pas à récupérer la lettre de lecteur avec driveletter, ce qui est anormal, mon lecteur étant bien associé à une lettre et étant mappé comme tel, je peux d'ailleurs récupérer les autres infos.
D'avance merci à ceux qui pourront éclairer ma lanterne
voici un petit problème sur lequel j'accroche :
j'ai un lecteur réseau connecté à un lettre de drive variable, je connais le chemin d'un dossier placé dessus sous la forme \\essai\essai2\essai3 et je désire récupérer la lettre de lecteur utilisée.
J'ai essayé
Sub essai()
Dim fs, fs2, f, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("\\essai\essai2\essai3")
MsgBox "Lecteur : " & f.drive
Set fs2 = CreateObject("Scripting.FileSystemObject")
Set d = fs2.GetDrive(fs2.GetDriveName(f.drive))
s = "Lettre de lecteur : " & d.driveletter
MsgBox s
End Sub
avec f.drive, je récupére bien le lecteur mais je n'arrive pas à récupérer la lettre de lecteur avec driveletter, ce qui est anormal, mon lecteur étant bien associé à une lettre et étant mappé comme tel, je peux d'ailleurs récupérer les autres infos.
D'avance merci à ceux qui pourront éclairer ma lanterne