求一段vba 代码

[wenking2006]

一个文件夹下面 有若干个压缩文件，我想把这些文件
按照文件名分类，放入对应的文件夹下面。
如：
文件夹all 下面 有很多个压缩文件。
aaa1.zip
aaa2.zip
aaa3.zip
bbb.zip
ccc.zip
ccc2.zip
...
要把这些zip文件放入文件夹
aaa bbb ccc 中
即
aaa存放 bbb存放 ccc存放
aaa1.zip bbb.zip ccc.zip
aaa2.zip ccc2.zip
aaa3.zip

请问大侠 这个如何写代码呢？
尤其是关于 找文件名 复制 剪切 粘贴 删除文件的vba语法
谢谢大侠啦！