; Crear archivos de texto vacíos como comentarios en carpetas
; Autor Dylan904 del foro inglés de Autohotkey
#SingleInstance Force

#if winactive("ahk_class CabinetWClass")
{
  ; quito la combinación hotkey control-alt-z  ^!z:: , para poner la combinación win+y
  ; debido a que ctrl+alt+z la utilizamos junto con shift+ para volver al estado anterior
  #y::
  Gui, Destroy
  WinGet, WinID, ID, A
  ControlGetText, DesPath, Edit1, ahk_id %WinID%
  ; añado w400 para aumentar el ancho de la ventana
  ; perfecto lo de h300 . Me funciona bien y ya tengo la ventana más grande y preparada
  ; compara con copia (2) de Emptytxtfile.ahk para ver estado anterior.
  ; quito en la línea de abajo h300 porque obtengo error a la segunda vez.
  Gui, Add, ListView, r10 NoSort gChoose vChosenName h300 w400, File Name
   For A,B in {1:"Instrucciones.txt",2:"Instalar en mv.txt", 3:"Es mal portable. Instalar como no portable.txt", 4:"Instalado como portable.txt",

5:"Instalar cuando se pueda.txt", 6:"ReciboLLamadaAlas.proponer fecha hora.txt", 7:"Ver pantallazos.proponer fecha hora.txt", 8:"Ver grabaciones de la

fecha.proponer fecha sistema.txt", 9:"password   pegado del portapapeles.txt", 10:"Avira detecta virus. en parte a especificar.txt", 11:"File11.txt",

12:"Es un juego.txt", 13:"Es para entorno MAC Apple.txt", 14:"Tambien tienen versiones de pago.txt", 15:"No es buen portable.Instalado como

portable.txt",16:"No funcione en xp. es para w7 o sup.txt", 17:"Nuevo Notepad++ Document.txt",18:"Script AutoIt.au3",19:"Script Autohotkey.ahk", 20:"es un

trial de prueba.txt", 21:"File21.txt",22:"File22.txt", 23:"File23.txt", 24:"File24.txt",25:"File25.txt",26:"File26.txt"}
    LV_Add("",B)
  ; añado w420 intercalado entre las comas para aumentar el ancho de la ventana opciones
  ; me comentan de poner h300 en alguna parte inicio pruebas de ponerlo al lado
  Gui, Show, h300 w420, Choose File Name
  Return
 
  Choose:
  LV_GetText(ChosenName, A_EventInfo)
  Gui, Destroy
  FileAppend,, %DesPath%\%ChosenName%
  Sleep, 850
  While (ClipBoard != DesPath "\" ChosenName)
  {
    Send, % SubStr(ChosenName, 1, 1)
    Sleep, 15
    SendInput, ^c
    Sleep, 15
  }
  Return
}