[sooriaty03]

Adeeb alghamdi كتب :بالله ما في حل؟

السلام عليكم ورحمة الله وبركاته
أخي الكريم
هذا الكود سيقوم بحذف الملفات الموجودة في ملف Temp مع ترك الملفات التي تكون قيد الاستعمال وذلك بواسطة الأمر المكتوب باللون الأحمر

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Files As String() = IO.Directory.GetFiles("c:\windows\Temp")
        [color=#FF0000]On Error Resume Next[/color]
        For Each File In Files
            Kill(File)
        Next
    End Sub

بالتوفيق