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

' Set hidden attribute.
SetAttr("TESTFILE", vbHidden)   
' Set hidden and read-only attributes.
SetAttr("TESTFILE", vbHidden Or vbReadOnly)

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Private Const HKEY_LOCAL_MACHINE = -2147483646
Private Const REG_SZ = 1
 
Private Sub Command1_Click()
    Dim rc As Long
    Dim rs As String
 
    rs = """Путь_к_программе"""
    Call RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", rc)
    Call RegSetValueEx(rc, "MyProgram", 0, REG_SZ, rs, Len(rs) + 1)
    Call RegCloseKey(rc)
End Sub

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

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