как скопировать файлы по маске *.* ?

[Лёха_Virus]

т.е. как скопировать файл зная путь к нему и не зная его имени, например C:\*.doc в C:\1\*.doc ?
пробовал через CopyFile но это не канает...

[RayShade]

Самый простой способ:

Код: Выделить всё

dim fso as new filesystemobject
dim fls as folder
set fls = fso.getfolder("c:\")
for each fl in fls.files
if fl.name like "*.doc" then fl.copy("c:\1\" & fl.name)
next fl