Можно ли с посредством командного файла добиться вывода списка папок на панель задач?

@Юрий_Нд · Регистрация: 25.06.2017

Студворк — интернет-сервис помощи студентам

Доброго дня Всем.
Примерно "2 недели назад" я небезуспешно пытался добиться вывода списка файлов с помощью командного файла.
Сегодня у меня другая, но, как я думаю, подобная задача.
Можно ли с помощью Bat-файла добиться вывода списка папок на панель задач?
Спасибо ___________ Юрий.

FlasherX · 23.11.2020, 18:58

Сообщение от Юрий_Нд

сохранил код с расширением .bat

Название: facepalm_Picard.gif
Просмотров: 127

Размер: 901.6 Кб

Сообщение от FlasherX

vbs — такое же расширение как и bat.

Сообщение от FlasherX

Сохранить с указанным раширением и запускать по Enter/даблклик или иными способами.

@Юрий_Нд · 23.11.2020, 21:01 **[ТС]**

FlasherX, Спасибо за помощь.
Подскажите пожалуйста, можно ли как-то сделать так, чтобы папки выводились более "живыми", как справа на скрине?

FlasherX · 23.11.2020, 21:27

Сообщение от Юрий_Нд

более "живыми"

Без понятия, что это. Без сворачивания что ли?

@Юрий_Нд · 23.11.2020, 21:53 **[ТС]**

FlasherX, по-Вашему скрипту папки выводятся такими, как слева на скрине.
А хотелось бы, чтобы они выводились такими как справа на скрине.

FlasherX · 23.11.2020, 22:07

Юрий_Нд, я уже объяснял ранее, что не имею такого представления/менеджера окон. Поэтому мне эти столбы ни о чём не говорят. Панель задач находится рядом с меню Пуск. Там список и появляется, как запрошено. Предполагаю, что менеджеру требуется отображение окон для формирования мини-скринов. В таком случае в 10-й строке убираем ,,,,7.

@Юрий_Нд · 23.11.2020, 23:52 **[ТС]**

FlasherX, это почти то, что я хотел.
Не хватает только "в самом конце" команды "Свернуть все окна".

FlasherX · 24.11.2020, 00:16

Юрий_Нд, была ещё мысль поменять 7 на 2. Не факт, что сработает, но попытка — не пытка.
Если не проканает, то добавляем предпоследнюю строку oShell.MinimizeAll.

@Юрий_Нд · 24.11.2020, 00:59 **[ТС]**

Сообщение от FlasherX

поменять 7 на 2

Те же проблемы.
---------------------

Сообщение от FlasherX

добавляем предпоследнюю строку oShell.MinimizeAll

Отлично.

Добавлено через 4 минуты
А может быть, аналогичный скрипт можно сделать для вывода Word файлов?

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
@chcp 65001>nul
@cd /D "F:\1 - Проба - 01\11 - Проба - 01-01"
@for %%f in (
"111 - Проба - 01-01-01.docx"
"112 - Проба - 01-01-02.docx"
"113 - Проба - 01-01-03.docx"
 ) do @start "" %%f & call:winfind %%f
cd /D "F:\1 - Проба - 01\12 - Проба - 01-02"
@for %%f in (
"121 - Проба - 01-02-01.docx"
"122 - Проба - 01-02-02іїє.docx"
 ) do @start "" %%f & call:winfind %%f
 @exit  
:winfind
@tasklist /nh /fi "windowtitle eq %~1 - Word"|>nul findstr [0-9]||call:winfind %1

FlasherX · 24.11.2020, 01:09

Сообщение от Юрий_Нд

для вывода Word файлов?

Нет, тут позволительны только окна IE и проводника.
Либо, как я в самом начале предлагал, переходим на Auto#-языки.

@Юрий_Нд · 24.11.2020, 07:12 **[ТС]**

Сообщение от FlasherX

Auto#-языки

Вба Excel сгодится?

FlasherX · 24.11.2020, 08:27

Сообщение от Юрий_Нд

Вба Excel сгодится?

Он тут при чём? Макросы интегрируются в документы и выполняются из среды запущенных приложений (будь то табличный или текстовый процессор). Я же писал о конкретных предпочтениях. Один из соотв. соседних разделов в помощь.

@Юрий_Нд · 17.03.2021, 17:47 **[ТС]**

Доброго дня Всем.
Скажите пожалуйста, какой командой нужно дополнить код бат-файла, чтобы во время запуска бат-файла сначала закрывался-удалялся весь список папок на панели задач?

Windows Batch file
1
2
3
4
5
6
Option Explicit: Dim oShell, Win, Dir, A, W
 
Set oShell = CreateObject("Shell.Application")
Set Win = oShell.Windows
 
