[NickM]

Помогите с бантиком »

Можно от данного примера оттолкнуться.

[denis19]

Можно от данного примера оттолкнуться. »

Неа, ошибку выдаёт аж в двух окошках. Подскажите пожалуйста что дополнить-удалить там?

[Serguei Kouzmine]

выделяет в папке »

нужно больше информации - какой такой выделяет-шмыделяет ?
в смылсе - чего хотите добиться в итоге ?
какая изначальную цель ?

[NickM]

какой такой выделяет-шмыделяет? »

denis19, Сам выделяет и запускает сценарий.
Т.е. пользователю хочется автоматизировать выделение файлов в текущем окне проводника "Windows";

чего хотите добиться в итоге? »

Щёлкать по любому файлу в проводнике, вызывать по ПКМ меню, выбирать строчку "Выделить файлы по расширению", к которому присобачен какой-нибудь сценарий, и в проводнике все файлы расширения выделенного файла выделяются;

какая изначальную цель? »

Автоматизировать множественное выделение однотипных файлов, файлов с одинаковым расширением.

[denis19]

нужно больше информации - какой такой выделяет-шмыделяет ? в смылсе - чего хотите добиться в итоге ? какая изначальную цель ? »

Как обычная кнопка выделить "все", только эта будет выделять тоже все, но только с тем расширением, на который нажал мышью. А цель, чтоб избавиться от лишних кнопок вариантов удаления, копирования, перемещения и пр. С одной этой "выделить" я уже сам буду делать нужные действия.

[NickM]

Неа, ошибку выдаёт аж в двух окошках. Подскажите пожалуйста что дополнить-удалить там? »

Так ведь это направление, с чего можно было бы начать.

Вот, второе направление.

В итоге, могло бы получиться что-нибудь этакое:

Запуск *.vbs сценария:

Код:

@echo off
set ext=%~x1
set ext=%ext:~1%
set cdir=%~dp0%
cscript //nologo сценарий.vbs "%cdir%"  %ext%

Сам *.vbs-сценарий:

Код:

Option Explicit

Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim oList : Set oList = CreateObject("System.Collections.ArrayList")
Dim objShellAPP : Set objShellAPP = CreateObject("Shell.Application")
Dim oItem
GetFileFolder objFSO.GetFolder(WScript.Arguments(0))
With objShellAPP.Windows(objShellAPP.Windows.Count - 1).document
For Each oItem In oList
.SelectItem .Folder.Items.Item(oItem), 17
Next
End With

Sub GetFileFolder(objFolder)
Dim objFile, objSubFolder
For Each objFile In objFolder.Files
If LCase(objFSO.GetExtensionName(objFile.Name)) = WScript.Arguments(1) Then
oList.Add objFile.Name
End If
Next
End Sub

Специалисты в теме, полагаю, предложат правильный вариант, а здесь просто копи-паст.

[Serguei Kouzmine]

к которому присобачен какой-нибудь сценарий...
я уже сам буду делать нужные действия.
о заколачивании гвоздей микроскопом мечтаете
(другими словами)

напишите ярлык в котором скриптюня в котором комдана

Код:

сделать то что надо %~d1 *.%~x1.

и его вызывайте

[denis19]

Запуск *.vbs сценария: »

Ни тот ни другой не работает. Я не понял как из запускать. Может их объединять надо?

[NickM]

Ни тот ни другой не работает. Я не понял как из запускать. Может их объединять надо? »

Работает именно так как и заявлено, смотрим:
Демонстрация.zip