Страница 16 из 16
Добавлено: Вт дек 20, 2016 15:07
Flasher
Parazit
Какой такой? ТЗ не вижу.
Добавлено: Вт дек 20, 2016 16:26
Parazit
Flasher, вывести в колонку Files.Count
Добавлено: Вт дек 20, 2016 16:33
Flasher
Код: Выделить всё
With CreateObject("Scripting.FileSystemObject")
If .FolderExists(FileName) Then Content = .GetFolder(FileName).Files.Count
End With
Добавлено: Вт дек 20, 2016 17:17
Parazit
Flasher, это весь скрипт? Если да, то он выводит только "Invalid character"
Добавлено: Вт дек 20, 2016 17:37
Flasher
Parazit
Не должен.
Код: Выделить всё
[Script]
Section=FilesCount
[FilesCount]
Script=FilesCount.vbs
ParseDirs=1
LongName=1
Добавлено: Вт дек 20, 2016 18:18
Parazit
Flasher, спасибо, работает
Добавлено: Чт янв 05, 2017 14:54
Parazit
Flasher, а как вывести имя файла (ов) в подпапках?
Код: Выделить всё
With CreateObject("Scripting.FileSystemObject")
Content = .GetFolder(FileName).Files.GetFileName
End With
Добавлено: Пт янв 06, 2017 01:20
Flasher
Parazit
В каком виде? Имя подле каждого объекта и так есть по умолчанию.
Добавлено: Пт янв 06, 2017 03:49
Parazit
Flasher, в папках. Мы присваиваем для FileName имена папок в текущем каталоге, правильно?
Внутри этих папок существуют другие файлы и папки. Это также, как мы выводили количество файлов в этих папках, но теперь, вместо количества,
нам необходимо вывести имя (имена) папок (файлов) внутри каждого FileName
Добавлено: Пт янв 06, 2017 03:53
Flasher
Parazit
Файлов в каталоге 200 тыс. Строка одна и ограничена по длине, всё не уместится. Я спрашиваю про вид (сортировка, разделители, ограничение). Как это должно выглядеть?
Добавлено: Пт янв 06, 2017 16:23
Parazit
Просто вывести имя первого файла.
Добавлено: Пт янв 06, 2017 21:50
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
Добавлено: Сб янв 07, 2017 02:45
Parazit
Flasher, спасибо, это то, что нужно.