Вот набросал такой скрипт по поводу атрибутов:
Код:
Set Create=CreateObject("Scripting.FileSystemObject")
Set WSHShell=WScript.CreateObject("WScript.Shell")
ToFolder = "D:\Мои документы"
strPersonal = WshShell.SpecialFolders("MyDocuments")
Set f=Create.GetFolder(strPersonal)
Create.CreateFolder(ToFolder)
For Each a in f.Subfolders
a.Copy(ToFolder & "\" & a.name)
Create.GetFolder(ToFolder & "\" & a.name).Attributes=Create.GetFolder(a).Attributes
Next
For Each a in f.Files
a.Copy(ToFolder & "\" & a.name)
Next
Как сделать так чтобы скрипт менял атрибуты не только у вложенных папок, так скажем первого уровня, но у ВСЕХ папок не зависимо от глубины вложения?
