منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET حذف مجلد به ملفات ادارية
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
حذف مجلد به ملفات ادارية
ali.alfoly غير متصل
المتميزون
*
المشاركات : 1,561
المواضيع 264
الإنتساب : Sep 2013
السمعة : 29
الشكر: 653
تم شكره 1044 مرات في 408 مشاركات
#1
20-08-13, 07:13 PM
السلام عليكم عملت مجلد به ملفات جعلت خاصيه الملفات اتها
System و Hidden و ReadOnly
فعند حذف هذا المجلد لايستطيع حذف هذا الملف فكيف استطيع حذف مجلد مهما كان به
< >
البحث
الرد }}}
تم الشكر بواسطة:
ali.alfoly غير متصل
المتميزون
*
المشاركات : 1,561
المواضيع 264
الإنتساب : Sep 2013
السمعة : 29
الشكر: 653
تم شكره 1044 مرات في 408 مشاركات
#2
20-08-13, 08:25 PM
عملت نفسى لائيم هههههههههه

كود :
[color=#0000FF]Dim[/color][color=#000000] Pth [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000] = [/color][color=#A31515]"مسار المجلد"[/color]
            [color=#0000FF]For[/color] [color=#0000FF]Each[/color][color=#000000] Fil [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color] [color=#0000FF]In[/color][color=#000000] IO.[/color][color=#2B91AF]Directory[/color][color=#000000].GetFileSystemEntries(Pth)[/color]
[color=#000000]                IO.[/color][color=#2B91AF]File[/color][color=#000000].SetAttributes(Fil, IO.[/color][color=#2B91AF]FileAttributes[/color][color=#000000].System [/color][color=#0000FF]Xor[/color][color=#000000] IO.[/color][color=#2B91AF]FileAttributes[/color][color=#000000].System)[/color]
            [color=#0000FF]Next[/color]
[color=#000000]            System.IO.[/color][color=#2B91AF]Directory[/color][color=#000000].Delete(Pth, [/color][color=#0000FF]True[/color][color=#000000])[/color]
< >
البحث
الرد }}}
تم الشكر بواسطة:
سعود غير متصل
سعود
*
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة : 847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
#3
20-08-13, 08:44 PM
ياليت تشرح الكود .. الظاهر انه خطيرSmile
الموقع البحث
الرد }}}
تم الشكر بواسطة:
ali.alfoly غير متصل
المتميزون
*
المشاركات : 1,561
المواضيع 264
الإنتساب : Sep 2013
السمعة : 29
الشكر: 653
تم شكره 1044 مرات في 408 مشاركات
#4
20-08-13, 10:02 PM
عملت جلب لكل الملفات الادارية الموجودة على المسار المطلوب ووضعتها فى تكرار
قمت بالغاء خاصية System لكل الملفات عن طريق الدالة SetAttributes فهى دالة خطيرة جدا
يمكنك التعديل على خصائص اى ملف مهما كان ولمعرفة هذه الدالة
ثم بعد ذلك قمت بحذف المجلد وانا مطمئن
< >
البحث
الرد }}}
تم الشكر بواسطة:
hoob computer غير متصل
المتميزون
*
المشاركات : 506
المواضيع 39
الإنتساب : Sep 2013
السمعة : 14
الشكر: 715
تم شكره 578 مرات في 220 مشاركات
#5
21-08-13, 11:11 AM
كود خطير جداً Smile
البحث
الرد }}}
تم الشكر بواسطة:
hoob computer غير متصل
المتميزون
*
المشاركات : 506
المواضيع 39
الإنتساب : Sep 2013
السمعة : 14
الشكر: 715
تم شكره 578 مرات في 220 مشاركات
#6
21-08-13, 11:15 AM
لكن لو كان على وندوز 7 أو وندوز 8, فهل تحتاج إلى تصريح administrator لتغيير و مسح هكذا ملفات؟ بإعتبار أن هذه الملفات هي ملفات نظام Smile
البحث
الرد }}}
تم الشكر بواسطة:
ali.alfoly غير متصل
المتميزون
*
المشاركات : 1,561
المواضيع 264
الإنتساب : Sep 2013
السمعة : 29
الشكر: 653
تم شكره 1044 مرات في 408 مشاركات
#7
21-08-13, 06:10 PM
انا شغال على ويندوز 7
اصلا انا لم اعتمد على المسح المباشر
انا غيرت خاصية السيستم ثم قمت بالحذف
< >
البحث
الرد }}}
تم الشكر بواسطة:
MSDOS غير متصل
عضو مبدع
المشاركات : 164
المواضيع 0
الإنتساب : Aug 2013
السمعة : 1
الشكر: 0
تم شكره 36 مرات في 7 مشاركات
#8
21-08-13, 06:20 PM
ali.alfoly كتب :عملت نفسى لائيم هههههههههه

