' 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 Is Nothing Then ' read the file's class name Dim className As String = regKey.GetValue("") If className.Length > 0 Then Dim regKey2 As Microsoft.Win32.RegistryKey Try ' read the file type description regKey2 = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey _ (className) Return regKey2.GetValue("") Catch e As Exception Finally If Not regKey2 Is Nothing Then regKey2.Close() End Try End If End If Catch e As Exception Finally If Not regKey Is Nothing Then regKey.Close() End TryEnd Function

Why the World Needs More Technology Leadership
As a fact, technology has touched every single aspect of our lives. And there are some technology giants in today’s world which have been frequently opined to have a strong influence on recent overall technological influence. Moreover, those tech giants have popular technology leaders leading the companies toward achieving greatness.