Discussion :

[ju89100]

Bonjour,

J'ai une macro qui me liste dans une liste déroulante les périphérique disponible sur mon ordi. Elle fonctionne très bien. En revanche elle ne prend pas en compte un Téléphone. Dans le poste de Travail le Tel apparait ainsi GT-I9100, et n'a donc pas de lettre.
comment faire apparaitre ce périphérique dans ma liste déroulante?

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
16
17
18
19
20
21
22
23
24
25
ublic Sub Peripherique()
'
Dim d As Object
Dim strTmp As String
'
strTmp = ""
'
With CreateObject("Scripting.FileSystemObject")
 For Each d In .Drives
    If d.drivetype < 4 Then
     strTmp = strTmp & d.Path & ("\") & "[" & d.volumename & "],"
    End If
  '
 Next
 '
End With
Set d = Nothing
'
With Range("Q1").Validation
 .Delete
 .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=strTmp
'
End With
'
End Sub

[clementmarcotte]

Bonjour,

Les lettres sont pour ce que MS-DOS, dans l'ancien temps, et Windows, aujourd'hui, considèrent comme des disques, même si ce ne sont pas de vrais disques à proprement parler, comme les cartes mémoires, les clefs USB ou les partitions d'un disque. En gros, un "disque", c'est quelque chose qui contient des fichiers.

[ju89100]

on est bien d'accord clementmarcotte, ça n'explique donc pas pourquoi un Téléphone ne prend pas de lettre. il y a pourtant des fichier dessus si l'on suis ta théorie

[clementmarcotte]

De toutes façons FSO date du temps où le téléphone était à roulette et était branché sur le port série.