Person_Array := {}
for index, element in Array_folder 
{
    file_name := RegExReplace(element, ".+\\(.+)\.*.{0}", "$1")
    Person_Array[File_name] := element 

    Gui, Add, Button, gGetName x+100 y10, % file_name
}
Gui, Show, , ***
return  
       
GetName:
GuiControlGet, var,, % A_GuiControl
gui,destroy

msgbox, % Person_Array[var] "_" var

Folder := A_Desktop "\Test\" TimeString 

Array_folder := [] 
Loop, Files, % Folder "\*", D
{
   if A_LoopFileAttrib not contains H
      Array_folder.Push(A_LoopFileFullPath)
}

Gui, +ToolWindow  +AlwaysOnTop 
Gui, Font, s15 italic

arr := []
for index, element in Array_folder {
   Gui, Add, Button, gGetName hwndhButton%A_Index%, % RegExReplace(element, ".+\\(.+)\.*.{0}", "$1")
   arr[hButton%A_Index%] := element
}

Gui, Show, , ***
return  
    
GetName(hwnd) {
   global arr
   Gui, %A_Gui%:+OwnDialogs
   MsgBox, % arr[hwnd]
}

Folder := % A_Desktop "\Test\" TimeString 

Array_folder := [] 
Loop, Files, % Folder "\*", DR
{
   if A_LoopFileAttrib not contains H
           Array_folder.Push(A_LoopFileFullPath)
}

Gui, +ToolWindow  +AlwaysOnTop 
Gui, Font, s15 italic

for index, element in Array_folder 
  Gui, Add, Button, gGetName, % RegExReplace(element, ".+\\(.+)\.*.{0}", "$1")

Gui, Show, , ***
return  
    
GetName:
GuiControlGet, var,, % A_GuiControl
Gui,destroy
MsgBox % var 
return