Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   [решено] Копирования скрытых папок с сохранениям атрибутов (http://forum.oszone.net/showthread.php?t=134982)

BadAngel 17-03-2009 13:05 1066261
Копирования скрытых папок с сохранениям атрибутов
 
Сделал папку “D:\Dir” скрытой.
Написал

Set AA = CreateObject("Scripting.FileSystemObject")
AA.CopyFolder "D:\Dir", "C:\Dir"

Скопировалось нормально. Но почему то папка перестала быть скрытой.

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

BadAngel 17-03-2009 14:22 1066314
Вы уж простите. Но подскажите как преждевременно остановить скрипт. Что-то например STOP или HALT

amel27 18-03-2009 03:39 1066859
Цитата:
Цитата BadAngel
Как копировать папки с сохранениям всех атрибутов »
Код:
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
Цитата:
Цитата BadAngel
как преждевременно остановить скрипт »
остановка при каком событии/условии ?
Код:
WScript.Echo "Остановка, нажмите ""Ок"" для продолжения"

foxbat 19-03-2009 10:46 1068093
как нибудь можно непосредственно задать атрибуты на файл или папку ? т.е. не
Код:
objDST.Attributes = objSRC.Attributes
а например
Код:
objSRC.Attributes=32
(у меня так не получилось)

Petya V4sechkin 19-03-2009 10:52 1068096
foxbat, почему не получилось? Нормально работает.

foxbat 19-03-2009 13:40 1068268
как то так:
Код:
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 19-03-2009 13:44 1068272
Цитата:
Цитата foxbat
WScript.Echo attrs
File.Attributes = 2
WScript.Echo attrs
И что? два раза выводится значение attrs?

foxbat 19-03-2009 13:47 1068276
кажется я осознал :) не прав


Время: 15:14.

Время: 15:14.
© OSzone.net 2001-