Пример кода которыи открывает 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 на несколько фаилов в одном окне.Как если бы в file system пометить 3 фаила к примеру и поити в их properties
Тогда открывается 1 окно и за 1 раз можно сделать все фаилы read only

1. Выбранные фаилы могут находиться в разных папках и даже на разных компьютерах
2. Функциональность которая показывает properties 1 доцумента уже существует поэтому что бы сохранять единую линию нужно добавить эту штуку:(