Flasher
|
 Posted: Thu Apr 26, 2018 20:04 Post subject: |
 |
|
| Own Little World wrote: | А ниже я привел пример того, как это должно выглядеть (и в примере там были циферки  ) |
Исходя из названия топика и описания эту нумерацию можно было воспринять только как уточнение порядка. Тем более, как верно отметили, тем с переименованием, где можно спросить, полно. Пример. Отсюда и результат двухмесячного простоя вместо элементарного скрипта на 3 минуты:
| Code: | '================================== VBS ==================================
' Пронумеровать имена файлов активного каталога в порядке заданного списка
' Условия: путь запуска — пустой; список в ANSI
' Параметр: "<путь к списку>"
'=========================================================================
Set FSO = CreateObject("Scripting.FileSystemObject")
With New RegExp
.Global = True : .Pattern = "^[\r\n]+|\s+(?=\r?\n|$)"
List = Split(.Replace(FSO.OpenTextFile(WSH.Arguments(0)).ReadAll, ""), vbLf)
End With
For i = 0 To UBound(List)
N = List(i) : If FSO.FileExists(N) Then FSO.GetFile(N).Name = i + 1 & ". " & N
Next |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
