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]
