creature_ws
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Верно, в скрипте недочёт. Первоначальный вариант должен был выглядеть так:
Код:
; Для AHK_L Unicode
; Скопировать скрипт в папку с ярлыками
#SingleInstance force
#KeyHistory 0
#NoEnv
SetBatchLines -1
FileEncoding, utf-8
Process, Priority,, High
SetWorkingDir, % A_ScriptDir
; задать старый путь к папке с каталогами приложений
old = C:\
; задать новый путь
new = D:\
Loop, %A_WorkingDir%\*.lnk
{
FileGetShortcut, % A_LoopFileName , CurrentTarget, CurrentDir, Args, Description, CurrentIcon, IconNum, RunState
StringReplace, NewTarget, CurrentTarget, %old%, %new%
StringReplace, NewWorkingDir, CurrentDir, %old%, %new%
StringReplace, NewIconFile, CurrentIcon, %old%, %new%
FileCreateShortcut, % NewTarget, % A_LoopFileName, % NewWorkingDir, % Args, % Description, % NewIconFile,, % IconNum, % RunState
}
|
Вариант с корректной обработкой подпапок — так:
Код:
; Для AHK_L Unicode
; Скопировать скрипт в папку с ярлыками
#SingleInstance force
#KeyHistory 0
#NoEnv
SetBatchLines -1
FileEncoding, utf-8
Process, Priority,, High
SetWorkingDir, % A_ScriptDir
; задать старый путь к папке с каталогами приложений
old = C:\
; задать новый путь
new = D:\
Loop, %A_WorkingDir%\*.lnk,,1
{
FileGetShortcut, % A_LoopFileName , CurrentTarget, CurrentDir, Args, Description, CurrentIcon, IconNum, RunState
StringReplace, NewTarget, CurrentTarget, %old%, %new%
StringReplace, NewWorkingDir, CurrentDir, %old%, %new%
StringReplace, NewIconFile, CurrentIcon, %old%, %new%
FileCreateShortcut, % NewTarget, % A_LoopFileFullPath, % NewWorkingDir, % Args, % Description, % NewIconFile,, % IconNum, % RunState
}
|
|
