Post by Bertini » 08 Oct 2018, 14:57
Bertini wrote:burque505 wrote:Hola, Bertini, se puede usar este código como punto de partida:
Code: Select all
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn ; Enable warnings to assist with detecting common errors.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
InputBox, id, ID, ¿ID?
FormatTime, fecha, %A_Now%, dd·M·yyyy hh·mm ID·%id%
msgbox %fecha% y %id%
FileCreateDir, %A_ScriptDir%\%fecha%
Creará una nueva carpeta en la carpeta donde se encuentra el script.
Saludos,
burque505
Bertini ---> Gracias
Bertini ---> Hice algúnos cambios al código
Code: Select all
#NoEnv ;/* Recomendado para rendimiento y compatibilidad con futuras versiones de AutoHotkey. */
#Warn ;/* Habilitar las advertencias para ayudar a detectar errores comunes. */
SendMode Input ;/* Recomendado para nuevos scripts debido a su velocidad y confiabilidad superiores. */
SetWorkingDir %A_ScriptDir% ;/* Asegura un directorio de inicio consistente. */
Loop, 100
{
Longitud := 8
id := ""
Letras := "0123456789"
Loop % Longitud
{
String := Letras
Random R, -1, % StrLen(String)
StrLen(String=Longitud)
id .= SubStr(String, R, 1)
}
}
;/* InputBox, id, ID, ¿ID? */
FormatTime, fecha, %A_Now%, dd·M·yyyy hh·mm ID·%id%
msgbox %fecha% y %id%
FileCreateDir, %A_ScriptDir%\%fecha%
[quote="Bertini"][quote="burque505"]Hola, Bertini, se puede usar este código como punto de partida:
[code]#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn ; Enable warnings to assist with detecting common errors.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
InputBox, id, ID, ¿ID?
FormatTime, fecha, %A_Now%, dd·M·yyyy hh·mm ID·%id%
msgbox %fecha% y %id%
FileCreateDir, %A_ScriptDir%\%fecha%[/code]
Creará una nueva carpeta en la carpeta donde se encuentra el script.
Saludos,
burque505[/quote]
Bertini ---> Gracias[/quote]
Bertini ---> Hice algúnos cambios al código
[code]
#NoEnv ;/* Recomendado para rendimiento y compatibilidad con futuras versiones de AutoHotkey. */
#Warn ;/* Habilitar las advertencias para ayudar a detectar errores comunes. */
SendMode Input ;/* Recomendado para nuevos scripts debido a su velocidad y confiabilidad superiores. */
SetWorkingDir %A_ScriptDir% ;/* Asegura un directorio de inicio consistente. */
Loop, 100
{
Longitud := 8
id := ""
Letras := "0123456789"
Loop % Longitud
{
String := Letras
Random R, -1, % StrLen(String)
StrLen(String=Longitud)
id .= SubStr(String, R, 1)
}
}
;/* InputBox, id, ID, ¿ID? */
FormatTime, fecha, %A_Now%, dd·M·yyyy hh·mm ID·%id%
msgbox %fecha% y %id%
FileCreateDir, %A_ScriptDir%\%fecha%
[/code]