#Requires AutoHotkey v2.0
#NoTrayIcon
;Mit Strg, Shift + M wird ein leeres Textfile erzeugt.
#HotIf ("ahk_class CabinetWClass")
^+m:: 
{
    WinID := WinGetID("ahk_class CabinetWClass")
    CurrentPath := GetPath(WinID)
    CreateFile(CurrentPath)
    return
}    
#HotIf

;Ermittelt den aktuellen Pfad
GetPath(_hwnd)
{
	for w in ComObject("Shell.Application").Windows
		if (w.hwnd = _hwnd)
		{
			path := StrReplace(w.LocationURL, "file:///")
			return StrReplace(path, "%20", " ")
		}
}

;Schreibt die Datei
CreateFile(path)
{
    file := path "/NewFile.txt"
    if FileExist(file)
    {
        MsgBox "NewFile.txt bereits vorhanden"
        return
    }
    FileAppend "", file
}