For Each Dir In Array(_

FlasherX · 17.03.2021, 19:41

Сообщение от Юрий_Нд

дополнить код бат-файла

Я вас разочарую, но вы привели кусок кода не бат-файла.

@Юрий_Нд · 17.03.2021, 19:51 **[ТС]**

... FlasherX, даже если это не bat-файл, можно ли приведенную здесь часть кода облагородить так, чтобы:

Сообщение от Юрий_Нд

сначала закрывался-удалялся весь список папок на панели задач?

FlasherX · 17.03.2021, 20:19

Сообщение от Юрий_Нд

даже если это не bat-файл

Может, просто будем называть вещи своими именами? Если файл сохранён с иным расширением, то при чём тут bat?
4-й строкой вставьте:

Visual Basic
1
2
3
For Each W in Win
  If TypeName(W) = "IWebBrowser2" Then W.quit
Next

@Юрий_Нд · 17.03.2021, 20:23 **[ТС]**

Сообщение от FlasherX

4-й строкой вставьте:

... а бывшая 4-я строка станет 7-ой?
Я правильно понимаю?

FlasherX · 17.03.2021, 20:26

Юрий_Нд, меряйте всегда по исходнику. Что вы там у себя меняете и зачем, мне неведомо.

@Юрий_Нд · 17.03.2021, 21:22 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit: Dim oShell, Win, Dir, A, W
 
Set oShell = CreateObject("Shell.Application")
 
Set Win = oShell.Windows
 
For Each Dir In Array(_
"F:\1 - Проба - 01\11 - Проба - 01-01",_
"F:\1 - Проба - 01\12 - Проба - 01-02",_
"F:\1 - Проба - 01\13 - Проба - 01-03",_
"F:\1 - Проба - 01\14 - Проба - 01-04")
  oShell.ShellExecute Dir: A = 0
  Do
    For Each W In Win
      If StrComp(W.Document.Folder.Self.Path, Dir, 1) = 0 Then A = 1: Exit For
    Next
  Loop Until A = 1
Next
oShell.MinimizeAll
Set Win = Nothing: Set oShell = Nothing

Работает нормально.
А если:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Explicit: Dim oShell, Win, Dir, A, W
 
Set oShell = CreateObject("Shell.Application")
 
For Each W in Win
  If TypeName(W) = "IWebBrowser2" Then W.quit
Next
 
Set Win = oShell.Windows
 
For Each Dir In Array(_
"F:\1 - Проба - 01\11 - Проба - 01-01",_
"F:\1 - Проба - 01\12 - Проба - 01-02",_
"F:\1 - Проба - 01\13 - Проба - 01-03",_
"F:\1 - Проба - 01\14 - Проба - 01-04")
  oShell.ShellExecute Dir: A = 0
  Do
    For Each W In Win
      If StrComp(W.Document.Folder.Self.Path, Dir, 1) = 0 Then A = 1: Exit For
    Next
  Loop Until A = 1
Next
oShell.MinimizeAll
Set Win = Nothing: Set oShell = Nothing

см. скрин:

FlasherX · 17.03.2021, 21:26

Ещё раз:

Сообщение от FlasherX

меряйте всегда по исходнику.

@alpap · 17.03.2021, 23:39

Сообщение от Юрий_Нд

а бывшая 4-я строка станет 7-ой?

у меня в файле под рифму - 27-ой
вы привязались к нумерации видимо

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
до
[1]Option Explicit: Dim oShell, Win, Dir, A, W
 
[2]Set oShell = CreateObject("Shell.Application")
[3]Set Win = oShell.Windows
 
[4]For Each Dir In Array(_
 
после
[1]Option Explicit: Dim oShell, Win, Dir, A, W
 
[2]Set oShell = CreateObject("Shell.Application")
 
[3]Set Win = oShell.Windows
 
[4]For Each W in Win
[4] If TypeName(W) = "IWebBrowser2" Then W.quit
[4]Next
 
[5]For Each Dir In Array(_

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@Юрий_Нд 5 / 5 / 0 Регистрация: 25.06.2017 Сообщений: 586

	Можно ли с посредством командного файла добиться вывода списка папок на панель задач? 13.11.2020, 13:59. Показов 4658. Ответов 48 Метки нет (Все метки) Доброго дня Всем. Примерно "2 недели назад" я небезуспешно пытался добиться вывода списка файлов с помощью командного файла. Сегодня у меня другая, но, как я думаю, подобная задача. Можно ли с помощью Bat-файла добиться вывода списка папок на панель задач? Спасибо ___________ Юрий. 0

@Юрий_Нд 5 / 5 / 0 Регистрация: 25.06.2017 Сообщений: 586
	23.11.2020, 21:01 [ТС]
	FlasherX, Спасибо за помощь. Подскажите пожалуйста, можно ли как-то сделать так, чтобы папки выводились более "живыми", как справа на скрине? Миниатюры 0

@Юрий_Нд 5 / 5 / 0 Регистрация: 25.06.2017 Сообщений: 586
	23.11.2020, 21:53 [ТС]
	FlasherX, по-Вашему скрипту папки выводятся такими, как слева на скрине. А хотелось бы, чтобы они выводились такими как справа на скрине. 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,817
	23.11.2020, 22:07
	Юрий_Нд, я уже объяснял ранее, что не имею такого представления/менеджера окон. Поэтому мне эти столбы ни о чём не говорят. Панель задач находится рядом с меню Пуск. Там список и появляется, как запрошено. Предполагаю, что менеджеру требуется отображение окон для формирования мини-скринов. В таком случае в 10-й строке убираем `,,,,7`. 1

@Юрий_Нд 5 / 5 / 0 Регистрация: 25.06.2017 Сообщений: 586
	23.11.2020, 23:52 [ТС]
	FlasherX, это почти то, что я хотел. Не хватает только "в самом конце" команды "Свернуть все окна". 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,817
	24.11.2020, 00:16
	Юрий_Нд, была ещё мысль поменять 7 на 2. Не факт, что сработает, но попытка — не пытка. Если не проканает, то добавляем предпоследнюю строку `oShell.MinimizeAll`. 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,817
	17.03.2021, 20:26
	Юрий_Нд, меряйте всегда по исходнику. Что вы там у себя меняете и зачем, мне неведомо. 0