Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim folderDate As Date      'Holds the date the folder name represents

    'Loop through each folder under a given directory
    For Each dir As String In IO.Directory.GetDirectories("c:\test")
        'Try to parse folder name to valid date
        Date.TryParse(IO.Path.GetFileName(dir), folderDate)

        'If folderDate is less then Date selected, then remove it
        If folderDate <> Nothing AndAlso Date.Compare(folderDate, DateTimePicker1.Value.Date) < 0 Then
            IO.Directory.Delete(dir, True)
        End If
    Next
End Sub

'---Add selected items in Listbox1 to Listbox2---
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    For Each item As Object In ListBox1.SelectedItems
        If Not ListBox2.Items.Contains(item) Then ListBox2.Items.Add(item)
    Next
End Sub

'---Remove selected items from Listbox2---
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    With ListBox2.SelectedItems
        For i As Integer = .Count - 1 To 0 Step -1
            ListBox2.Items.Remove(.Item(i))
        Next
    End With
End Sub

Vikash Yadav wrote:

How i can do this PLZ help me.