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

@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, как видно из приведённых мною данных, современность модулей здесь явно ни при чём, т.к. у меня всё нормально функционирует и на старых версиях.
Соображений о причине некорректной работы у вас пока предложить не могу.

Новые блоги и статьи Все статьи Все блоги /
Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker) anaschu 07.07.2026 Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .	Море в объективе kumehtar 06.07.2026 Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .
Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .

FlasherX 7001 / 2885 / 1110 Регистрация: 06.06.2017 Сообщений: 9,810
	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 7001 / 2885 / 1110 Регистрация: 06.06.2017 Сообщений: 9,810
	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 7001 / 2885 / 1110 Регистрация: 06.06.2017 Сообщений: 9,810
	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 7001 / 2885 / 1110 Регистрация: 06.06.2017 Сообщений: 9,810
	10.08.2017, 10:57
	Dmitrii, у меня только с lnk. Сложно даже представить, чем может быть вызвана эта проблема. А версию в точности такую проверяли? shell32.dll там же какой версии? 0

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

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