Не могу скопировать все или определенные файлы оператором FileCopy - VB

Формулировка задачи:

Доброго времени суток! Задача такая: есть куча консольных игр ("дендюшные" РОМ-ы). Все они лежат в одной папке. Хочу сделать свою удобную инсталляшку на VB6 для последующей установки эмулятора и игр с "болванки" на жесткий диск. Мне нужно, чтобы все игры копировались на хард по папкам с соответствующей буквой, т.е. игры начинающиеся на "A" копировались бы в папку "A", на "B" в "B" и т.д.. Со всем вроде разобрался, но возникла проблема с таким куском кода: FileCopy "ROMS\A*.ZIP", DestPath (путь в текстовом поле, которое указывает пользователь). После копирования всех файлов начинающихся на букву "A" к прогресс-бару добавляется одно деление и т.д.. Проблема возникает на самом копировании - пишет: "Bad file or file number". Что я только не пробовал, но никакого эффекта. Неужели этот оператор не понимает значения "*.*"? Дали мне вот такой кусок кода (вроде работает), но слишком длинен и непонятен:

Dim OldPath$, NewPath$, Shablon$, OnlyName$
OldPath = "C:\proba\zvit"
NewPath = "C:\proba\Temp"
Shablon = "A*.*"
OnlyName = Dir(OldPath & Shablon, vbReadOnly + vbHidden + vbSystem)
Do Until OnlyName = ""
FileCopy OldPath & OnlyName, NewPath & OnlyName
OnlyName = Dir
Loop

Может есть решение попроще? Я не такой ас в бэйсике, хотя и через пень колоду учу его с 1999 года ... Буду очень признателен!

Решение задачи: «Не могу скопировать все или определенные файлы оператором FileCopy»

textual
                            Листинг программы 
                        

                            Const CMD$ = "cmd /c copy /b/y ""~SRC~"" ""~DST~""" 'шаблон команды
Dim OldPath$, NewPath$, Shablon$, OnlyName$
OldPath = "C:\proba\zvit\"
NewPath = "C:\proba\Temp"
Shablon = "A*.*"
CreateObject("Wscript.Shell").Run Replace(Replace(CMD, "~SRC~", OldPath & Shablon), "~DST~", NewPath), 0, True
                        