Объект Shell ► Application

Синтаксис:

Application

Возвращаемое значение: объект «IShellDispatch».

Замечание: только чтение.

Пример(Windows XP):

Set objShellApp = CreateObject("Shell.Application")
If objShellApp.Application.GetSetting(1) = 0 Then
    MsgBox "В ""Свойствах папки"" в проводнике установлен режим ""Не показывать скрытые файлы и папки""!", vbInformation
Else
    MsgBox "В ""Свойствах папки"" в проводнике установлен режим ""Показывать скрытые файлы и папки""!", vbInformation
End If