تعديل اخر
واذا حبيت تستعلم عن اى سمة قبل تعديلها يمكنك ذلك
ولاكن كما ذكرت لك لالغاء او تفعيل اى سمة لست محتاج للاستعلام عنها
كود :
[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].GetFiles(_Pth(1), [/color][color=#A31515]"*"[/color][color=#000000], 1)[/color]
[color=#000000] IO.[/color][color=#2B91AF]File[/color][color=#000000].SetAttributes(Fil, 4 [/color][color=#0000FF]Xor[/color][color=#000000] 4)[/color]
[color=#0000FF]Next[/color]
[color=#000000] System.IO.[/color][color=#2B91AF]Directory[/color][color=#000000].Delete(_Pth(1), [/color][color=#0000FF]True[/color][color=#000000])[/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].GetFiles(_Pth(1), [/color][color=#A31515]"*"[/color][color=#000000], 1)[/color]
[color=#0000FF]If[/color][color=#000000] (IO.[/color][color=#2B91AF]File[/color][color=#000000].GetAttributes(Fil) [/color][color=#0000FF]And[/color][color=#000000] 4) = IO.[/color][color=#2B91AF]FileAttributes[/color][color=#000000].System [/color][color=#0000FF]Then[/color]
[color=#000000] IO.[/color][color=#2B91AF]File[/color][color=#000000].SetAttributes(Fil, 4 [/color][color=#0000FF]Xor[/color][color=#000000] 4)[/color]
[color=#0000FF]End[/color] [color=#0000FF]If[/color]
[color=#0000FF]Next[/color]
