منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

قم باستدعاء التالى


ثم قوم بادراج الاكواد التالى

(28-05-18, 05:39 PM)elgokr كتب : [ -> ]قم باستدعاء التالى

كود :

Imports System.IO
Imports System.Security.AccessControl

من ثم قم اضافة كلاً من

textbox - FolderBrowserDialog - 3 Button

ثم قوم بادراج الاكواد التالى

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       With FolderBrowserDialog1
           If .ShowDialog() = DialogResult.OK Then
               TextBox1.Text = .SelectedPath
           End If
       End With
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim fs As FileSystemSecurity = File.GetAccessControl(TextBox1.Text)
       fs.AddAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
       File.SetAccessControl(TextBox1.Text, fs)
   End Sub

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Dim fs As FileSystemSecurity = File.GetAccessControl(TextBox1.Text)
       fs.RemoveAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
       File.SetAccessControl(TextBox1.Text, fs)
   End Sub

بخصوص Button1 وهو لتحديد المجلد

بخصوص Button2 وهو لعمل اغلاق الصلاحيات للمجلد

بخصوص Button3 وهو اعادة الصلاحيات المجلد

كل الفكرة هو عملية التعامل مع الكود لاستخدامه لفكرتك

Button1 لتحديد المجلد يمكنك الاستغناء عنه وكتابة مسار المجلد يدوياً

كود Button2 ستقوم به عند الانتهاء من العمل على المجلد فى المشروع واغلاق البرنامج وما ذلك

كود Button3 وهو عند استدعاء او استخدام البرنامج اى ملفات داخل المجلد يقوم بتطبيق الكود

وبعد اتمام الانهاء يقوم بتطبيق كود Button2

يارب المثال بشكل عام يفيدك فى العديد الاستخدام

وشرح كيفية استخدام الكود للوضع الحالى لطلبك

تحياتى لك

وتمنياتى لك التوفيق

جميل وشرح اجمل الف تحية وتقدير اخي
ورمضانك كريم
كما اشكرك على هذا المجهود الذي تقدمه
اسال الله ان يجعله لك في ميزان الحسنات