Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Jul 23, 2017 03:18 Post subject: |
|
|
Решил таки выложить пару скриптов для WACP с нехватающими в ShellDetails свойствами:
MSOfficeProps.vbs Code: | Set Reg = New Regexp : Reg.IgnoreCase = True
Reg.Pattern = "^(do[ct][xm]?|xl[st][xm]?|p[op]t[xm]?|vsd)$"
If Reg.Test(Mid(FileName, InStrRev(FileName, ".") + 1)) Then
Set Reg = Nothing : SD = "System.Document."
Set File = CreateObject("Shell.Application").NameSpace(0).ParseName(FileName)
For Each Ct in Array("DocLastAuthor", SD & "RevisionNumber", SD & "Version",_
"Manager", SD & "TotalEditingTime", SD & "ByteCount", "DocPageCount",_
"DocWordCount", SD & "CharacterCount", "DocLineCount", SD & "ParagraphCount",_
"DocSlideCount", "DocNoteCount", SD & "HiddenSlideCount", SD & "MultimediaClipCount",_
SD & "PresentationFormat", "DocTemplate", "Scale", "LinksUpToDate", "System.Language")
If i = 4 Then Pt1 = "FTime(" : Pt2 = ")" Else Pt1 = "" : Pt2 = ""
Execute "Content" & i & "=" & Pt1 & "File.ExtendedProperty(""" & Ct & """)" & Pt2
i = i + 1
Next : Set File = Nothing
End If
Function FTime(T)
T = CSng(T)/10000000
If T < 32768 Then
FTime = Right("0" & TimeSerial(0, 0, Int(T)), 8)
Else
D = Int(T/86400) : H1 = T - D * 86400
H = Int(H1/3600) : M1 = H1 - H * 3600
M = Int(M1/60) : S = M1 - M * 60
If D = 0 Then D = "" Else If _
Right(D,1) = 1 And Right(D,2) <> 11 Then _
D = D & " сутки " Else D = D & " суток "
FTime = D & Right("0" & TimeSerial(H, M, S), 8)
End If
End Function |
MSOfficeProps2.vbs Code: | Set Reg = New Regexp : Reg.IgnoreCase = True
Reg.Pattern = "^(do[ct][xm]?|xl[st][xm]?|p[op]t[xm]?|vsd)$"
If Reg.Test(Mid(FileName, InStrRev(FileName, ".") + 1)) Then
Set Reg = Nothing
Set File = CreateObject("Shell.Application").NameSpace(0).ParseName(FileName)
For Each Ct in Split("Attributes System.OfflineAvailability System.OfflineStatus System.IsShared")
Execute "Content" & i & " = File.ExtendedProperty(""" & Ct & """)" : i = i + 1
Next : Set File = Nothing
End If |
options.ini Quote: | [Script]
ActiveScripts=...|MSOffice|MSOffice2
[MSOffice]
Script=MSOfficeProps.vbs
extensions=doc|docm|docx|dot|dotm|dotx|pot|potm|potx|ppt|pptm|pptx|vsd|xls|xlsm|xlsx|xlt|xltm|xltx
FoldersPaths=0
content=Кем сохранён
content1=Редакция
content2=Номер версии
content3=Руководитель
content4=Общее время редактирования
content5=Байты, количество
content6=Число страниц
content7=Слова, количество
content8=Знаки, количество
content9=Количество строк
content10=Абзацы, количество
content11=Слайды
content12=Заметки
content13=Скрытый счётчик
content14=Клипы
content15=Формат презентаций
content16=Шаблон
content17=Шкала
content18=Ссылки испорчены?
content19=Язык
[MSOffice2]
Script=MSOfficeProps2.vbs
extensions=doc|docm|docx|dot|dotm|dotx|pot|potm|potx|ppt|pptm|pptx|vsd|xls|xlsm|xlsx|xlt|xltm|xltx
FoldersPaths=0
content=Атрибуты
content1=Вне сети
content2=Автономность
content3=Общий доступ |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|