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)
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)