you can read description of an extension in registry...
this read folders description: Microsoft.Win32.Registry.GetValue("HKEY_CLASSES_ROOT\Directory", "", "").ToString
this read all files in a folder and give its description: For Each doc As String In IO.Directory.GetFiles("Path") Dim s As String = Microsoft.Win32.Registry.GetValue("HKEY_CLASSES_ROOT\" & IO.Path.GetExtension(doc), "", "").ToString Debug.WriteLine(Microsoft.Win32.Registry.GetValue("HKEY_CLASSES_ROOT\" & s, "", "").ToString) Next
|