Открыть properties нескольких фаилов - VB

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

Пример кода которыи открывает properties фаила
Public Function ShowProps(FileName As String, OwnerhWnd As Long) As Boolean
Dim SEI As SHELLEXECUTEINFO
Dim R As Long
With SEI
.cbSize = Len(SEI)
.fMask = SEE_MASK_NOCLOSEPROCESS Or _
SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
.hwnd = OwnerhWnd
.lpVerb = "properties"
.lpFile = FileName
.lpParameters = vbNullChar
.lpDirectory = vbNullChar
.nShow = 0
.hInstApp = 0
.lpIDList = 0
End With
R = ShellExecuteEX(SEI)
If R = 0 Then
ShowProps = False
Else
ShowProps = True
End If
End Function
Как можно открыть properties нескольких фаилов в одном окне
К примеру если хотят сделать много фаилов ReadOnly за 1 раз

Решение задачи: «Открыть properties нескольких фаилов»

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

                            <font color="blue">Dim</font> fso, f
 <font color="blue">Set</font> fso = CreateObject(<font color="teal">"Scripting.FileSystemObject"</font>)
 <font color="blue">Set</font> f = fso.GetFile(filePath)
 f.Attributes = <font color="darkblue"><b>1</b></font> 'ReadOnly
                        