[سعود]

تحقق من الاسم قبل الحذف كمثال:

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