Flasher

|
Posted: Fri Jun 17, 2016 19:42 Post subject: |
|
|
sibirnik
В этом скрипте заменить 5 снизу строку на: Code: | Folder = FSO.BuildPath(WSH.CurrentDirectory, Replace(Now, ":", "-")) & "\"
If Not FSO.FolderExists(Folder) Then FSO.CreateFolder Folder
F = Folder & FSO.GetBaseName(Name) : FN = F & "." & Ext | Чтобы не было перехода, последнюю закомментировать или удалить. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Fri Jun 17, 2016 20:22; edited 1 time in total |
|