Копировать файл,игнорируя часть названия

@konovalec85 · Регистрация: 16.05.2018

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

Всем доброго времени суток.
Взялся делать скрипт VBS,есть разные коды,чел вводит тот или иной код и скрипт под каждый код, отдельно должен копировать файл.
Файлов много.в скрипте у меня прописано путь в той или иной папке где находится файл.возле него лежат файлы по имени различающийся только двумя символами. Путь также зависит от символов в коде,но как определять путь я придумал.
Например человек вводит код: AD15G11234DFS
а в папке лежат файлы 111234DK 111234DS 111234DF нужно выбрать файл в конце с 234DF,как игнорировать первые три символа,потому что они меняются.
Вот частичка кода моего:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If mid (zminaVariant,5,1)= "5" then 
                 
                                 'motor
                                 If mid (zminaVariant,7,1)="0" or mid (zminaVariant,7,1)="3" then 
                                 msgbox "motor"
                 end if
 
'LOL
                  If mid (zminaVariant,7,1)="1" or mid (zminaVariant,7,1)="4" then 
                                  TYP_Rylya="\A7_LOL\"
                                  KMVT="KM_"
                                  NAMEMODULE=mid (zminaVariant,8,3)
                                   Set FSO=CreateObject("Scripting.FileSystemObject")
                  SET file=fso.GetFile("S:\"& OrdA7&TYP_Rylya&KMVT&NAMEMODULE&"\"&zminaKW&"\"КАК ВОТ ЗДЕСЬ ПРОПИСАТЬ ВЕРНО НАЗВАНИЕ,ИГНОРИРУЯ ПЕРВиЕ ТРИ СИМВОЛА ИЗ НАЗВАНИЯ???)
                  file.Copy("D:\")

FlasherX · 18.06.2019, 13:21

Visual Basic
1
2
3
4
5
6
7
Set Shell = CreateObject("Shell.Application")
Set Items = Shell.NameSpace("S:\" & OrdA7 & TYP_Rylya & KMVT & NAMEMODULE).Items
Items.Filter 8224, "1111*"
If Items.Count = 0 Then MsgBox "Папок 1111* нет!", 4144: WSH.Quit
Set Items = Items.Item(0).GetFolder.Items
Items.Filter 8256, "???" & zminafaila & ".txt": If Items.Count Then _
Shell.NameSpace("D:").CopyHere Items: Items.InvokeVerbEx "open"

Новые блоги и статьи Все статьи Все блоги /
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 и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .