vb 文件系统控件

这道程序是这样的，有2个驱动器列表框，2个文件列表框，2个目录列表框，而且第一个驱动器、目录。文件列表框同步，第二个驱动器、目录、文件列表框同步，我想实现，点击复制按钮，就把第一个文件列表框选中的文件复制到第二个文件列表框显示的目录下，如果目的地址跟复制文件的源地址在同一个目录，那么第一次复制产生的文件名为 “复件**”第二次为“复件2**”就是要实现跟windows里面的复制操作一样的效果来命名。会的请帮忙写一下代码，以下是我的代码，我只会实现第一次复制的命名，后面的请帮我完善程序，实现那个功能，谢谢了。
Private Sub cmdcopy_Click()
If File1.FileName <> "" Then
If Right(File1.Path, 1) = "\" Then
sourfile = File1.Path + File1.FileName
Else: sourfile = File1.Path + "\" + File1.FileName
End If
If Right(File2.Path, 1) = "\" Then
If File1.Path = File2.Path Then
destfile = File2.Path + "复件" + File1.FileName
Else: destfile = File2.Path + File1.FileName
End If
Else
If File1.Path = File2.Path Then
destfile = File2.Path + "\复件" + File1.FileName
Else: destfile = File2.Path + "\" + File1.FileName
End If
End If
FileCopy sourfile, destfile
File2.Refresh
File1.Refresh
End If
End Sub