$F10::
   window := list := ""
   
   oShell := ComObjCreate("Shell.Application")
   for item in oShell.Windows  {
      if WinExist("A") = item.Hwnd && window := item
         break
   }
   if !window  {
      MsgBox, Активное окно не является окном Проводника!
      Return
   }
   folderPath := window.Document.Folder.Self.Path
   Loop, Files, %folderPath%\*.*
      list .= (A_Index = 1 ? "" : "`n") . A_LoopFileName
   
   MsgBox, % list
   Return