Lisabon
Да что ж такое там мелкомягкие понакоцали...
Что покажет скрипт на файле/папке/ярлыке?
Code:
' Условие: Путь запуска пустой
' Параметр: %N
Set oFolder = CreateObject("Shell.Application").NameSpace(CreateObject("WScript.Shell").CurrentDirectory)
Set Items = oFolder.Items
Items.Filter 78064, Replace(WSH.Arguments(0), ";", "?")
MsgBox Items.Count
P = Items.Item(0).Path
MsgBox oFolder.ParseName(Mid(P,InStrRev(P, "\")+1)).IsLink
MsgBox Items.Item(0).IsLink
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Fri Feb 02, 2018 13:23; edited 5 times in total
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
Что покажет скрипт на файле/папке/ярлыке?
