Синтаксис:
Parent
Возвращаемое значение: объект «IShellDispatch».
Замечание: только чтение.
Пример(Windows XP):
Set objShellApp = CreateObject("Shell.Application") If objShellApp.Parent.GetSetting(1) = 0 Then MsgBox "В ""Свойствах папки"" в проводнике установлен режим ""Не показывать скрытые файлы и папки""!", vbInformation Else MsgBox "В ""Свойствах папки"" в проводнике установлен режим ""Показывать скрытые файлы и папки""!", vbInformation End If
Если у Вас есть вопросы, жалобы или предложения по работе нашей компании, напишите нам Нам важно любое мнение. Спасибо.