• 0

[VB.NET] Get File type by extension


Question

Hello gang,

Writing a little app to help users to create projects of files related to other files (rather simple, I know) and while I can get the associated icon via the "ExtractAssociatedIcon" function I cannot find a way to get the File's document type by it's association. For example if you look at the status bar of the Windows Explorer you can see "Adobe Photoshop Image" when I select a PSD file.

Any ideas?

post-45653-0-70870700-1305577789.jpg

Link to comment
https://www.neowin.net/forum/topic/997870-vbnet-get-file-type-by-extension/
Share on other sites

7 answers to this question

Recommended Posts

  • 0
  On 17/05/2011 at 11:30, mute~ said:

Is this of any help?

Private Function lol(ByVal extension As String) As String
        Dim readValue As String
        readValue = My.Computer.Registry.GetValue _
        ("HKEY_CLASSES_ROOT\" & extension, "", "ExtensionNotFound")
        Return readValue
End Function

Thanks, that kind of works, I was hoping for a native function as this returns a badly formatted string. eg: ".doc" returns "Word.Document.8"

But thanks, it is something. Have a great day.

  • 0
  On 17/05/2011 at 12:32, jameswjrose said:

Thanks, that kind of works, I was hoping for a native function as this returns a badly formatted string. eg: ".doc" returns "Word.Document.8"

But thanks, it is something. Have a great day.

Yeah sorry, best I could think of while trying to navigate ;)

Will have a think about it when I get back on Monday if no-one has solved it before then.

  • 0
  On 18/05/2011 at 11:34, mute~ said:

Yeah sorry, best I could think of while trying to navigate ;)

Will have a think about it when I get back on Monday if no-one has solved it before then.

Please, do not apologize. Thank you very much for an answer! Have a great week.

  • 0
  On 17/05/2011 at 12:32, jameswjrose said:

Thanks, that kind of works, I was hoping for a native function as this returns a badly formatted string. eg: ".doc" returns "Word.Document.8"

But thanks, it is something. Have a great day.

Then use that string to get it, eg HKEY_CLASSES_ROOT\Word.Document.8 and it has "Microsoft Office Word 97 - 2003 Document" as the default value.

  • Like 1
  • 0

Hi,

Managed to find some free time, hope this is more helpful:

    Public Shared Function GetFileExtType(ByVal fileExtension As String) As String
        Dim FileExtensionName As String = ""

        For Each subKey As String In Registry.ClassesRoot.GetSubKeyNames()
            If String.IsNullOrEmpty(subKey) Then
                Continue For
            End If

            If subKey.CompareTo(fileExtension) = 0 Then
                Dim defaultValue As String = Registry.ClassesRoot.OpenSubKey(subKey).GetValue("").ToString()

                If defaultValue.Length = 0 Then
                    Exit For
                End If

                If FileExtensionName.Length = 0 Then
                    FileExtensionName = defaultValue
                    fileExtension = FileExtensionName
                Else
                    If defaultValue.Length > 0 Then
                        FileExtensionName = defaultValue
                    End If
                    Exit For
                End If
            End If
        Next
        Return FileExtensionName
    End Function

  • 0
  On 19/05/2011 at 19:01, mute~ said:

Hi,

Managed to find some free time, hope this is more helpful:

    Public Shared Function GetFileExtType(ByVal fileExtension As String) As String
        Dim FileExtensionName As String = ""

        For Each subKey As String In Registry.ClassesRoot.GetSubKeyNames()
            If String.IsNullOrEmpty(subKey) Then
                Continue For
            End If

            If subKey.CompareTo(fileExtension) = 0 Then
                Dim defaultValue As String = Registry.ClassesRoot.OpenSubKey(subKey).GetValue("").ToString()

                If defaultValue.Length = 0 Then
                    Exit For
                End If

                If FileExtensionName.Length = 0 Then
                    FileExtensionName = defaultValue
                    fileExtension = FileExtensionName
                Else
                    If defaultValue.Length > 0 Then
                        FileExtensionName = defaultValue
                    End If
                    Exit For
                End If
            End If
        Next
        Return FileExtensionName
    End Function

Thanks, you're too kind. It works perfectly.

If you care, here is the app it is going into: Blissgig.com: b.Link

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • Of course the sales are bad. Who even asked for a thinner phone with way less battery? Lightness? It's still a giant brick, it's just a thinner giant brick. It makes no sense at all. Making folding phones thinner, now that does make sense. Because when folded, the thinner it is unfolded, the more usable and pocketable it is when folded. You already expect worse battery at expense of actually being more pocketable. Galaxy Flip, when folded is half the size of S Ultra models and about as thick. That does make a big difference when fitting it in a pocket. But the phone that's as big as Ultra, making it thinner, you don't really solve anything, it's still a giant slab that barely fits into a pocket. All the "Mini" phones made way more sense than this thin crap. Especially now that it's literally impossible to find a phone smaller than 6.5". My dad only needs phone for calls and SMS and he doesn't want to go with smartphone because they are all so massive. Especially cheaper ones. Like, he'd be fine with Galaxy A06 for all he cares in terms of hardware, but it only comes in giant 6.7" format. It's useless. Or is he suppose to find a 800€ old gen iPhone Mini or Zenfone? He doesn't even need those stupid specs and such stupid price. And then you see old people fumbling around with giant smartphones and they don't even need 3/4 of features on them.
    • its funny now instead of robots built for a specific task which is more efficient we are focused on humanoid robots that are built for do anything but might not do it as well because of restrictions similar to how human body works and they were molded after...
    • 3,900 mAh. When compared to the S25 Ultra (5,000), the S25+ (4,900) and the S25 (4,000), it has the worst battery of them all, all because of that slim size. Everything comes with sacrifices.
  • Recent Achievements

    • First Post
      emptyother earned a badge
      First Post
    • Week One Done
      Crunchy6 earned a badge
      Week One Done
    • One Month Later
      KynanSEIT earned a badge
      One Month Later
    • One Month Later
      gowtham07 earned a badge
      One Month Later
    • Collaborator
      lethalman went up a rank
      Collaborator
  • Popular Contributors

    1. 1
      +primortal
      671
    2. 2
      ATLien_0
      272
    3. 3
      Michael Scrip
      218
    4. 4
      +FloatingFatMan
      165
    5. 5
      Steven P.
      163
  • Tell a friend

    Love Neowin? Tell a friend!