Equivalent du DriveListBox en VBA sur ACCESS

Equivalent du DriveListBox en VBA sur ACCESS - VB/VBA/VBS - Programmation

Marsh Posté le 26-04-2010 à 19:02:29    

Salut, je programme avec l'éditeur VBA d'Access, et j'aimerais créer une liste déroulante qui me montre la liste des disques durs, en VB j'utilisais l'outil DriveListBox, mais là je ne le trouve pas.
Comment procéder ?  
Merci
 
(le but est de créer un mini explorateur intégré au programme, pour aller chercher tout fichier qui m'intéresse, un "ouvrir" quoi ^^)

Reply

Marsh Posté le 26-04-2010 à 19:02:29   

Reply

Marsh Posté le 26-04-2010 à 19:46:36    

Dans l'idéal, si vous aviez un code déjà tout prêt, niveau débutant que je pourrais décortiquer et arranger à ma sauce ce serait super :). J'imagine quand même que certains se sont heurtés à ce problème ! A moins qu'il y ait un outil magique de VBA que j'ai zappé ?

Reply

Marsh Posté le 26-04-2010 à 22:43:42    

Regarde du coté du FileSystemObject


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 26-04-2010 à 22:58:58    

Ouais, je suis entrain de voir ça. C'est chiant à utiliser (notamment faut penser à activer la référence MSR, sinon ça ne veut pas).
Si j'y pense, je posterai la solution quand j'aurais tout bien fignolé

Reply

Marsh Posté le 27-04-2010 à 12:14:38    

Hello
 
Avec quelquechose comme ca tu devrais pouvoir t'en sortir :

Code :
  1. Set fs = CreateObject("Scripting.FileSystemObject" )
  2.     Set dc = fs.Drives
  3.    
  4.     For Each d In dc
  5.     typ = d.DriveType
  6.     Select Case d.DriveType
  7.         Case 0: t = " Inconnu"
  8.         Case 1: t = " Lecteur"
  9.         Case 2: t = " Disque Dur"
  10.         Case 3: t = " Réseau"
  11.         Case 4: t = " CDROM"
  12.         Case 5: t = " Disque"
  13.     End Select
  14.        
  15.         s = s & d.DriveLetter & ": "
  16.         If d.DriveType = 3 Then
  17.             n = t & " " & d.ShareName
  18.         Else
  19.             n = t
  20.         End If
  21.         s = s & n & ";"
  22.        
  23.     Next


---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

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