
GetFileDescription – Retrieving the description of a file from the registry
‘ Retrieves the description of a file from the registry’ or a null string if the file’s extension isn’t registered’ Example: Debug.WriteLine(GetFileDescription(“D: yc.zip”))Function GetFileDescription(ByVal filePath As String) As String ‘ get the classname from the registry Dim regKey As Microsoft.Win32.RegistryKey Try regKey = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey( New _ System.IO.FileInfo(filePath).Extension) If Not regKey