Usando o AutoHotkey:
!^n::
if WinActive("ahk_class Progman") or WinActive("ahk_class WorkerW") ; desktop
{
FileAppend,, %A_Desktop%\New Textfile.txt
Run, %A_Desktop%\New Textfile.txt
}
else
if WinActive("ahk_class CabinetWClass") ; explorer
{
for window in ComObjCreate("Shell.Application").Windows
try Fullpath := window.Document.Folder.Self.Path
FileAppend,, %Fullpath%\New Textfile.txt
Run, %Fullpath%\New Textfile.txt
}
return