Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Advanced
May 19, 2003

DeleteFileAssociation - Deleting a file association

' Destroy a file association
Sub DeleteFileAssociation(ByVal extension As String)
    Const SHCNE_ASSOCCHANGED = &H8000000
    Const SHCNF_IDLIST = 0

    ' ensure that there is a leading dot
    If extension.Substring(0, 1) <> "." Then
        extension = "." & extension
    End If

    ' read the associated class name
    Dim regKey As Microsoft.Win32.RegistryKey
    Try
        regKey = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(extension)
        If Not regKey Is Nothing Then
            ' delete file's class name
            Dim className As String = regKey.GetValue("")
            If className.Length > 0 Then
                Microsoft.Win32.Registry.ClassesRoot.DeleteSubKeyTree(className)
            End If
        End If
    Catch e As Exception
    Finally
        If Not regKey Is Nothing Then regKey.Close()
    End Try
    Microsoft.Win32.Registry.ClassesRoot.DeleteSubKey(extension, False)

    ' notify Windows that file associations have changed
    SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0)
End Sub
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date