Problema al actualizar a Windows 11
Posted: 28 Nov 2022, 14:21
Hola. Tengo un script por el que al pulsar F1 renombro las imágenes que guardo en una carpeta con el nombre de esa carpeta seguida de un número consecutivo. El script funcionaba perfectamente en Windows 10, pero al actualizar a Windows 11 ha dejado de funcionar. Os copio a continuación el script, por si alguien tiene idea de si hay que cambiar algo para que funcione en Windows 11. Saludos y gracias.
Code: Select all
#IfWinActive ahk_exe explorer.exe
SetBatchLines, -1
;-------------------------------hotkeys
F1::
;-------------------------------hotkeys
;--------------------------------labels
Renombrar_numerar:
if WinExist("ahk_class CabinetWClass"){
ControlGetText currentPath, ToolbarWindow323, ahk_class CabinetWClass
if (currentPath){
; pathActiveExplorer := SubStr(currentPath, 10) ;windows en Ingles
pathActiveExplorer := SubStr(currentPath, 12) ;windows en español
FindLast_rename_n(pathActiveExplorer)
}
}
Return
;--------------------------------labels
;--------------------------------Function
FindLast_rename_n(Ruta){
File := ""
TimeMod := ""
Loop, Files, %Ruta%\*.*,F
{
If (A_LoopFileTimeModified >= TimeMod)
{
TimeMod := A_LoopFileTimeModified ; the time the file was last modified
File := A_LoopFileFullPath ; the path and name of the file currently retrieved
}
totalFiles := A_Index
}
if (File){
SplitPath, Ruta, NameFolder
SplitPath, File, , , extFile,
nameForNewFile := Ruta "\" NameFolder " ("totalFiles ")." extFile
if (File != nameForNewFile){
FileMove, %File%, %nameForNewFile% ; Rename a single file.
}
}
Send, ^!1
}
;--------------------------------Function
#IfWinActive