Flasher

|
Posted: Tue Jan 24, 2017 11:21 Post subject: |
|
|
Значит, на XP нет этого свойства. Проверь на всякий с правильным путём:
Code: | Arch = "C:\Тест\Arch.zip"
MsgBox CreateObject("Shell.Application").NameSpace(Arch).Items.Item(0).ExtendedProperty("System.SFGAOFlags") |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|