Не работает xcopy

@НиколайВасильев · Регистрация: 02.12.2015

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

Подскажите, что не так?
Почему такой код работает

Visual Basic

Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")
b="C:\windows"
Msgbox b
Set oExec = WshShell.Exec("xcopy " & b & " . /T")
 
Do While oExec.Status = 0
       WScript.Sleep 100
Loop
 
WScript.Echo oExec.Status

,но если указать напр. b="C:\Windows\System32" или Set oExec = WshShell.Exec("xcopy C:\Windows\System32 . /T")
,то не работает, что тут не так??
VBS не допускает вложенные папки?
Имена папок для примера только. Параметр "/T" для проверки работы скрипта.
Реально будет 4 уровень вложенности.
Заранее спасибо за помощь!

FlasherX · 01.11.2019, 05:05

НиколайВасильев
1. У VBS другой раздел (ждём переноса).
2. Для создания пустой структуры папок вы используете xcopy. Так чего на VBS жалуетесь?
xcopy без разницы, какой каталог вы укажите — %WinDir% или %WinDir%\System32, если к обоим будет доступ чтения.
Не вижу никаких проблем с уровнем вложенности. Всё отрабатывает чётко с любым уровнем вложенности. Не понимаю, почему вы решили, что их всего 4:
.\BestPractices\v1.0\Models\Microsoft\Windows\WebServer\ru-RU\
.\config\systemprofile\Application Data\Acapela Group\HW2L\UserLexicons\
3. И зачем нужно определять Status? Что он вам даёт?

@НиколайВасильев · 01.11.2019, 08:37 **[ТС]**

FlasherX,

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

Так чего на VBS жалуетесь?

я не жалуюсь, я только спросил
почему Set oExec = WshShell.Exec("xcopy C:\aaa\bbb\cccc . /T")
не работает, но Set oExec = WshShell.Exec("xcopy C:\aaa . /T") работает без проблем

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

И зачем нужно определять Status? Что он вам даёт?

Мне статус вообще не нужен. Этот скрипт с xcopy взят с сайта мелкомягких для проверки работоспособности.
До этого, мне не приходилось запускать xcopy из vbs, потому взял готовый.
Собственно и vbs мне был бы не нужен вообще, если бы в bat была возможность работы со строчками.
Мой bat работает уже лет 10, но понадобилось менять принимаемый параметр, потому смотрю vbs.

FlasherX · 01.11.2019, 09:04

НиколайВасильев, и что вы хотите? Я вам написал, что всё работает.
Весь скрипт: CreateObject("WScript.Shell").Run "xcopy %windir%\system32 . /T", 0

Сообщение от НиколайВасильев

если бы в bat была возможность работы со строчками.

Какой именно работы?

Добавлено через 2 минуты
Да, ещё момент. У вас система x64? Если да, то из под процесса какой битности вы скрипт запускаете?

@НиколайВасильев · 01.11.2019, 09:28 **[ТС]**

FlasherX, windows 7x64, запускаю из FAR для отладки(будет на десктоп иконка), не работает. Насчет битности и версии виндоус мелкомягкие ничего не сообщают ничего.

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

Какой именно работы?

Строку параметра теперь нужно модифицировать(добавить/убрать/переставить местами некоторые символы).

FlasherX · 01.11.2019, 09:41

Сообщение от НиколайВасильев

Насчет битности и версии виндоус мелкомягкие ничего не сообщают ничего.

При чём тут мелкомягкие (вы и так x64 у винды написали)?

FAR какой битности?

Сообщение от НиколайВасильев

Строку параметра теперь нужно модифицировать(добавить/убрать/переставить местами некоторые символы).

Не знаю, о каком параметре речь, но насчёт редакторования файлов там без стороннего софта (типа ssed, nhrt, fart) всё делается только через одно место.

@НиколайВасильев · 01.11.2019, 10:47 **[ТС]**

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

о каком параметре речь

о принимаемом через %1 в .bat или через WScript.Arguments(0) в .vbs

FlasherX · 01.11.2019, 11:09

Вы мне на вопрос не ответили.
С параметром ясно. Тогда это более тривиальная задача для bat.

@НиколайВасильев · 01.11.2019, 13:47 **[ТС]**

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

Тогда это более тривиальная задача для bat

в bat есть возможность работы со строками? замена подстроки и отрезание части строки?

FlasherX · 01.11.2019, 14:59

Можно, только к сабжу это не имеет отношения.

@НиколайВасильев · 01.11.2019, 15:39 **[ТС]**

FlasherX,
Запустил этот vbs в окне C:\Windows\SysWOW64\cmd
(Разумеется, "." заменил на путь)
Не работает, т.е. far здесь вообще не причём.
Шутка с битностью не удалась.

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

Можно

В bat нет ф-ций аналогичных substr or mid, length, replace
Без них не нельзя.

FlasherX · 01.11.2019, 16:18

НиколайВасильев, я не понимаю, что вы хотите от работы кода. Рабочий каталог тут к делу не относится. Поэтому дайте делать вывод другим, при чём far или нет, ответив на поставленный вопрос.

Сообщение от НиколайВасильев

Без них не нельзя.

