Dim FSys As New FileSystemObject one drive list box one combo box one dir lilst box two file list box two label with caption select file to copy and select file to delete as label2 and label3

Private Sub Combo1_Change() File1.Pattern = Combo1.Text End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() On Error GoTo this Dir1.Path = Drive1.Drive this: If Err.Number > 0 Then MsgBox ("Device not ready") End If End Sub Private Sub File1_Click() Dim FSys As New FileSystemObject If Right(File1.Path, 1) = "\" Then yourfile = File1.Path + File1.FileName Else yourfile = File1.Path + "\" + File1.FileName End If FSys.CopyFile yourfile, "f:\backup\" Label1.Caption = File1.FileName + " is copied " File2.Refresh End Sub Private Sub File1_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.ForeColor = vbWhite End Sub Private Sub File1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.ForeColor = vbCyan End Sub Private Sub File2_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single) Label3.ForeColor = vbWhite End Sub Private Sub File2_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single) Label3.ForeColor = vbCyan End Sub Private Sub File2_Click() Dim FSys As New FileSystemObject If Right(File2.Path, 1) = "\" Then yourfile2 = File2.Path + File2.FileName Else yourfile2 = File2.Path + "\" + File2.FileName End If Label1.Caption = File2.FileName + " is deleted " FSys.DeleteFile yourfile2 File2.Refresh End Sub