#SingleInstance Force

#if winactive("ahk_class CabinetWClass")
{
  #z::
  Gui, Destroy
  WinGet, WinID, ID, A
  Gui, +LastFound
  HWND := WinExist()
  ControlGetText, DesPath, Edit1, ahk_id %WinID%
   Gui, Add, ListView, r10 NoSort vChosenName h300 w400, Folder Name
     For A,B in {1:"Prg1",2:"Prg2", 3:"Prg3", 4:"Prg4", 5:"Prg5", 6:"2012", 7:"07.2012", 8:"folder8", 9:"password", 10:"Avira", 11:"Folder11", 12:"Es un juego", 13:"MACApple", 14:"pago", 15:"portable",16:"Nofunc", 17:"Nuevo",18:"Script",19:"Autohotkey", 20:"trial", 21:"ENVIADOS",22:"RECIBIDOS", 23:"Folder23", 24:"Folder24",25:"Folder25",26:"Folder26"}
    LV_Add("",B)
    Gui, Add, Button, gChoose, Submit
   Gui, Show, h340 w420, Choose Folder Name
  Return
}

Choose:
ControlGet, List, List, Selected, SysListView321, ahk_id %HWND%
Gui, Destroy
Loop, Parse, List, `n
{
   If !FileExist(DesPath "\" A_LoopField)
      FileCreateDir, %DesPath%\%A_LoopField%
}
Return