'/**
' * Gibt die "Befehlszeile" aus, mit der die Datei geöffnet wird
' * @example    debug.print getFileTypeCommand("help.chm")
' *             -> "C:\Windows\hh.exe" %1
' * @param  String      Dateiname/Dateipfad
' * @return String      Pfad mit der die Datei geöffnet wird
' */
Public Function getFileTypeCommand(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
	key = key & "\shell\Open\command"
	objReg.GetStringValue HKEY_CLASSES_ROOT, key, , getFileTypeCommand
	
	'Registry-Objekt zerstören
	Set objReg = Nothing
	Set fso = Nothing
End Function