Поиск файлов по маске и вывести на экран

@AntiKaries · Регистрация: 25.06.2015

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

Здрасте, нужно найти все файлы по маске и вывести с сообщением
Код ниже делает поиск, но не по маске. Помогите преобразовать

Visual Basic
1
2
3
4
set FSO = CreateObject("Scripting.FileSystemObject")
For each file in FSO.GetFolder("D:\").Files 'каталог
    MsgBox file
Next

Если есть уже темы скиньте, а то я плохо искал

FlasherX · 08.08.2017, 21:56

Dmitrii, ошибаетесь. IsLink возвращает Истина для всех url, которые в папке, включая и этот. Это проверялось ещё до вашего первого кода.

@Dmitrii · 09.08.2017, 06:32

FlasherX, проверил работоспособность своего варианта на Win 7. Как и ожидалось,- работает.
Посему было бы любопытно взглянуть на ваши ярлыки, не поддерживающие свойство WorkingDirectory. Не приложите ли архив с образчиком такого ярлыка?

FlasherX · 09.08.2017, 13:05

Dmitrii
Самый наипростейший ya.url в ANSI или UTF-16:

Code
1
2
[InternetShortcut]
URL=http://ya.ru

@Dmitrii · 09.08.2017, 14:20

FlasherX, меня интересовало не содержимое url-ярлыка (у самого такие имеются), а экземпляр именно вашего ярлыка, т.к. работа со свойством WorkingDirectory всех имеющихся у меня ярлыков выполняется обсуждаемым сценарием корректно (о чём уже и было сказано).

FlasherX · 09.08.2017, 14:57

Dmitrii
Я просто открыл блокнот, вставил код и сохранил. Всё. Вот весь экземпляр.

@Dmitrii · 09.08.2017, 15:40

FlasherX, в таком случае, у вас имеются проблемы в работе WSH.
Данный вывод сделан на основании того, что обсуждаемый сценарий у меня корректно работает на линейке XP/2003R2/7/8.1/2012R2 (версии сервера сценариев составляют линейку 5.6/5.7/5.8).

FlasherX · 09.08.2017, 16:15

Dmitrii, возможно, у меня вообще GetLink с url не взаимодействует.

Visual Basic
1
2
3
4
5
6
URLFile = "D:\Test\ya.url"
 
With CreateObject("Scripting.FileSystemObject").CreateTextFile(URLFile, 1)
    .Write "[InternetShortcut]" & VbCrLf & "URL=http://ya.ru" : .Close
End With
Set Link  = CreateObject("Shell.Application").NameSpace(0).ParseName(URLFile).GetLink

Ошибка та же.

@Dmitrii · 09.08.2017, 17:35

FlasherX, какова версия сервера сценариев?

FlasherX · 09.08.2017, 18:02

Dmitrii, 5.8.7600.16385.

@Dmitrii · 10.08.2017, 07:32

FlasherX, стало быть, гарантировано имеются проблемы в работе WSH, т.к. и версия сервера сценариев обеспечивает поддержку свойств GetLink и WorkingDirectory у соответствующих объектов, и последний приведённый вами сценарий у меня работает корректно.

FlasherX · 10.08.2017, 10:57

Dmitrii, у меня только с lnk. Сложно даже представить, чем может быть вызвана эта проблема. А версию в точности такую проверяли? shell32.dll там же какой версии?

@Dmitrii · 10.08.2017, 13:21

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

... версию в точности такую проверяли?..

В точности такой у меня нет, но ваш сценарий работает и на более новых и на более старых версиях. Вот список пар в виде ВЕРСИЯ СЕРВЕРА СЦЕНАРИЕВ/ВЕРСИЯ БИБЛИОТЕКИ SHELL32.DLL:
5.6.0.8832/6.0.3790.5558
5.7.0.16599/6.0.2900.6242
5.8.7601.18283/6.1.7601.23806
5.8.9600.17415/6.3.9600.17680
5.8.9600.17415/6.3.9600.18692

FlasherX · 10.08.2017, 15:42

Заменил на современные модули — результат тот же.

@Dmitrii · 10.08.2017, 15:52

FlasherX, как видно из приведённых мною данных, современность модулей здесь явно ни при чём, т.к. у меня всё нормально функционирует и на старых версиях.
Соображений о причине некорректной работы у вас пока предложить не могу.

Новые блоги и статьи Все статьи Все блоги /
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, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,817
	08.08.2017, 21:56
	Dmitrii, ошибаетесь. IsLink возвращает Истина для всех url, которые в папке, включая и этот. Это проверялось ещё до вашего первого кода. 0

@Dmitrii 2619 / 549 / 109 Регистрация: 21.03.2012 Сообщений: 1,051
	09.08.2017, 06:32
	FlasherX, проверил работоспособность своего варианта на Win 7. Как и ожидалось,- работает. Посему было бы любопытно взглянуть на ваши ярлыки, не поддерживающие свойство WorkingDirectory. Не приложите ли архив с образчиком такого ярлыка? 0

@Dmitrii 2619 / 549 / 109 Регистрация: 21.03.2012 Сообщений: 1,051
	09.08.2017, 14:20
	FlasherX, меня интересовало не содержимое url-ярлыка (у самого такие имеются), а экземпляр именно вашего ярлыка, т.к. работа со свойством WorkingDirectory всех имеющихся у меня ярлыков выполняется обсуждаемым сценарием корректно (о чём уже и было сказано). 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,817
	09.08.2017, 14:57
	Dmitrii Я просто открыл блокнот, вставил код и сохранил. Всё. Вот весь экземпляр. 0

@Dmitrii 2619 / 549 / 109 Регистрация: 21.03.2012 Сообщений: 1,051
	09.08.2017, 15:40
	FlasherX, в таком случае, у вас имеются проблемы в работе WSH. Данный вывод сделан на основании того, что обсуждаемый сценарий у меня корректно работает на линейке XP/2003R2/7/8.1/2012R2 (версии сервера сценариев составляют линейку 5.6/5.7/5.8). 0

@Dmitrii 2619 / 549 / 109 Регистрация: 21.03.2012 Сообщений: 1,051
	09.08.2017, 17:35
	FlasherX, какова версия сервера сценариев? 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,817
	09.08.2017, 18:02
	Dmitrii, 5.8.7600.16385. 0

@Dmitrii 2619 / 549 / 109 Регистрация: 21.03.2012 Сообщений: 1,051
	10.08.2017, 07:32
	FlasherX, стало быть, гарантировано имеются проблемы в работе WSH, т.к. и версия сервера сценариев обеспечивает поддержку свойств GetLink и WorkingDirectory у соответствующих объектов, и последний приведённый вами сценарий у меня работает корректно. 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,817
	10.08.2017, 10:57
	Dmitrii, у меня только с lnk. Сложно даже представить, чем может быть вызвана эта проблема. А версию в точности такую проверяли? shell32.dll там же какой версии? 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,817
	10.08.2017, 15:42
	Заменил на современные модули — результат тот же. 0

@Dmitrii 2619 / 549 / 109 Регистрация: 21.03.2012 Сообщений: 1,051
	10.08.2017, 15:52
	FlasherX, как видно из приведённых мною данных, современность модулей здесь явно ни при чём, т.к. у меня всё нормально функционирует и на старых версиях. Соображений о причине некорректной работы у вас пока предложить не могу. 0