В дополнение. Копировать лучше методом CopyHere. Поскольку у FSO будут проблемы с файлами read only. Пример:
Код:
Option Explicit
Dim strMyFolderPath
Dim objShell
Dim objMyFolder
Dim objHostsFolder
strMyFolderPath = "z:\myfolder"
Set objShell = CreateObject("Shell.Application")
Set objMyFolder = objShell.NameSpace(strMyFolderPath)
Set objHostsFolder = objShell.NameSpace(objShell.NameSpace(&H25).ParseName("drivers\etc"))
' Копирование:
' из системной в свою
objMyFolder.CopyHere objHostsFolder.Self.Path & "\hosts", 20
' из своей в системную
objHostsFolder.CopyHere objMyFolder.Self.Path & "\hosts", 20
