Работа с файловой системой (системное название некоторых папок и работа со скрытыми документами) - VBA

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

Всем привет, подскажите каким образом можно из VBA сохранить документ txt в папке "Общие документы" и задать для него свойство "скрытый" или "системный", и при этом как в дальнейшем его открыть?

Решение задачи: «Работа с файловой системой (системное название некоторых папок и работа со скрытыми документами)»

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

                            Sub bb()
Dim objShell, objFSO, specialFolders$
 
'http://www.wisesoft.co.uk/scripts/vbscript_display_special_folder_locations.aspx
 
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
With objShell
    specialFolders = "Desktop: " & .specialFolders("Desktop") & vbCrLf & _
             "MyDocuments: " & .specialFolders("MyDocuments") & vbCrLf & _
             "Startmenu: " & .specialFolders("startmenu") & vbCrLf & _
             "AllUsersDesktop: " & .specialFolders("AllUsersDesktop") & vbCrLf & _
             "AllUsersStartMenu: " & .specialFolders("AllUsersStartMenu") & vbCrLf & _
             "AllUsersPrograms: " & .specialFolders("AllUsersPrograms") & vbCrLf & _
             "AllUsersStartup: " & .specialFolders("AllUsersStartup") & vbCrLf & _
             "Favorites: " & .specialFolders("Favorites") & vbCrLf & _
             "Fonts:" & .specialFolders("Fonts") & vbCrLf & _
             "NetHood: " & .specialFolders("NetHood") & vbCrLf & _
             "PrintHood: " & .specialFolders("PrintHood") & vbCrLf & _
             "Programs: " & .specialFolders("Programs") & vbCrLf & _
             "Recent: " & .specialFolders("Recent") & vbCrLf & _
             "SendTo: " & .specialFolders("SendTo") & vbCrLf & _
             "Startup: " & .specialFolders("Startup") & vbCrLf & _
             "Templates: " & .specialFolders("Templates")
End With
 
'***** Other Special Folders *****
 
specialFolders = specialFolders & vbCrLf & _
         "Windows: " & objFSO.GetSpecialFolder(0) & vbCrLf & _
         "System32: " & objFSO.GetSpecialFolder(1) & vbCrLf & _
         "Temp:" & objFSO.GetSpecialFolder(2)
 
 
Debug.Print specialFolders
End Sub
                        