Set oFolder = CreateObject("Shell.Application").NameSpace("C:\")
MsgBox oFolder.ParseName("Scrat's Continental Crack Up_h1080p Part 2.lnk").IsLink
Set Items = oFolder.Items
Items.Filter 78064, "Scrat's Continental Crack Up_h1080p Part 2.mkv"
MsgBox Items.Count
If Items.Count Then MsgBox Items.Item(0).IsLink
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
Этот что покажет?:
