Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1880 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Equivalent du DriveListBox en VBA sur ACCESS

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Equivalent du DriveListBox en VBA sur ACCESS

n°1987737
nekikool1
Posté le 26-04-2010 à 19:02:29  profilanswer
 

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 ^^)

mood
Publicité
Posté le 26-04-2010 à 19:02:29  profilanswer
 

n°1987743
nekikool1
Posté le 26-04-2010 à 19:46:36  profilanswer
 

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é ?

n°1987770
otobox
Maison fondée en 2005
Posté le 26-04-2010 à 22:43:42  profilanswer
 

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
n°1987776
nekikool1
Posté le 26-04-2010 à 22:58:58  profilanswer
 

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é

n°1987969
dje69r
Arme de distraction massive
Posté le 27-04-2010 à 12:14:38  profilanswer
 

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


---------------
C'est en voulant jouir de notre liberté aujourd'hui que nous allons la perdre demain

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Equivalent du DriveListBox en VBA sur ACCESS

 

Sujets relatifs
Vba supprimer plusieurs lignes if then end ifExport d'une base ACCESS en csv avec php
requete access dans phpProblème de base de données Access
[VBA] Comment envoyer des mail automatiquement?Update particulier ACCESS
Erreur code VBA sur Excel2007Import CommonDialog + Export daté Access (Help)
Liste déroulante VBA[VBA] remplir une colonne excel avec une variable tableau
Plus de sujets relatifs à : Equivalent du DriveListBox en VBA sur ACCESS


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR