Hi Jon-jon,
This isn't easy to do through code. One way is to find a third-party
component that allows you to do it more easily. Another is to do it
yourself with the ADsSecurity.DLL component from MS:
http://support.microsoft.com/default...b;en-us;279682
But the best way IMO, if you can do it, is to set the necessary permissions
on a container folder, then any folder you create under that should inherit
the same security settings.
--
Regards,
Jake Marx
MS MVP - Excel
JON-JON wrote:
Dear Expert,
I created a macro that will create a folder that will be the
container for our monthly report. Is it possible to set the folders
permission using macro. I am using Office XP, OS XP and I am member
of a domain (user-level access).
TIA
Jon-jon
Sub PL01_SetupFolder()
RepDate = LastMonEnd()
MkDir "C:\Report\" & Format(RepDate, "mmm yy")
MkDir "C:\Report\" & Format(RepDate, "mmm yy") & "\DIVISION 1 " &
Format(RepDate, "mmm yy")
MkDir "C:\Report\" & Format(RepDate, "mmm yy") & "\DIVISION 2 " &
Format(RepDate, "mmm yy")
End Sub
Function LastMonEnd() As Date
Dim MonthNum As Integer
RepMonNum = Month(Now()) - 1
Select Case RepMonNum
Case 2
LastMonEnd = DateSerial(Year(Now()), Month(Now()) - 1, 28)
Case 4, 6, 9, 11
LastMonEnd = DateSerial(Year(Now()), Month(Now()) - 1, 30)
Case 0
LastMonEnd = DateSerial(Year(Now()) - 1, 12, 31)
Case Else
LastMonEnd = DateSerial(Year(Now()), Month(Now()) - 1, 31)
End Select
End Function