Total Commander :: Script Content Plugin

Script Content Plugin

through

FAQ

[^/[Print]\]
Goto page Previous 1, 2, 3 ... 14, 15, 16 :| |:
Total Commander -> Плагины Total Commander

#226: Author: Flasher, Location: Москва

Posted: Tue Dec 20, 2016 16:07
—
Parazit
Какой такой? ТЗ не вижу.

#227: Author: Parazit, Location: Россия

Posted: Tue Dec 20, 2016 17:26
—
Flasher, вывести в колонку Files.Count

#228: Author: Flasher, Location: Москва

Posted: Tue Dec 20, 2016 17:33
—

Code:

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

Last edited by Flasher on Tue Dec 20, 2016 18:49; edited 1 time in total

#229: Author: Parazit, Location: Россия

Posted: Tue Dec 20, 2016 18:17
—
Flasher, это весь скрипт? Если да, то он выводит только "Invalid character"

#230: Author: Flasher, Location: Москва

Posted: Tue Dec 20, 2016 18:37
—
Parazit
Не должен.

Code:

[Script]
Section=FilesCount

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

#231: Author: Parazit, Location: Россия

Posted: Tue Dec 20, 2016 19:18
—
Flasher, спасибо, работает

#232: Author: Parazit, Location: Россия

Posted: Thu Jan 05, 2017 15:54
—
Flasher, а как вывести имя файла (ов) в подпапках?

Code:

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

#233: Author: Flasher, Location: Москва

Posted: Fri Jan 06, 2017 02:20
—
Parazit
В каком виде? Имя подле каждого объекта и так есть по умолчанию.

#234: Author: Parazit, Location: Россия

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

#235: Author: Flasher, Location: Москва

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

#236: Author: Parazit, Location: Россия

Posted: Fri Jan 06, 2017 17:23
—
Просто вывести имя первого файла.

Last edited by Parazit on Sat Jan 07, 2017 03:44; edited 1 time in total

#237: Author: Flasher, Location: Москва

Posted: Fri Jan 06, 2017 22:48
—

Code:

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.: Точки в конце текста, наконец, будем ставить?

#238: Author: Parazit, Location: Россия

Posted: Sat Jan 07, 2017 03:45
—
Flasher, спасибо, это то, что нужно.

Total Commander -> Плагины Total Commander

output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous 1, 2, 3 ... 14, 15, 16 :| |: Page 16 of 16