What's Here?
- Members: 117,284
- Replies: 431,127
- Topics: 66,541
- Snippets: 2,391
- Tutorials: 630
- Total Online: 2,367
- Members: 62
- Guests: 2,305
Who's Online?
|
 Welcome to Dream.In.Code |
|
|
Getting VB.NET Help is Easy!
Join 117,284 VB.NET Programmers for FREE! Ask your question and get quick answers from experts. There are 2,367 online right now! We've got more than 500 tutorials and 2,000 snippets. Join and find out why Dream.In.Code is the #1 programming help community on the internet! Registration is fast and FREE... Join Now!
|
Not just the name, but the description as well
|
Submitted By: jacobjordan
|
|
|
Rating:
|
|
Views: 267 |
Language: VB.NET
|
|
Last Modified: July 1, 2008 |
|
Instructions: Use the GetExtention() function to load the list. |
Snippet
Function GetExtensions() As System.Collections.ObjectModel.Collection(Of Extension) Dim r As New System.Collections.ObjectModel.Collection(Of Extension)() For Each item As String In My.Computer.Registry.ClassesRoot.GetSubKeyNames() If item.Substring(0, 1) = "." Then Dim d As New Extension d.Name = item Try d.Description = My.Computer.Registry.ClassesRoot.OpenSubKey _ (My.Computer.Registry.ClassesRoot.OpenSubKey(item).GetValue("")).GetValue("") Catch End Try If d.Description = Nothing Then d.Description = "None" r.Add(d) End If Next Return r End Function Structure Extension Dim Name As String Dim Description As String End Structure
Copy & Paste
|
|
|
Reference Sheets
Bye Bye Ads
Free DIC T-Shirt
Related Sites
Monthly Drawing
Partners
Top Contributors
Top 10 Kudos This Month
|
| 