Цитата 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 "Остановка, нажмите ""Ок"" для продолжения"
