ComradG
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Evgeny972
если правильно понимаю, то у тебя без рефреша не отображаются скрытые файлы, с которых был снят данный атрибут, так? если да, то каким образом ты меняешь их атрибуты через реестр, когда в комспеке есть команда attrib?
Код: на счет рефреша что-то не припомню команды вроде WindowState.Refresh в VBScript'ах, а ведь по сути тебе нужно что-то в этом духе, чтобы обновить состояние открытых окон проводника. в общем, пошукаю еще по сабжу.
Господа, я накидал скриптик tail и вот что у меня получилось:
Код: On Error Resume Next
If WScript.Arguments.Count = 0 Then
WScript.Echo "Синтаксис: cscript [//nologo] tail.vbs [число, файл]."
WScript.Quit
End If
intLines = Int(WScript.Arguments.Item(0))
strFileName = WScript.Arguments.Item(1)
WScript.Echo Tail(intLines, strFileName)
Function Tail(intLines, strFileName)
Dim strFile, objFile, arrFile, intCount
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFileName)
strFile = objFile.ReadAll
arrFile = Split(strFile, vbCrLf)
For intCount = Ubound(arrFile) - (intLines - 1) To Ubound(arrFile)
Tail = Tail & arrFile(intCount) & vbCrLf
Next
End Function |
если кого заинтересовала тема того,как можно реализовать прочие UNIX-тулзы на VBScript'е, подкиньте идей, пожалуйста. |
. 
