Accueil > > > RÉCUPÉRER LES LECTEURS D'UN PC EN VBA. (LE DRIVELISTBOX DU VB)
RÉCUPÉRER LES LECTEURS D'UN PC EN VBA. (LE DRIVELISTBOX DU VB)
Information sur la source
Description
L'objectif de ce code est de récupérer la liste complète des lecteurs d'un PC.
Source
- Sub Prog_recherche_lecteurs()
-
- Dim Obj_FSO
-
- On Error Resume Next
-
- ' Créer une instance du FSO (Objet système de fichiers)
- Set Obj_FSO = CreateObject("Scripting.FileSystemObject")
-
- 'Parcourir tous les objets lecteurs du PC.
- For Each drvValue In Obj_FSO.Drives
- 'Ne pas tenir compte du lecteur A sinon il cherche quelques secondes pour trouver
- 'une disquette (Ca ralentie et c'est bruyant).
- If drvValue.DriveLetter <> "A" Then
- 'Regarder si le lecteur est disponible
- If drvValue.Isready Then
- 'Le lecteur est disponible alors, ajouter son nom dans la liste de ComboBox1 avec en plus ":\"
- 'au bout du nom pour pouvoir l'utiliser plus facilement dans un programme complet.
- ComboBox1.AddItem drvValue.DriveLetter & ":\"
- End If
- End If
- Next
-
- ' Libérer les objets
- Set Obj_FSO = Nothing
-
- End Sub
Sub Prog_recherche_lecteurs()
Dim Obj_FSO
On Error Resume Next
' Créer une instance du FSO (Objet système de fichiers)
Set Obj_FSO = CreateObject("Scripting.FileSystemObject")
'Parcourir tous les objets lecteurs du PC.
For Each drvValue In Obj_FSO.Drives
'Ne pas tenir compte du lecteur A sinon il cherche quelques secondes pour trouver
'une disquette (Ca ralentie et c'est bruyant).
If drvValue.DriveLetter <> "A" Then
'Regarder si le lecteur est disponible
If drvValue.Isready Then
'Le lecteur est disponible alors, ajouter son nom dans la liste de ComboBox1 avec en plus ":\"
'au bout du nom pour pouvoir l'utiliser plus facilement dans un programme complet.
ComboBox1.AddItem drvValue.DriveLetter & ":\"
End If
End If
Next
' Libérer les objets
Set Obj_FSO = Nothing
End Sub
Conclusion
Ce code à été développé en VBA pour Autocad. Il utilise le Scripting Runtime (Objet système de fichiers). Le problème que j'ai rencontré avec VBA, c'est qu'il n'existe pas le contrôle DriveListBox comme en Visual Basic. J'ai donc cherché à le remplacer par ce code.
Historique
- 21 janvier 2007 19:30:35 :
- Niveau débutant comme on me l'a justement signalé
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Controles DriveListBox DirListBox FileListBox dans VBA [ par yakcutter ]
Je voudrai savoir comment utiliser les controles standards DriveListBox, DirListBox et FileListBox de Visual Basic dans VBA.Merci d'avance
Imprimer un fichier autocad voir pdf depuis le vba d'access?? [ par ron ]
Comment pourrais je ouvrir un fichier autocad voir au pire pdf de access en utilsant le code vba ??
Drivelistbox - Dirlistbox sous access en vba [ par Ttof77 ]
Bonjour,Je suis actuellement en stage de développement sous access 2000, et je désirerais savoir s'il est possible d'insérer une DriveListBox une DirL
Drivelistbox - Dirlistbox sous access en vba [ par Ttof77 ]
Bonjour,Je suis actuellement en stage de développement sous access 2000, et je désirerais savoir s'il est possible d'insérer une DriveListBox une DirL
Drivelistbox - Dirlistbox sous access en vba [ par Ttof77 ]
Bonjour,Je suis actuellement en stage de développement sous access 2000, et je désirerais savoir s'il est possible d'insérer une DriveListBox une DirL
Connexion SQL server via VBA AutoCAD [ par GGN ]
Salut,Je cherche à me connecter à une base SQL Server 7 par l'intermèdiaire du VBA d'autoCAD afin de récuperer des données pour remplir des attributs
Type d'objet ss VBA AutoCAD ... [ par Talere ]
Bonjour,Je cherche à récuprer le type d'une variable issue d'AutoCAD. Effectivement, sa classe est AcadEntity mais je voudrais savoir quel type est-ce
EXECUTER UN SCRIPT AUTOCAD APRES LANCEMENT A PARTIR DE VBA WORD [ par SEI_AIX ]
Bonjour à tous,Débutant, cherche porgramme pour éxécuter automatiquement un ou des scripts autocad, une fois avoir lancer aut
RGB avec VBA-AUTOCAD [ par raftanelle ]
RGB avec VBA-AUTOCADBonjours.Je ne parviens pas à colorier une ligne créer comme suit :Set lineObj = ThisDrawing.ModelSpace.AddLine(PointD&#
drivelistbox [ par yeyedeb ]
Bonjour,est-il possible, dans une DriveListBox, d'afficher le nom entier des lecteurs, et du titre des CDROM.Par exemple, dans mon appli, j'ai les lec
|
Derniers Blogs
ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|