Set Folder permission by macro
 

I am also interested in the ability to change folder permissions.

My needs are to add and delete names. And to print out the list.

I would appreciate input on this.

--
sb
"JON-JON" wrote in message
...
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