Как получить имя и путь к выделенному файлу

HotKeySet("{F11}",'_File_Name_Path') ;F11
HotKeySet("{ESC}", "_Exit")

While 1
Sleep(20)
WEnd

Func _File_Name_Path()

$FlNmPth = WinGetText("[ACTIVE]", "")

;$Txt_File = FileOpen(@ScriptDir & '\FileNamePath.txt', 2)
;$sText = 'Имя Файла ' & @CRLF & _
;         'Путь к файлу '
         
;FileWrite($Txt_File, $sText)
;FileClose($Txt_File)
MsgBox(0, "Имя и путь к выделенному файлу ",$FlNmPth)
Endfunc

Func _Exit()
    Exit
EndFunc

#include <Misc.au3>

While 1
	if _IsPressed('01') Then
		$GetSelected = ControlListView('[ACTIVE]', '', 'SysListView321', 'GetSelected')
		$GetSelectedText = ControlListView('[ACTIVE]', '', 'SysListView321', 'GetText', $GetSelected)
		MsgBox(0, '', $GetSelectedText)
	EndIf
WEnd

Func _File_Name_Path()

Send("{F2}") ;нажатие F2 создает активное окно - окно редактирования имени файла, текст из которого захватывает следующая функция

$FlNmPth = WinGetText("[ACTIVE]", "")

HotKeySet("{F11}", "_open")
HotKeySet("{ESC}","_exit")

While 1
    Sleep(100)
WEnd

Func _open()
    ClipPut("")
    Do
        Send("^c")
        Sleep(100)
    Until ClipGet() <> ""
    $str = ClipGet()
    ClipPut("")
    $afiles = StringSplit($str,@LF,3)
    If IsArray($afiles) Then
        For $i = 0 To UBound($afiles)-1
			$split = StringSplit($afiles[$i], '\')
			Run("notepad.exe")
			WinWait("[CLASS:Notepad]")
			ControlSetText("[CLASS:Notepad]", "", "Edit1", '1. Имя выделенного Файла: ' & $split[$split[0]] & @CRLF & "2. Путь к выделенному файлу: " & $afiles[$i])
        Next
    Else
        MsgBox(0,"Error","No files selected")
    EndIf
EndFunc   ;==>_open

Func _exit()
    Exit
EndFunc

HotKeySet("{F11}",'_File_Name_Path') ;F11
HotKeySet("{ESC}", "_Exit")

While 1
Sleep(20)
WEnd

Func _File_Name_Path()
Send("{F2}")
sleep(500)
$text= WinGetText("[ACTIVE]", "")
$array = StringSplit($text,Chr(10))
If $array[1]="FolderView" Then
$File_Name_Path=@DesktopDir&"\"&$array[UBound($array)-2]
MsgBox(0, "", $File_Name_Path)
Else
$File_Name_Path=$array[1]&"\"&$array[UBound($array)-2]
MsgBox(0, "", $File_Name_Path)
EndIf
Endfunc

Func _Exit()
    Exit
EndFunc

$Open = FileOpenDialog ( "Open file", @ScriptDir, "All (*.*)")
$filename=StringRegExp($Open,'(^.*)\\(.*)\.(.*)$',3)
MsgBox(0,"Path",$filename[0])
MsgBox(0,"Name file",$filename[1] & "." & $filename[2])

HotKeySet("{F11}", "_open")
HotKeySet("{ESC}","_exit")

While 1
    Sleep(100)
WEnd

Func _open()
    ClipPut("")
    Do
        Send("^c")
        Sleep(100)
    Until ClipGet() <> ""
    $str = ClipGet()
    ClipPut("")
    $afiles = StringSplit($str,@LF,3)
    If IsArray($afiles) Then
        For $i = 0 To UBound($afiles)-1
			$FileInfo = _PathSplitByRegExp($afiles[$i])
            Run("notepad.exe")
            WinWait("[CLASS:Notepad]")
            ControlSetText("[CLASS:Notepad]", "", "Edit1", '1. Исходный путь: ' & $FileInfo[0] & @CRLF & "2. Имя диска: " & $FileInfo[1] & @CRLF & '3. Путь без имени и расширения файла: ' & $FileInfo[2] & @CRLF & '4. Путь без расширения файла: ' & $FileInfo[3] & @CRLF & '5. Путь без имени диска: ' & $FileInfo[4] & @CRLF & '6. Имя и расширения файла: ' & $FileInfo[5] & @CRLF & '7. Имя файла: ' & $FileInfo[6] & @CRLF & '8. Только расширение: ' & $FileInfo[7])
        Next
    Else
        MsgBox(0,"Error","No files selected")
    EndIf
EndFunc   ;==>_open

Func _exit()
    Exit
EndFunc

;======================================================================================
;~ [0] = Исходный путь
;~ [1] = Имя диска
;~ [2] = Путь без имени и расширения файла
;~ [3] = Путь бз расширения файла
;~ [4] = Путь без имени диска
;~ [5] = Имя файла и его расширение
;~ [6] = Имя файла
;~ [7] = Только расширение файла
Func _PathSplitByRegExp($sPath)
    If $sPath = "" Or (StringInStr($sPath, "\") And StringInStr($sPath, "/")) Then Return SetError(1, 0, -1)

    Local $aRetArray[8], $pDelim = ""

    If StringRegExp($sPath, '^(?i)([A-Z]:|\\)(\\[^\\]+)+$') Then $pDelim = "\"
    If StringRegExp($sPath, '(?i)(^.*:/)(/[^/]+)+$') Then $pDelim = "//"

    If $pDelim = "" Then $pDelim = "/"
    If Not StringInStr($sPath, $pDelim) Then Return $sPath
    If $pDelim = "\" Then $pDelim &= "\"

    $aRetArray[0] = $sPath ;Full path
    $aRetArray[1] = StringRegExpReplace($sPath,  $pDelim & '.*', $pDelim) ;Drive letter
    $aRetArray[2] = StringRegExpReplace($sPath, $pDelim & '[^' & $pDelim & ']*$', '') ;Path without FileName and extension
    $aRetArray[3] = StringRegExpReplace($sPath, '\.[^.]*$', '') ;Full path without File Extension
    $aRetArray[4] = StringRegExpReplace($sPath, '(?i)([A-Z]:' & $pDelim & ')', '') ;Full path without drive letter
    $aRetArray[5] = StringRegExpReplace($sPath, '^.*' & $pDelim, '') ;FileName and extension
    $aRetArray[6] = StringRegExpReplace($sPath, '.*' & $pDelim & '|\.[^.]*$', '') ;Just Filename
    $aRetArray[7] = StringRegExpReplace($sPath, '^.*\.', '') ;Just Extension of a file

    Return $aRetArray
EndFunc