'/**
' * Gibt die Programmbeschreibung der Datei aus
' * @example    debug.print getFileTypeDescription("help.chm")
' *             -> Compiled HTML Help file
' * @param  String      Dateiname/Dateipfad
' * @return String      Beschreibung
' */
Public Function getFileTypeDescription(ByVal iFileName As String) As String
	Dim objReg      As Object
	Dim extension   As String
	Dim key         As String
	Dim fso         As New FileSystemObject
	Const HKEY_CLASSES_ROOT = &H80000000
	
	'Dateiendung auslesen
	extension = fso.GetExtensionName(iFileName)
	
	'Registry-Objekt anlegen
	Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
	
	'Key auslesen
	objReg.GetStringValue HKEY_CLASSES_ROOT, "." & extension, , key
	
	'Aufruf ausgeben
	objReg.GetStringValue HKEY_CLASSES_ROOT, key, , getFileTypeDescription
	
	'Registry-Objekt zerstören
	Set objReg = Nothing
	Set fso = Nothing
End Function