قفل کردن پوشه ( بستن تنظیمات Permission )

[Fery666]

با سلام به همه دوستان عزیز .
می خواستم بدونم چجوری میشه وقتی ی پوشه ای رو که حالت Permission رو میبندی دیگه نتونه حذف یا اضافه کنه .

منظورم اینه که مثل پوشه ویندوز وقتی میرین : Properties --> تب Security رو میزنی بعد گزنه Edit رو میزنی Add با Remove خاموش هستش .
حالا با چه دستوری میشه این کار رو برای پوشه ای که قفل کردی درست کنی که کاربر نتونه دیگه پاک یا اضافه کنه .

ممنون میشم از دوستان کسی کمک کنه .

[xxnagin]

سلام
شما باید AccessControlType رو اگه روی allow بدی (در هر دو حالت باید روی full control قرار بدی) یعنی اجازه دسترسی به همه چیز داری
و اگه روی deny قرار بدی همین که شما میخواید هیچ دسترسی رو ندارید




اینم کدت


Dim FilePath As String = "H:\New Text Document.txt"
Dim UserAccount As String = My.User.Name
Dim FileInfo As New System.IO.FileInfo(FilePath)
Dim FileAcl As New FileSecurity()
FileAcl.AddAccessRule(New FileSystemAccessRule(UserAccount, FileSystemRights.FullControl, AccessControlType.Deny))
'FolderAcl.SetAccessRuleProtection(True, False) 'uncomment to remove existing permissions
FileInfo.SetAccessControl(FileAcl)

[Fery666]

سلام
شما باید AccessControlType رو اگه روی allow بدی (در هر دو حالت باید روی full control قرار بدی) یعنی اجازه دسترسی به همه چیز داری
و اگه روی deny قرار بدی همین که شما میخواید هیچ دسترسی رو ندارید




اینم کدت


Dim FilePath As String = "H:\New Text Document.txt"
Dim UserAccount As String = My.User.Name
Dim FileInfo As New System.IO.FileInfo(FilePath)
Dim FileAcl As New FileSecurity()
FileAcl.AddAccessRule(New FileSystemAccessRule(UserAccount, FileSystemRights.FullControl, AccessControlType.Deny))
'FolderAcl.SetAccessRuleProtection(True, False) 'uncomment to remove existing permissions
FileInfo.SetAccessControl(FileAcl)


دوست عزیز دستت درد نکنه . من این کار رو انجام میدم .
ولی کاربر می تونه بره توی قسمت Security فایل یا فولدر بعد اون گزینه Edit رو بزنه بعد این حالت دسترسی که به اسم یوزر ساختیم رو حذف کنه و فولدر یا فایل رو باز کنه .

حالا می خوام بعد از این کار گزینه Add با Remove رو خاموش کنه که نتونه حذف کنه .

نمیدونم راه دیگه ای برای فقل هست که از این امنیتش بیشتر باشه یا نه ؟؟

[Fery666]

کسی نیست که یه راهنمایی کوچوله کنه ؟؟

[systam]

سلام
من در این رابطه زیاد گشتم
همه میگن باید بشینی کد نویسی کنی
توی بخش سی شارپ پست به هخمین موضوع درست کردم چند تا از دوستان راهنمایی هایی کردن ببین بدردت میخوره
ولی پیگیرش هستم به نتیجه رسیدم خبرت میکنم اگه شما هم به نتیجه ای رسید من رو هم بی خبر نذارید


یا علی

[Fery666]

میخوام کاری کنم بعد از بستن تنظیمات Permission تب Security در Properties فولدر یا فایل ها به صورت عکسی که ضمیمه شده در بیاد .
یعنی بسته بشه دیگه نشه بازش کرد یا تنظیماتش رو عوض کرد .

[Fery666]

دوستان تا الان کسی برنامه ای یا روشی پیدا نکرده که وقتی وارد فولدر بشیم پیغام : Access is Denied بده .

خواهشا کمک کنید فقط روی این قسمت موندم .

[biyarjomandi]

من دقیقا نمی دونم باید چه کدی بنویسی ولی یکی از دوستان همین کار رو لازم داشت و تونست از طریق API های ویندوز این کار رو انجام بده .

[Fery666]

من دقیقا نمی دونم باید چه کدی بنویسی ولی یکی از دوستان همین کار رو لازم داشت و تونست از طریق API های ویندوز این کار رو انجام بده .

خوب اون دوستتون کی بود ؟؟
توی همین سایت اکانت داره ؟؟

خیلی احتیاج دارم به این کار .

[Fery666]

تبدیل این کدی که دوستمون گذاشته رو میخوام به vb6 تبدیل کنم .

باید چکار کنم ؟؟




Dim FilePath As String = "H:\New Text Document.txt"
Dim UserAccount As String = My.User.Name
Dim FileInfo As New System.IO.FileInfo(FilePath)
Dim FileAcl As New FileSecurity()
FileAcl.AddAccessRule(New FileSystemAccessRule(UserAccount, FileSystemRights.FullControl, AccessControlType.Deny))
'FolderAcl.SetAccessRuleProtection(True, False) 'uncomment to remove existing permissions
FileInfo.SetAccessControl(FileAcl)

[systam]

سلام
این صفحه رو ببین شاید بدردت بخوره (http://barnamenevis.org/showthread.php?423711-%D9%82%D9%81%D9%84-%DA%A9%D8%B1%D8%AF%D9%86-%D9%81%D8%A7%DB%8C%D9%84-%D9%87%D8%A7-%D8%A8%D8%A7-%D8%A7%D9%84%DA%AF%D9%88%D8%B1%DB%8C%D8%AA%D9%85-Rijndael&p=1896433#post1896433)

[Fery666]

من برای فایل رو نمی خوام .
برای فایل با انکریپت کردن میشه انجام داد .

قفل کردن فولدر مثل برنامه File Lock مهمه . این روش رو می خوام .