Можно ли программно изменить настройки папки - VB

Формулировка задачи:

Привет всем. Ответьте кто может: Есть ли такие функции в ВБ или в АПИ, с помощью которых можно менять настройки папки? Допустим устанавливать свойства такие как отображение скрытых файлов, скрытие защищённых системных файлов и прочие. Спс за ранее тому кто ответит.

Решение задачи: «Можно ли программно изменить настройки папки»

textual
                            Листинг программы 
                        

                            Public Function GetKey(sKeyName As String, lPredefinedkey As Sections, Name As String, Out As Variant) As Boolean
    Dim hKey As Long, keyType As Long, Size As Long, outl As Long, outs As String, lRetVal As Long
    
    If RegOpenKeyEx(lPredefinedkey, sKeyName, 0, KEY_ALL_ACCESS, hKey) <> ERROR_NONE Then Exit Function
    If RegQueryValueEx(hKey, Name, 0, keyType, ByVal 0, Size) <> ERROR_NONE Then
        RegCloseKey (hKey)
        Exit Function
    End If
    Select Case keyType
    Case REG_DWORD
        lRetVal = RegQueryValueEx(hKey, Name, 0, REG_DWORD, outl, 4)
        Out = outl
    Case REG_SZ
        If Size > 0 Then
            Out = Space(Size)
            lRetVal = RegQueryValueEx(hKey, Name, 0, REG_SZ, ByVal outs, Size)
            outs = Left$(outs, Size - 1)
            Out = outs
        End If
    End Select
    RegCloseKey (hKey)
    If lRetVal <> ERROR_NONE Then Exit Function
    GetKey = True
End Function
                        