' 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


GPU-Accelerated 5G in Japan
NTT DOCOMO, a global telecommunications giant, is set to break new ground in the industry as it prepares to launch a GPU-accelerated 5G network in