Flasher
|
 Posted: Mon Dec 10, 2012 21:01 Post subject: |
 |
|
| Code: | '================================================================
' Переименовать jpeg-файлы в активном каталоге на номер счётчика
' Создать рядом одноимённые html с записью размеров картинок
' Условие - путь запуска пустой
'================================================================
Dir = CreateObject("WScript.Shell").CurrentDirectory
Set Fd = CreateObject("Shell.Application").NameSpace(Dir) : Set Items = Fd.Items
Items.Filter 64, "*.jpg"
With CreateObject("Scripting.FileSystemObject")
If Items.Count > 0 Then
For Each F In .GetFolder(Dir).Files
Ext = LCase(.GetExtensionName(F))
If (Ext = "jpg" Or Ext = "jpeg") And Not IsNumeric(.GetBaseName(F)) Then
i = i + 1 : Do While .FileExists(i & "." & Ext) : i = i + 1 : Loop
.GetFile(F).Name = i & "." & Ext
Size = CStr(Fd.GetDetailsOf(Fd.ParseName(F.Name), 31))
x = InStr(Size, "x") : H = Left(Size, x - 2)
.OpenTextFile(i & ".html", 2, True, -1).Write _
"<h1> " & i & ".jpg </h1>" & vbNewLine & "height = <b> " & H &_
" </b> " & vbNewLine & "width = <b> " & Mid(Size, x + 2) & " </b>"
End If
Next
End If
End With : CreateObject("WScript.Shell").SendKeys "^R" |
P.S.: И название темы надо бы на нормальное поменять - обработкой изображений тут не пахнет..
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Sat Dec 15, 2012 20:48; edited 2 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
