Проблема с батником

@Korzhik1991 · Регистрация: 31.01.2020

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

Привет. Помогите разобраться почему не работает батник

Батник собирает файлы картинки в одноименные папки, где совпадает 4 первые цыфры имени.
На ПК работает, но как только провожу аналогичную операцию на сервере, то выдает ошибку (во вложении скрин)

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
rem БАТ отсортирует файлы изображений по одноименным папкам у которых совпадают первые 4 цыфры
@echo off
setlocal EnableDelayedExpansion
set pict=*.png,*.jpg,*.ico,*.gif,*.tif
pushd
for /f "delims=" %%a in ('dir %pict% /b /a:-d') do (
set Where=%%a
set Where=!Where:~0,4!
if not exist !Where! md !Where!
move /y "%%a" !Where!\
)
popd
pause

@b0gus · 30.04.2020, 16:21

Добавлено через 4 минуты

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

Дописал. Вот скрин

а это означает, что на сервере у вас не срабатывает команда

Windows Batch file
1
setlocal EnableDelayedExpansion

вот отсюда и надо разбираться, кодировка скрипта не причём

@Karen87 · 30.04.2020, 16:29

b0gus, как раз срабатывает. Посмотрите, переменная раскрылась

FlasherX · 30.04.2020, 16:49

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

Буду благодарен, если укажешь ошибку.

В данную проверку попадают все расширения от одного до 4-х символов в подстроках переменной pict. И то только в нижнем регистре. Нужно делать так:

Visual Basic
1
If InStr(1, "|gif|jpg|png|ico|tif|", "|" & FSO.GetExtensionName(xFile.name) & "|", 1) Then

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

но геморнее и потребует больше строк

Как раз наоборот:

Visual Basic
1
2
3
4
5
6
7
8
9
Option Explicit: Dim oFolder, oItems, i, Folder
Set oFolder = CreateObject("Shell.Application")._
NameSpace(0).ParseName(WSH.ScriptFullName).Parent
Set oItems = oFolder.Items
oItems.Filter 8256, "*.gif;*.jpg;*.png;*.ico;*.tif"
For Each i In oItems
  Folder = Left(i.Name, 4): oFolder.NewFolder Folder
  oFolder.ParseName(Folder).GetFolder.MoveHere i, 5652
NExt

@b0gus · 30.04.2020, 18:14

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

как раз срабатывает. Посмотрите, переменная раскрылась

точно, проглядел )
тогда править pushd:

Windows Batch file
5
pushd "~dp0"

@Karen87 · 30.04.2020, 18:18

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

тогда править pushd:

Вы знаете, код автора темы сработал у меня на компьютере. Я всё-таки грешу на кодировку

@b0gus · 30.04.2020, 18:27

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

всё-таки грешу на кодировку

кодировка не виновата, просто ТС обращает внимание на:

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

Но не могу понять, почему на сервере не работает

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

Windows Batch file
1
setlocal EnableDelayedExpansion

Добавлено через 2 минуты

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

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

согласен, pushd не источник проблемы

@Karen87 · 30.04.2020, 18:28

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

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

А Вы думаете скриншот с сервера?

@b0gus · 30.04.2020, 18:34

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

А Вы думаете скриншот с сервера?

нет конечно, ТС скрин прислал с локальной машины, там всё OK, а далее сокрушается "почему же на сервере не работает? перейду-ка я на VBS" )
сообщение

@Karen87 · 30.04.2020, 18:40

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

нет конечно, ТС скрин прислал с локальной машины, там всё OK, а далее сокрушается "почему же на сервере не работает? перейду-ка я на VBS" )

Точно, не заметил ) Ну ждём комментариев.
P.S. До сих пор не могу понять, что значит ТС?

@b0gus · 30.04.2020, 18:43

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

что значит ТС?

примерно так: ТопикСтартер - человек, который поднял тему

@Karen87 · 30.04.2020, 18:48

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

примерно так: ТопикСтартер - человек, который поднял тему

Спасибо, буду знать

Новые блоги и статьи Все статьи Все блоги /
Мобильное приложение 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) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))

@Karen87 3449 / 1110 / 494 Регистрация: 29.05.2016 Сообщений: 4,566
	30.04.2020, 16:29
	b0gus, как раз срабатывает. Посмотрите, переменная раскрылась 0