View previous topic :: View next topic |
Author |
Message |
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Dec 20, 2016 16:07 Post subject: |
|
|
Parazit
Какой такой? ТЗ не вижу. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Parazit
Joined: 16 Nov 2016 Posts: 25 Location: Россия
|
(Separately) Posted: Tue Dec 20, 2016 17:26 Post subject: |
|
|
Flasher, вывести в колонку Files.Count |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Dec 20, 2016 17:33 Post subject: |
|
|
Code: | With CreateObject("Scripting.FileSystemObject")
If .FolderExists(FileName) Then Content = .GetFolder(FileName).Files.Count
End With |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Tue Dec 20, 2016 18:49; edited 1 time in total |
|
Back to top |
|
|
Parazit
Joined: 16 Nov 2016 Posts: 25 Location: Россия
|
(Separately) Posted: Tue Dec 20, 2016 18:17 Post subject: |
|
|
Flasher, это весь скрипт? Если да, то он выводит только "Invalid character" |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Dec 20, 2016 18:37 Post subject: |
|
|
Parazit
Не должен. Code: | [Script]
Section=FilesCount
[FilesCount]
Script=FilesCount.vbs
ParseDirs=1
LongName=1 |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Parazit
Joined: 16 Nov 2016 Posts: 25 Location: Россия
|
(Separately) Posted: Tue Dec 20, 2016 19:18 Post subject: |
|
|
Flasher, спасибо, работает |
|
Back to top |
|
|
Parazit
Joined: 16 Nov 2016 Posts: 25 Location: Россия
|
(Separately) Posted: Thu Jan 05, 2017 15:54 Post subject: |
|
|
Flasher, а как вывести имя файла (ов) в подпапках?
Code: |
With CreateObject("Scripting.FileSystemObject")
Content = .GetFolder(FileName).Files.GetFileName
End With |
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Jan 06, 2017 02:20 Post subject: |
|
|
Parazit
В каком виде? Имя подле каждого объекта и так есть по умолчанию. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Parazit
Joined: 16 Nov 2016 Posts: 25 Location: Россия
|
(Separately) Posted: Fri Jan 06, 2017 04:49 Post subject: |
|
|
Flasher, в папках. Мы присваиваем для FileName имена папок в текущем каталоге, правильно?
Внутри этих папок существуют другие файлы и папки. Это также, как мы выводили количество файлов в этих папках, но теперь, вместо количества,
нам необходимо вывести имя (имена) папок (файлов) внутри каждого FileName |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Jan 06, 2017 04:53 Post subject: |
|
|
Parazit
Файлов в каталоге 200 тыс. Строка одна и ограничена по длине, всё не уместится. Я спрашиваю про вид (сортировка, разделители, ограничение). Как это должно выглядеть? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Parazit
Joined: 16 Nov 2016 Posts: 25 Location: Россия
|
(Separately) Posted: Fri Jan 06, 2017 17:23 Post subject: |
|
|
Просто вывести имя первого файла.
Last edited by Parazit on Sat Jan 07, 2017 03:44; edited 1 time in total |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Jan 06, 2017 22:48 Post subject: |
|
|
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.: Точки в конце текста, наконец, будем ставить? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Parazit
Joined: 16 Nov 2016 Posts: 25 Location: Россия
|
(Separately) Posted: Sat Jan 07, 2017 03:45 Post subject: |
|
|
Flasher, спасибо, это то, что нужно. |
|
Back to top |
|
|
|