Página 1 de 1

Crear carpetas a partir de una lista de carpetas elegibles

Publicado: 15 Ago 2018, 23:54
por Fosforito
A ver si alguien me puede echar un cabo para :

script invocable con hotkey . Por ejemplo Win + Z
que proponga una lista de nombres de carpeta en la cual pueda hacer selección única o múltiple auxiliándome con las teclas shift y control para elegir de entre la lista.
La lista podría estar controlada en un archivo ini o en un txt.

De hecho tenía una aplicación en AHK que iba bien bajo windows 7, pero bajo windows 8.1 me ha dejado de funcionar.

Código: Seleccionar todo

#SingleInstance Force

; #if winactive("ahk_class CabinetWClass") pruebo con la alternativa de más abajo
SetTitleMatchMode, RegEx

#IfWinactive ahk_class (CabinetWClass|ExploreWClass)
{
;  #z:: ; prueba con otra a ver si está reservada en parte por el sistema w8.1
^+z:: ; pruebo con esta nueva combinación
  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:"%yyyy%", 7:"%MMyyyy%", 8:"Ver.hh.mm", 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:"Folder21",22:"INFO", 23:"Foros", 24:"Videos",25:"Formación",26:"Android", 27:"Windows", 28:"Consulta"}
    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
No soy programador, así que por mi mismo poco puedo hacer salvo adaptar un poco aquí y allá algún código.
Si conoces un script similar y me pones el enlace agradecido.