كود :
[color=#0000FF]Dim[/color][color=#000000] Pth [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000] = [/color][color=#A31515]"مسار المجلد"[/color]
            [color=#0000FF]For[/color] [color=#0000FF]Each[/color][color=#000000] Fil [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color] [color=#0000FF]In[/color][color=#000000] IO.[/color][color=#2B91AF]Directory[/color][color=#000000].GetFileSystemEntries(Pth)[/color]
[color=#000000]                IO.[/color][color=#2B91AF]File[/color][color=#000000].SetAttributes(Fil, IO.[/color][color=#2B91AF]FileAttributes[/color][color=#000000].System [/color][color=#0000FF]Xor[/color][color=#000000] IO.[/color][color=#2B91AF]FileAttributes[/color][color=#000000].System)[/color]
            [color=#0000FF]Next[/color]
[color=#000000]            System.IO.[/color][color=#2B91AF]Directory[/color][color=#000000].Delete(Pth, [/color][color=#0000FF]True[/color][color=#000000])[/color]


تسمحلي بتصحيح بسيط
كود :
Dim Pth As String = "مسار المجلد"
For Each Fil As String In IO.Directory.GetFileSystemEntries(Pth)
    IO.File.SetAttributes(Fil, [color=#FF0000]IO.File.GetAttributes(Fil) And Not IO.FileAttributes.System[/color])
Next
System.IO.Directory.Delete(Pth, True)
البحث
الرد }}}
تم الشكر بواسطة:
ali.alfoly غير متصل
المتميزون
*
المشاركات : 1,561
المواضيع 264
الإنتساب : Sep 2013
السمعة : 29
الشكر: 653
تم شكره 1044 مرات في 408 مشاركات
#9
21-08-13, 07:51 PM
جزاك الله خيرا اخى الحبيب
MSDOS ممكن توضيح لانى لا اعرف
GetAttributes
< >
البحث
الرد }}}
تم الشكر بواسطة:
MSDOS غير متصل
عضو مبدع
المشاركات : 164
المواضيع 0
الإنتساب : Aug 2013
السمعة : 1
الشكر: 0
تم شكره 36 مرات في 7 مشاركات
#10
22-08-13, 08:48 AM
GetAttributes هي قراءة سمات الملف لنغير ما نحتاج لتغييرة من سمات دون التأثير على السمات الأخرى

ممكن تقول لي وليه التعب دة طالما أنا راح أحذف الملف أو المجلد
حرد عليك وأقول من خلال متابعتي لمواضيعك وجدت أنك تريد الشغل المرتب (زي اتجاه الأستاذ أبو إيهاب في البرمجة الاحترافية)، لذلك حتى لو بتحذف شيء احذفة بشغل مرتب ليكون هذا سلوكك في البرمجة الاحترافية.

OR لإضافة سمه.
And Not لحذف سمة.



هذه معلومات زائدة

شكل السمات في الذاكرة
كود :
FFFF (Word)
       ┌───────╨───────┐
      FF (Byte)       FF (Byte)
   ┌───╨───┐       ┌───╨───┐
   F       F       F       F
┌─┬╨┬─┐ ┌─┬╨┬─┐ ┌─┬╨┬─┐ ┌─┬╨┬─┐
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  File Attribute Bits
│ │ │ │ │ │ │ │ │ │ │ │ │ │ │ │
│ │ │ │ │ │ │ │ │ │ │ │ │ │ │ └──── 1     ReadOnly
│ │ │ │ │ │ │ │ │ │ │ │ │ │ └────── 2     Hidden
│ │ │ │ │ │ │ │ │ │ │ │ │ └──────── 4     System
│ │ │ │ │ │ │ │ │ │ │ │ └────────── 8     --------
│ │ │ │ │ │ │ │ │ │ │ └──────────── 16    Directory
│ │ │ │ │ │ │ │ │ │ └────────────── 32    Archive
│ │ │ │ │ │ │ │ │ └──────────────── 64    Device
│ │ │ │ │ │ │ │ └────────────────── 128   Normal
│ │ │ │ │ │ │ └──────────────────── 256   Temporary
│ │ │ │ │ │ └────────────────────── 512   SparseFile
│ │ │ │ │ └──────────────────────── 1024  ReparsePoint
│ │ │ │ └────────────────────────── 2048  Compressed
│ │ │ └──────────────────────────── 4096  Offline
│ │ └────────────────────────────── 8192  NotContentIndexed
│ └──────────────────────────────── 16384 Encrypted
└────────────────────────────────── 32768 --------


العمليات المنطقية
كود :
OR
╔═══╤═══╤═════════╗
║ A │ B │ A or B  ║
╠═══╪═══╪═════════╣
║ 0 │ 0 │    0    ║
╟───┼───┼─────────╢
║ 0 │ 1 │    1    ║
╟───┼───┼─────────╢
║ 1 │ 0 │    1    ║
╟───┼───┼─────────╢
║ 1 │ 1 │    1    ║
╚═══╧═══╧═════════╝

XOR
╔═══╤═══╤═════════╗
║ A │ B │ A xor B ║
╠═══╪═══╪═════════╣
║ 0 │ 0 │    0    ║
╟───┼───┼─────────╢
║ 0 │ 1 │    1    ║
╟───┼───┼─────────╢
║ 1 │ 0 │    1    ║
╟───┼───┼─────────╢
║ 1 │ 1 │    0    ║
╚═══╧═══╧═════════╝

NOR
╔═══╤═══╤═════════╗
║ A │ B │ A nor B ║
╠═══╪═══╪═════════╣
║ 0 │ 0 │    1    ║
╟───┼───┼─────────╢
║ 0 │ 1 │    0    ║
╟───┼───┼─────────╢
║ 1 │ 0 │    0    ║
╟───┼───┼─────────╢
║ 1 │ 1 │    0    ║
╚═══╧═══╧═════════╝

XNOR
╔═══╤═══╤═════════╗
║ A │ B │ A xnor B║
╠═══╪═══╪═════════╣
║ 0 │ 0 │    1    ║
╟───┼───┼─────────╢
║ 0 │ 1 │    0    ║
╟───┼───┼─────────╢
║ 1 │ 0 │    0    ║
╟───┼───┼─────────╢
║ 1 │ 1 │    1    ║
╚═══╧═══╧═════════╝



AND
╔═══╤═══╤═════════╗
║ A │ B │ A and B ║
╠═══╪═══╪═════════╣
║ 0 │ 0 │    0    ║
╟───┼───┼─────────╢
║ 0 │ 1 │    0    ║
╟───┼───┼─────────╢
║ 1 │ 0 │    0    ║
╟───┼───┼─────────╢
║ 1 │ 1 │    1    ║
╚═══╧═══╧═════════╝

NAND
╔═══╤═══╤═════════╗
║ A │ B │ A nand B║
╠═══╪═══╪═════════╣
║ 0 │ 0 │    1    ║
╟───┼───┼─────────╢
║ 0 │ 1 │    1    ║
╟───┼───┼─────────╢
║ 1 │ 0 │    1    ║
╟───┼───┼─────────╢
║ 1 │ 1 │    0    ║
╚═══╧═══╧═════════╝
البحث
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مرفق سورس كود ارسال ملفات الى الواتس بدون API new_programer 0 48 14-04-24, 02:16 PM
آخر رد: new_programer
Information [VB.NET] أنواع ملفات التحديث أبو خالد الشكري 2 222 15-11-23, 12:00 PM
آخر رد: أبو خالد الشكري
Music [كود] هل لدى احد فكره عن كيفيه ارسال ملفات صوتيه عبر الشبكة badrkamel 3 1,717 19-04-23, 10:28 PM
آخر رد: Taha Okla
  ادوات فتح ملفات aymen_libya 1 662 01-09-22, 12:48 AM
آخر رد: asmarsou
  [سؤال] كيفية حفظ عناصر في مجلد بحسب ترتيبها في الليست بوكس asmarsou 1 628 13-07-22, 06:42 PM
آخر رد: ابراهيم ايبو
  دمج ملفات pdf الو0 3 964 10-07-22, 07:33 PM
آخر رد: asmarsou
  [VB.NET] رفع مجلد ابو جمال 0 452 13-06-22, 03:30 PM
آخر رد: ابو جمال
  ملفات XML flawer69 0 600 26-05-22, 12:38 PM
آخر رد: flawer69
Exclamation ملفات تشغيل قاعدة البيانات Access أبو خالد الشكري 2 1,243 20-05-22, 12:26 AM
آخر رد: أبو خالد الشكري
  [سؤال] تعديل كود بسيط للبحث عن ملفات ابو جمال 5 1,541 11-05-22, 05:47 PM
آخر رد: ابو جمال

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم