Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

Solved

How to set/change folder permission in VB .NET 3.5

Posted on 2008-06-24

1 solution

Medium Priority

4,213 Views

Last Modified: 2013-11-26

Hi,

I am trying to change a folder (and all its sub folders and files) permission in Visual studio 2008 and VB .Net 3.5. Also I can not use windows AD as it is not implemented.

What is the best way to do this?

I have looked around and there is some information about setting file/folder permissions s but its all older stuff and I hear there is new way to do this in VS 2008. But I can not find it.

What I want to do it change a folder (and all files and sub files) permission to full access do stuff and then change it to read only and execute.

I am doing this using Visual Basic and .NET 3.5.

Thanks

Comment

Question by:soousky

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

4 Comments

LVL 11

Accepted Solution

by:melmers

melmers earned 500 total points

ID: 218720832008-06-25

Hi,

you can do this with .NET 2.0 functions.
Here an example to set the folder Permissions

I hope this helps

 'Needed imports
 Imports System.Security.AccessControl
 Imports System.IO
 
 'Code snippet
 Dim CurrentPath as String = "C:\TestPath"
 Dim UserName as String = "DOMAIN\MyUser" 
 
 Dim dInfo As New DirectoryInfo(CurrentPath)
 Dim dSecInfo As DirectorySecurity = dInfo.GetAccessControl(AccessControlSections.Access)
 Dim myRuleValue As Integer = 0
 
 myRuleValue =  FileSystemRights.FullControl   'Add your wanted Access here
 Dim myRule as FileSystemAccessRule
 myRule = New FileSystemAccessRule(UserName myRuleValue, InheritanceFlags.ContainerInherit Or InheritanceFlags.ObjectInherit Or InheritanceFlags.None, PropagationFlags.None, AccessControlType.Allow)
 dSecInfo.AddAccessRule(myRule)
 dSecInfo.SetAccessRule(myRule)
 dInfo.SetAccessControl(dSecInfo)

Open in new window

Author Closing Comment

by:soousky

ID: 314704112008-06-25

Thanks

LVL 3

Expert Comment

by:IUFITS

ID: 239830742009-03-25

Good code, just one comment, this line needs to have a comma after UserName:
myRule = New FileSystemAccessRule(UserName myRuleValue, InheritanceFlags.ContainerInherit Or InheritanceFlags.ObjectInherit Or InheritanceFlags.None, PropagationFlags.None, AccessControlType.Allow)
dSecInfo.AddAccessRule(myRule)
dSecInfo.SetAccessRule(myRule)
dInfo.SetAccessControl(dSecInfo)
Open in New Window Select All

Expert Comment

by:coolneip

ID: 354363352011-04-20

This worked great!

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Serialization in .NET - 3

Article by: Sandeep

In my previous two articles we discussed Binary Serialization (http://www.experts-exchange.com/A_4362.html) and XML Serialization (http://www.experts-exchange.com/A_4425.html). In this article we will try to know more about SOAP (Simple Object Acces…

.NET Programming

VBS script to start Windows Updates installation

Article by: Hector2016

If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.

Percona Server for MongoDB

Video by: Percona

In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB. How Percona can help Percona can help you determine if Percona Server for MongoDB is the right solution for …

What to do when PaperPort crashes, hangs, or fails to start

Video by: Joe

Please read the paragraph below before following the instructions in the video — there are important caveats in the paragraph that I did not mention in the video. If your PaperPort 12 or PaperPort 14 is failing to start, or crashing, or hanging, …