Dim objFso

    Set objFso = CreateObject("Scripting.FileSystemObject")
    
    ' CopyFile(<Source>,<Destination>,<Overwrite>)
    ' <Source> - строка, путь к источнику копирования.
    ' <Destination> - строка, путь назначения.
    ' <Overwrite> - необязательный, булево (число).
    ' Перезаписывать существующие файлы, или нет.
    objFso.CopyFile "C:\MyDocuments\*.doc", "C:\Temp\",  0 

    var objFso;

    objFso = new ActiveXObject("Scripting.FileSystemObject");

    fso.CopyFile ("C:\\MyDocuments\\*.doc", "C:\\Temp\\");