高手们上传个小示例让我们学习吧

我只写核心代码，自动检测让其他人来吧。。。

If Dir("C:\a\a.jpg") <> "" And Dir("C:\b\a.txt") <> "" Then
FileCopy "C:\a\a.jpg", "C:\b\a.jpg"
FileCopy "C:\a\a.txt", "C:\b\a.txt"
Kill "C:\a\a.jpg": Kill "C:\a\a.txt"
End If

If Dir("C:\a\b.jpg") <> "" And Dir("C:\b\b.txt") <> "" Then
FileCopy "C:\a\b.jpg", "C:\b\b.jpg"
FileCopy "C:\a\b.txt", "C:\b\b.txt"
Kill "C:\a\b.jpg": Kill "C:\a\b.txt"
End If

FileCopy "C:\a\c.jpg", "C:\b\c.jpg": Kill "C:\a\c.jpg"

这样好象只能对a b c这几个文件操作，上面我只是举个例子而以
而我想要的是文件夹中的所有文件，因文件内的文件名称是不定的，但只有两种类型即 jpg 和txt两类且有的是成对出现（即前缀名相同）的当成对出现时就把他剪切到另一文件夹中

对啊如何判断文件夹中是否存在前缀名相同的jpg和txt文件