[ perolozac123 @ 09.02.2009. 12:13 ] @
Moze li mi ko reci gde gresim
Inace pokusavam da stavim zabranu na brisanje jednog foldera, tako da ako neko zna bolji nacin bio bi mu jako zahvalan :)

Code:

Dim path As String = My.Application.Info.DirectoryPath & "\aaa"

        Dim dInfo As New DirectoryInfo(path)
        Dim dSecurity As DirectorySecurity = dInfo.GetAccessControl

        dSecurity.AddAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.Delete, AccessControlType.Allow))
        dInfo.SetAccessControl(dSecurity)