Выгрузка данных о файле в txt шаблон

[Infor_6]

Доброго всем времени суток! Подскажите пожалуйста, как реализовать следующую задачу:
Есть список файлов, необходимо имена и размер этих файлов поместить в txt построчно и плюс к этому в txt уже должен быть текст, заранее готовый и всегда один и тот же.
Пример:

Постоянный текст
имя файла (размер),
имя файла (размер),
имя файла (размер)

Постоянный текст


Заранее спасибо!

[Flasher]

Код: Выделить всё

'================================================================
' Создать список из выбранных файлов по шаблону:
' <текст сверху> + <имя файла (размер)> + <текст снизу>
' Параметры: %WL "<путь получателя>" "<базовое имя нового файла>"
'================================================================
With WScript.Arguments
  C = .Count : If C = 0 Then WScript.Quit
  If C <> 3 Then MsgBox "Следует указать 2 параметра!", 48,_
  Space(12) & "Ошибка вводных данных" : WScript.Quit : End If
  List = .Item(0) : Path = .Item(1) : Name = .Item(2)
End With : NL = vbNewLine : Set Shell = CreateObject("Shell.Application")
With CreateObject("Scripting.FileSystemObject")
  Path = .BuildPath(Path, "\") : Set List = .OpenTextFile(List,,,-1)
  Do : F = List.ReadLine : FN = .GetFileName(F)
    Set Fd = Shell.NameSpace(.GetParentFolderName(F))
    S = S & NL & FN & " (" & Fd.GetDetailsOf(Fd.ParseName(FN), 1) & "),"
  Loop Until List.AtEndOfStream : NP = Name & ".txt" : i = 0
  While (.FileExists(Path & NP) OR .FolderExists(Path & NP))
  i = i + 1 : NP = Name & " (" & i & ").txt" : Wend
  .OpenTextFile(Path & NP, 2, True, -1).Write _
  "постоянная cтрока 1" & NL &_
  "постоянная строка 2" & NL &_
  Mid(S, 3, Len(S) - 3) & NL &_
  "постоянная строка 3" & NL &_
  "постоянная строка 4" & NL & NL &_
  "постоянная строка 5" & NL & NL &_
  "постоянная строка 6"
End With
With CreateObject("WScript.Shell")
  If Path <> Fd.Self.Path & "\" Then .SendKeys "{TAB}"
  .Exec """%COMMANDER_EXE%"" /S /O /L=""" & Path & NP & "\:"""
End With

Заодно см. сюда.

[Infor_6]

Друг, а как это всё запустить?

[Avada]

Infor_6
Воспользоваться поиском по форуму (пример результата) или заглянуть в обязательную для прочтения на данном подфоруме памятку.

[Infor_6]

Avada
Flasher
Друзья! Ну это просто праздник какой то))) Спасибо вам большое!!!!! Только подскажите ещё пару моментов, по поиску не нашел!
Как поставить запятые, после размера в каждой строке и можно, если можно, в последней строке не ставить запятую!
Так же нужен ''постоянный текст'' нужен сверху...
Ах да и "постоянный текст" кракозябрами выходит((

[Flasher]

по поиску не нашел!

Серьёзно? Дополнил скрипт.

"постоянный текст" кракозябрами выходит((

В редакторе/листере в настройках выбрать юникодный шрифт. Также в обычном листере нажать клавишу 6.

[Infor_6]

Flasher
Где скрипт дополнил? И про 'постоянный текст', он кракорзябрами выходит уже в результате выполненного скрипта!

[Flasher]

Infor_6
Т.е. "где"? Там же. Текст выходит нормально. Ещё раз внимательно смотрим на рекомендации.

[Infor_6]

Flasher
Друг, ну ты капитальный красавчик! Запятые проставляются как надо!!!
С кракозябрами разберусь... Ну поставь ещё 'постоянный текст' сверху пожалуйста!!

[Flasher]

Ну поставь ещё 'постоянный текст' сверху пожалуйста!!

Можно и без "ну". Это не было заявлено. Нижний оставлять там же?

[Infor_6]

Flasher
Друг! Честно слово НО хотел написать, не обижайся!
Нижний оставляй)) Т.е. выглядеть будет так:
'постоянный текст'
файл (размер),
файл (размер),
файл (размер)
'постоянный текст'

[Flasher]

Infor_6
Т.е. уже без отделения пустой строкой?

[Infor_6]

Flasher
Если уже конкретно, то вот такая схема должна получиться:
'постоянный текст'
'постоянный текст'
файл (размер),
файл (размер),
файл (размер)
'постоянный текст'
'постоянный текст'

'постоянный текст'

'постоянный текст'

[Flasher]

Infor_6
Текст на каждых строках разный? Если да, то надо было хотя бы пронумеровать.
И если я правильно понял, то - .