Script Content Plugin

[Flasher]

Parazit
Какой такой? ТЗ не вижу.

[Parazit]

Flasher, вывести в колонку Files.Count

[Flasher]

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

With CreateObject("Scripting.FileSystemObject")
  If .FolderExists(FileName) Then Content = .GetFolder(FileName).Files.Count
End With

[Parazit]

Flasher, это весь скрипт? Если да, то он выводит только "Invalid character"

[Flasher]

Parazit
Не должен.

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

[Script]
Section=FilesCount

[FilesCount]
Script=FilesCount.vbs
ParseDirs=1
LongName=1

[Parazit]

Flasher, спасибо, работает

[Parazit]

Flasher, а как вывести имя файла (ов) в подпапках?

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

With CreateObject("Scripting.FileSystemObject")
  Content = .GetFolder(FileName).Files.GetFileName
End With

[Flasher]

Parazit
В каком виде? Имя подле каждого объекта и так есть по умолчанию.

[Parazit]

Flasher, в папках. Мы присваиваем для FileName имена папок в текущем каталоге, правильно?
Внутри этих папок существуют другие файлы и папки. Это также, как мы выводили количество файлов в этих папках, но теперь, вместо количества,
нам необходимо вывести имя (имена) папок (файлов) внутри каждого FileName

[Flasher]

Parazit
Файлов в каталоге 200 тыс. Строка одна и ограничена по длине, всё не уместится. Я спрашиваю про вид (сортировка, разделители, ограничение). Как это должно выглядеть?

[Parazit]

Просто вывести имя первого файла.

[Flasher]

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

If CreateObject("Scripting.FileSystemObject").FolderExists(FileName) Then
  With CreateObject("Shell.Application").NameSpace(FileName).Items
    .Filter 73952, "*" : If .Count Then Content = .Item(0)
  End With
End If

P.S.: Точки в конце текста, наконец, будем ставить?

[Parazit]

Flasher, спасибо, это то, что нужно.