VB+ WMI problème list

VB+ WMI problème list - VB/VBA/VBS - Programmation

Marsh Posté le 22-01-2004 à 11:49:04    

Private Sub Form_Load()
strComputer = "."
 
Dim objSWbemServices
Dim colSWbemObjectSet
 
Set objSWbemServices = GetObject("winmgmts:\\" & strComputer)
Set colSWbemObjectSet = objSWbemServices.InstancesOf("Win32_LogicalDisk" )
 
For Each objSWbemObject In colSWbemObjectSet
    List1.AddItem (objSWbemObject.DeviceID)
Next
End Sub
 
Private Sub List1_Click()
 
Dim objWMIService
Dim colSubFolders
Dim objFolder
Dim Tempo
strComputer = "."
List2.Clear
 
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colSubFolders = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='C:'} " _
        & "WHERE AssocClass = Win32_Subdirectory " _
            & "ResultRole = PartComponent" )
For Each objFolder In colSubFolders
    List2.AddItem (objFolder.Name)
Next
End Sub
-----------------------------------------------------------------
Voici le code d'un prog qui afficher les disques durs d'un PC et lorsqu'on clique sur un de ceux(ils sont dans List1), le contenu du disque dur s'affiche dans la List2.
 
Problème -->
------------
 Dans la fonction : Private Sub List1_Click()
 
Dans ce Set:  
Set colSubFolders = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='C:'} " _
        & "WHERE AssocClass = Win32_Subdirectory " _
            & "ResultRole = PartComponent" )
 
A la place de 'C:' j'aimerais bien mettre l'élément que j'ai cliquer dans ma List1 c'est à dire List1.Text et bien ca ne marche pas qqu'un sait pkoi ???
 
Merci ++ Tom Sawyer  

Reply

Marsh Posté le 22-01-2004 à 11:49:04   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed