Equivalent du DriveListBox en VBA sur ACCESS

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Equivalent du DriveListBox en VBA sur ACCESS

nekikool1

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

Publicité

nekikool1

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

otobox

Maison fondée en 2005

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

nekikool1

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é

SuppotDeSaTante

Aka dje69r

Hello

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

Code :

Set fs = CreateObject("Scripting.FileSystemObject" )
Set dc = fs.Drives
For Each d In dc
typ = d.DriveType
Select Case d.DriveType
Case 0: t = " Inconnu"
Case 1: t = " Lecteur"
Case 2: t = " Disque Dur"
Case 3: t = " Réseau"
Case 4: t = " CDROM"
Case 5: t = " Disque"
End Select
s = s & d.DriveLetter & ": "
If d.DriveType = 3 Then
n = t & " " & d.ShareName
Else
n = t
End If
s = s & n & ";"
Next

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Equivalent du DriveListBox en VBA sur ACCESS

Sujets relatifs
Vba supprimer plusieurs lignes if then end if	Export d'une base ACCESS en csv avec php
requete access dans php	Problème de base de données Access
[VBA] Comment envoyer des mail automatiquement?	Update particulier ACCESS
Erreur code VBA sur Excel2007	Import 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

Page générée en 0.025 secondes