VB批量修改A文件夹内所有文件成为B文件夹中的文件名

VB批量修改A文件夹内所有文件变为B文件夹中的文件名
有A和B两个文件夹，两个文件夹内的文件数量相同，想通过VB，批量修改文件名，将A文件夹内所有文件名称变的跟B文件夹中完全一样。

先遍历所有文件格式，如果有文件后缀不同的话，则提示（如 msgbox “A文件夹中有22个.txt文件和15个.Jpg，B文件夹中有17个.txt和20个.jpg，请确保两个文件夹中同类型的文件数量相等”)

如果两边文件类型和数量相同的话，点击command1则开始自动变更文件名称。

如何编代码？非常感谢

在此祝福新年快乐！
------解决方案--------------------
文件的对应是如何解决的？难道要用户保证两边相同文件的文件名字符排序相同？
------解决方案--------------------
你的“计算文件数量” 按钮是什么意思？　重要的是，它下面的那个数据293是怎么来的？
一般来说，你在单选按钮中选择某个文件类型后，就立即更新左右的列表，并给出相应的数据。
不过先进行“选择”（文件类型，左列表路径、右列表路径），
再点按钮后进行“文件清单”处理，也是可以的。

当然，要实现你6F所说的那种功能，很简单的。
（只是我有点不理解的是，怎么会“文件对应关系”都不用管？？？你的是些做什么用的图片呢……）