vb File1复制问题

4个Command1，全部复制，复制，删除，全部删除
全部复制-----复制File1里面的所有文件到File2所在的文件夹
复制------复制File1选中的文件到File2所在文件夹
删除-----删除File1选中的文件
全部删除------全部删除File1里的文件
代码？？？？50分
哦，还有剪切和全部剪切
还有一点不是，全部复制，全部删除，全部剪切，是按一下就复制，删除，剪切里面所有的文件，要按一下就好，哦最好有个提示了，
msgbox“你确定要复制所有文件吗？”
要加个“确定”跟“返回”
下面的代码全部复制和全部删除，全部剪切不对，他按一次只能删除一个文件

忘了说了。你得把File1.MultiSelect改成1或者2。至于对话框，你在每一个按钮事件前加上
If MsgBox("你真的要复制吗", vbYesNo) = vbNo Then exit sub
就行了

Private Sub KillSelectedFile()
For i = File1.ListCount - 1 To 0 Step -1
If File1.Selected(i) = True Then Kill File1.Path & "\" & File1.List(i)
Next i
File1.Refresh
File2.Refresh
End Sub

Private Sub CopySelectedFile()
For i = File1.ListCount - 1 To 0 Step -1
If File1.Selected(i) = True Then
FileCopy File1.Path & "\" & File1.List(i), File2.Path & "\" & File1.List(i)
End If
Next i
File2.Refresh
End Sub

Private Sub Command1_Click()
CopySelectedFile
End Sub

Private Sub Command2_Click()
For i = 0 To File1.ListCount - 1
File1.Selected(i) = True
Next i
CopySelectedFile
End Sub

Private Sub Command3_Click()
KillSelectedFile
End Sub