[решено] Копирования скрытых папок с сохранениям атрибутов [Версия для КПК]

Показать полную графическую версию : [решено] Копирования скрытых папок с сохранениям атрибутов

BadAngel

17-03-2009, 13:05

Сделал папку “D:\Dir” скрытой.
Написал

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

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

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

BadAngel

17-03-2009, 14:22

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

amel27

18-03-2009, 03:39

Как копировать папки с сохранениям всех атрибутов »
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

19-03-2009, 10:46

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

а например
objSRC.Attributes=32 (у меня так не получилось)

Petya V4sechkin

19-03-2009, 10:52

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

foxbat

19-03-2009, 13:40

как то так:
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

WScript.Echo attrs
File.Attributes = 2
WScript.Echo attrs
И что? два раза выводится значение attrs?

foxbat

19-03-2009, 13:47

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