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)
