(15-06-19, 07:40 PM)سعود كتب : تحقق من الاسم قبل الحذف كمثال:

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dir As New DirectoryInfo(TextBox1.Text)
        For Each d As DirectoryInfo In dir.GetDirectories
            If d.Name.ToString.ToLower <> "default" Then
                d.Delete()
            End If
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim fbd As New FolderBrowserDialog
        If fbd.ShowDialog = DialogResult.OK Then
            TextBox1.Text = fbd.SelectedPath
        End If
    End Sub 


(15-06-19, 07:59 PM)سعود كتب : اعمل For على الملفات

PHP كود :

For each fl as fileinfo in dir.getfiles("*.*") 


إقتباس :لكن هناك مجلدات مش بتتحذف

(15-06-19, 08:51 PM)سعود كتب :

PHP كود :

d.Delete(True) 


إقتباس :ازاى احذف بقى كل هذه الملفات والفولدرات المتعلم عليها داخل المجلد هذا واترك فقط بداخلة هذين الملفين ؟