[Iska]

csp, если нет прав на смену атрибутов — нет разницы, какой из методов использовать.

часть кода где уже нашло файл »

Покажите весь Ваш код.

[csp]

а нет вру, снимает аттрибуты но почему то ошибку выдает, щас минуту перепроверю

ага. вот такой код - работает без проблем

Код:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\Users\HP\Desktop\activate_prog.dll")

objFile.Attributes = 0

а вот такой

Код:

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery _
    ("Select * From CIM_DataFile Where Drive = 'C:' AND FileName = 'activate_prog' AND Extension = 'dll'")

For Each objFile In colFiles   
       Set objFSO = CreateObject("Scripting.FileSystemObject")
       objFile.Attributes = 0    
       objFSO.CopyFile "C:\Users\HP\Desktop\2.dll", objFile
Next

выдает ошибку

Скрытый текст

соответственно я почему то подумал на права, но здесь причина в моей кривости скорее всего.

[Iska]

а вот такой … выдает ошибку »

Естественно. Потому что во втором коде «objFile» — это не объект File библиотеки «Scripting.FileSystemObject», а объект «CIM_DataFile» (CIM_DataFile class (Windows) - MSDN - Microsoft) из пространства имён Wbem, у которого атрибуты представляются отдельными булевыми свойствами (Archive, Compressed, Hidden и т.д.), к тому же — только для чтения.

[csp]

потратил еще пару часов на гугл, и даже нашел ету тему в поиске ... мне нужно скопировать файл, даже если на конечном файле стоит только чтение и скрытый.

Код:

     objFile.Copy("C:\Users\HP\Desktop\2.dll")

такое не перезапишет,

CIM_DataFile has no concept of a "working directory." Second, the Copy() method cannot be used to overwrite an existing file

а альтернатив я не знаю,

Код:

object.CopyFile "C:\Users\HP\Desktop\2.dll", objFile, true

тоже не катит здесь как метод.