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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > حذف مجلد به ملفات ادارية
نسخة كاملة : حذف مجلد به ملفات ادارية
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

ali.alfoly

20-08-13, 07:13 PM
السلام عليكم عملت مجلد به ملفات جعلت خاصيه الملفات اتها
System و Hidden و ReadOnly
فعند حذف هذا المجلد لايستطيع حذف هذا الملف فكيف استطيع حذف مجلد مهما كان به

ali.alfoly

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]

سعود

20-08-13, 08:44 PM
ياليت تشرح الكود .. الظاهر انه خطيرSmile

ali.alfoly

20-08-13, 10:02 PM
عملت جلب لكل الملفات الادارية الموجودة على المسار المطلوب ووضعتها فى تكرار
قمت بالغاء خاصية System لكل الملفات عن طريق الدالة SetAttributes فهى دالة خطيرة جدا
يمكنك التعديل على خصائص اى ملف مهما كان ولمعرفة هذه الدالة
ثم بعد ذلك قمت بحذف المجلد وانا مطمئن

hoob computer

21-08-13, 11:11 AM
كود خطير جداً Smile

hoob computer

21-08-13, 11:15 AM
لكن لو كان على وندوز 7 أو وندوز 8, فهل تحتاج إلى تصريح administrator لتغيير و مسح هكذا ملفات؟ بإعتبار أن هذه الملفات هي ملفات نظام Smile

ali.alfoly

21-08-13, 06:10 PM
انا شغال على ويندوز 7
اصلا انا لم اعتمد على المسح المباشر
انا غيرت خاصية السيستم ثم قمت بالحذف

MSDOS

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

21-08-13, 07:51 PM
جزاك الله خيرا اخى الحبيب
MSDOS ممكن توضيح لانى لا اعرف
GetAttributes

MSDOS

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    ║
╚═══╧═══╧═════════╝
الصفحات : 1 2
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > حذف مجلد به ملفات ادارية