[BadAngel]

Вы уж простите. Но подскажите как преждевременно остановить скрипт. Что-то например STOP или HALT

[amel27]

Как копировать папки с сохранениям всех атрибутов »

Код:

strSRC = "D:\Dir"
strDST = "C:\Dir"

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder strSRC, strDST

Set objSRC = objFSO.GetFolder(strSRC)
Set objDST = objFSO.GetFolder(strDST)

objDST.Attributes = objSRC.Attributes

как преждевременно остановить скрипт »

остановка при каком событии/условии ?

Код:

WScript.Echo "Остановка, нажмите ""Ок"" для продолжения"

[foxbat]

как нибудь можно непосредственно задать атрибуты на файл или папку ? т.е. не

Код:

objDST.Attributes = objSRC.Attributes

а например

Код:

objSRC.Attributes=32

(у меня так не получилось)

[Petya V4sechkin]

foxbat, почему не получилось? Нормально работает.

[foxbat]

как то так:

Код:

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("C:\21.vbs")
Attrs = File.Attributes
WScript.Echo attrs
File.Attributes = 2
WScript.Echo attrs

вывод:

Код:

C:\>cscript temp4.vbs
Сервер сценариев Windows (Microsoft R) версия 5.7
c Корпорация Майкрософт (Microsoft Corp.), 1996-2001. Все права защищены.

0
0

[Petya V4sechkin]

WScript.Echo attrs File.Attributes = 2 WScript.Echo attrs

И что? два раза выводится значение attrs?

[foxbat]

кажется я осознал не прав