Не нельзя = можно. В соотв. разделе тысячи примеров.

FlasherX 6338 / 2764 / 1072 Регистрация: 06.06.2017 Сообщений: 9,409
	01.11.2019, 05:05	2
	НиколайВасильев 1. У VBS другой раздел (ждём переноса). 2. Для создания пустой структуры папок вы используете xcopy. Так чего на VBS жалуетесь? xcopy без разницы, какой каталог вы укажите — %WinDir% или %WinDir%\System32, если к обоим будет доступ чтения. Не вижу никаких проблем с уровнем вложенности. Всё отрабатывает чётко с любым уровнем вложенности. Не понимаю, почему вы решили, что их всего 4: .\BestPractices\v1.0\Models\Microsoft\Windows\WebServer\ru-RU\ .\config\systemprofile\Application Data\Acapela Group\HW2L\UserLexicons\ 3. И зачем нужно определять Status? Что он вам даёт? 0

@НиколайВасильев 12 / 12 / 2 Регистрация: 02.12.2015 Сообщений: 620
	01.11.2019, 08:37 [ТС]	3
	FlasherX, Сообщение от FlasherX Так чего на VBS жалуетесь? я не жалуюсь, я только спросил почему Set oExec = WshShell.Exec("xcopy C:\aaa\bbb\cccc . /T") не работает, но Set oExec = WshShell.Exec("xcopy C:\aaa . /T") работает без проблем Сообщение от FlasherX И зачем нужно определять Status? Что он вам даёт? Мне статус вообще не нужен. Этот скрипт с xcopy взят с сайта мелкомягких для проверки работоспособности. До этого, мне не приходилось запускать xcopy из vbs, потому взял готовый. Собственно и vbs мне был бы не нужен вообще, если бы в bat была возможность работы со строчками. Мой bat работает уже лет 10, но понадобилось менять принимаемый параметр, потому смотрю vbs. 0

FlasherX 6338 / 2764 / 1072 Регистрация: 06.06.2017 Сообщений: 9,409
	01.11.2019, 09:04	4
	НиколайВасильев, и что вы хотите? Я вам написал, что всё работает. Весь скрипт: `CreateObject("WScript.Shell").Run "xcopy %windir%\system32 . /T", 0` Сообщение от НиколайВасильев если бы в bat была возможность работы со строчками. Какой именно работы? Добавлено через 2 минуты Да, ещё момент. У вас система x64? Если да, то из под процесса какой битности вы скрипт запускаете? 0

@НиколайВасильев 12 / 12 / 2 Регистрация: 02.12.2015 Сообщений: 620
	01.11.2019, 09:28 [ТС]	5
	FlasherX, windows 7x64, запускаю из FAR для отладки(будет на десктоп иконка), не работает. Насчет битности и версии виндоус мелкомягкие ничего не сообщают ничего. Сообщение от FlasherX Какой именно работы? Строку параметра теперь нужно модифицировать(добавить/убрать/переставить местами некоторые символы). 0

FlasherX 6338 / 2764 / 1072 Регистрация: 06.06.2017 Сообщений: 9,409
	01.11.2019, 09:41	6
	Сообщение от НиколайВасильев Насчет битности и версии виндоус мелкомягкие ничего не сообщают ничего. При чём тут мелкомягкие (вы и так x64 у винды написали)? FAR какой битности? Сообщение от НиколайВасильев Строку параметра теперь нужно модифицировать(добавить/убрать/переставить местами некоторые символы). Не знаю, о каком параметре речь, но насчёт редакторования файлов там без стороннего софта (типа ssed, nhrt, fart) всё делается только через одно место. 0

@НиколайВасильев 12 / 12 / 2 Регистрация: 02.12.2015 Сообщений: 620
	01.11.2019, 10:47 [ТС]	7
	Сообщение от FlasherX о каком параметре речь о принимаемом через %1 в .bat или через WScript.Arguments(0) в .vbs 0

FlasherX 6338 / 2764 / 1072 Регистрация: 06.06.2017 Сообщений: 9,409
	01.11.2019, 11:09	8
	Вы мне на вопрос не ответили. С параметром ясно. Тогда это более тривиальная задача для bat. 0

@НиколайВасильев 12 / 12 / 2 Регистрация: 02.12.2015 Сообщений: 620
	01.11.2019, 13:47 [ТС]	9
	Сообщение от FlasherX Тогда это более тривиальная задача для bat в bat есть возможность работы со строками? замена подстроки и отрезание части строки? 0

FlasherX 6338 / 2764 / 1072 Регистрация: 06.06.2017 Сообщений: 9,409
	01.11.2019, 14:59	10
	Можно, только к сабжу это не имеет отношения. 0

@НиколайВасильев 12 / 12 / 2 Регистрация: 02.12.2015 Сообщений: 620
	01.11.2019, 15:39 [ТС]	11
	FlasherX, Запустил этот vbs в окне C:\Windows\SysWOW64\cmd (Разумеется, "." заменил на путь) Не работает, т.е. far здесь вообще не причём. Шутка с битностью не удалась. Сообщение от FlasherX Можно В bat нет ф-ций аналогичных substr or mid, length, replace Без них не нельзя. 0

	01.11.2019, 16:18