VBA跨文件夹里的文件夹合并

vba困难户

各位大神麻烦了，下面这个VBA代码应该怎么写
test2\login_data_201702文件夹下的子文件夹移动到FIGSO文件夹下的子文件夹中。
移动规则：test2\login_data_201702文件夹下的子文件夹名字（“_”前面的名字）跟FIGSO文件夹下的子文件夹名字一样。