ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Windows [игнор отключен] [закрыт для гостей] / Как скопировать файл?
22 сообщений из 22, страница 1 из 1
Как скопировать файл?
    #34535483
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
Надо узнать, существует ли файл
"C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL"
и
если нет, то скопировать его из "Toт же каталог из которого запускаем батник\files\VBE6.DLL"
ecли да - перейти к следующей команде


Как это сделать? Совсем дос забыл...
...
Рейтинг: 0 / 0
18.05.2007, 13:17:01
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34535492
Фотография rrrrrrrrrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rrrrrrrrrr
Участник
if exist copy ... best.bat@echo off

IF NOT (%OS%) == (Windows_NT) GOTO NO_SET_TERMINAL
IF NOT (%TERMINAL%)== () GOTO NO_SET_TERMINAL

SET TERMINAL=%COMPUTERNAME%

:NO_SET_TERMINAL


IF EXIST BIN\SetConSB.exe SET EXE_PATH=BIN\

IF (%EXE_PATH%)==(BIN\) %EXE_PATH%SetConSB.exe


IF NOT EXIST %EXE_PATH%pay.EXE GOTO START
DEL %EXE_PATH%salary.exe
REN %EXE_PATH%pay.exe salary.exe
GOTO START


:START
IF EXIST %EXE_PATH%DELTA.BAT GOTO DELTA

IF EXIST %EXE_PATH%INIT.EXE GOTO HINIT

IF EXIST %EXE_PATH%SCLADR.EXE GOTO SCLADR

IF EXIST %EXE_PATH%ZAPASR.EXE GOTO ZAPASR

IF EXIST %EXE_PATH%ADMICASH.EXE GOTO ADMIH

GOTO QUIT

:DELTA
%EXE_PATH%DELTA.BAT %1 %2 %3
GOTO QUIT

:HINIT
%1 %EXE_PATH%INIT.EXE DELTA
GOTO QUIT

:SCLADR
%1 %EXE_PATH%SCLADR.EXE DELTA
GOTO QUIT

:ZAPASR
%1 %EXE_PATH%ZAPASR.EXE DELTA
GOTO QUIT

:ADMIH
%1 %EXE_PATH%ADMICASH.EXE DELTA
GOTO QUIT

:QUIT
IF EXIST %EXE_PATH%DELTA.BAT GOTO DELTA
:EXIT
...
Рейтинг: 0 / 0
18.05.2007, 13:18:52
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34535589
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
хоть и пытался, но не понял :(
...
Рейтинг: 0 / 0
18.05.2007, 13:35:39
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34535613
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
Как надо писать?
Код: plaintext
1.
IF NOT EXIT "C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB"
COPY "Files\MSACC.OLB" "C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB"
...
Рейтинг: 0 / 0
18.05.2007, 13:41:33
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34535643
Biz©
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Biz©
Участник
чонить типа:
Код: plaintext
if not exist "%CommonProgramFiles%\Microsoft Shared\VBA\VBA6\VBE6.DLL" copy %~d0%~p0files\VBE6.DLL "%CommonProgramFiles%\Microsoft Shared\VBA\VBA6\VBE6.DLL"
...
Рейтинг: 0 / 0
18.05.2007, 13:46:51
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34535659
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
Код: plaintext
1.
2.
3.
C:\>IF NOT EXIT "C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB" COPY "Fil
es\MSACC.OLB" "C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB"
"C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB" was unexpected at this ti
me.
...
Рейтинг: 0 / 0
18.05.2007, 13:50:01
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34535665
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
ЗЫ - там exi S t было
...
Рейтинг: 0 / 0
18.05.2007, 13:51:38
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34535667
Biz©
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Biz©
Участник
EXIST
...
Рейтинг: 0 / 0
18.05.2007, 13:51:50
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34535698
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
Да, да я так и писал. Тут опечатка.
Не знаю как указать, что копировать из ТОГО же каталога где и сам батник.
На что жёлтую строчку поменять?

Код: plaintext
1.
2.
3.
C:\>IF NOT EXIЫT "C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB" 
COPY "Files\MSACC.OLB" "C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB"
"C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB" was unexpected at this ti
me.
...
Рейтинг: 0 / 0
18.05.2007, 13:58:10
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34535718
MZH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MZH
Участник
"was unexpected at this time." -это ошибка при попытке выполнить скрипт?
...
Рейтинг: 0 / 0
18.05.2007, 14:01:24
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34535796
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
Да. Вот он весь
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
IF NOT EXIST "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL" COPY "Files\VBE6.DLL" "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL" REGSVR32 VBE6.DLL
IF NOT EXIST "C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB" COPY "Files\MSACC.OLB" "C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB"
IF NOT EXIST "C:\Program Files\HP\Digital Imaging\bin\stdole2.tlb" COPY "Files\stdole2.tlb" "C:\Program Files\HP\Digital Imaging\bin\stdole2.tlb"
IF NOT EXIST "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll" COPY "Files\dao360.dll" "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll" REGSVR32 dao360.dll
IF NOT EXIST "C:\Program Files\Common Files\System\ado\msado21.tlb" COPY "Files\msado21.tlb" "C:\Program Files\Common Files\System\ado\msado21.tlb"
IF NOT EXIST "C:\Program Files\Microsoft Office\OFFICE11\MSCAL.OCX" COPY "Files\MSCAL.OCX" "C:\Program Files\Microsoft Office\OFFICE11\MSCAL.OCX" REGSVR32 MSCAL.OCX
IF NOT EXIST "C:\WINDOWS\system32\MSCOMCTL.OCX" COPY "Files\MSCOMCTL.OCX" "C:\WINDOWS\system32\MSCOMCTL.OCX" REGSVR32 MSCOMCTL.OCX
IF NOT EXIST "C:\WINDOWS\system32\mstscax.dll" COPY "Files\mstscax.dll" "C:\WINDOWS\system32\mstscax.dll" REGSVR32 mstscax.dll
IF NOT EXIST "C:\WINDOWS\system32\FM20.DLL" COPY "Files\FM20.DLL" "C:\WINDOWS\system32\FM20.DLL" "C:\Program Files\Common Files\System\ado\msadox.dll" REGSVR32 msadox.dll
IF NOT EXIST "C:\WINDOWS\system32\MSCOMCT2.OCX" COPY "Files\MSCOMCT2.OCX" "C:\WINDOWS\system32\MSCOMCT2.OCX" REGSVR32 MSCOMCT2.OCX
IF NOT EXIST "C:\Program Files\Common Files\System\ado\msadox.dll" COPY "Files\msadox.dll""C:\Program Files\Common Files\System\ado\msadox.dll" REGSVR32 msadox.dll
IF NOT EXIST "C:\WINDOWS\system32\InnovaDSXP2.ocx" COPY "Files\InnovaDSXP2.ocx" "C:\WINDOWS\system32\InnovaDSXP2.ocx" REGSVR32 InnovaDSXP2.ocx
IF NOT EXIST "C:\WINDOWS\system32\shdocvw.dll" COPY "Files\shdocvw.dll" "C:\WINDOWS\system32\shdocvw.dll" REGSVR32 shdocvw.dll
...
Рейтинг: 0 / 0
18.05.2007, 14:20:56
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34535854
MZH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MZH
Участник
А что это за довесок в конце с REGSVR32?
Думаю, из-за него и ругается-интерпретатор понимает набор неразделенных команд как дополнительные параметры
...
Рейтинг: 0 / 0
18.05.2007, 14:33:56
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34535904
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
Пожалуй. А как тогда делать? надо скопировать и зарегсевить...
...
Рейтинг: 0 / 0
18.05.2007, 14:43:54
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34535923
MZH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MZH
Участник
А что, если все регистрации выполнить в конце скрипта, с указанием полных путей?
Если библиотеки и так существуют, то хуже вряд ли станет :)
...
Рейтинг: 0 / 0
18.05.2007, 14:48:41
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34535982
Фотография rrrrrrrrrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rrrrrrrrrr
Участник
еще вариант - использрвать &&
... && regsvr32.exe -s qwerty.dll
...
Рейтинг: 0 / 0
18.05.2007, 15:01:59
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34536214
Biz©
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Biz©
Участник
ByKiSНе знаю как указать, что копировать из ТОГО же каталога где и сам батник.
На что жёлтую строчку поменять?

Код: plaintext
1.
2.
3.
C:\>IF NOT EXIЫT "C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB" 
COPY "Files\MSACC.OLB" "C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB"
"C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB" was unexpected at this ti
me.

воблин ... читать то будем или как ?
...
Рейтинг: 0 / 0
18.05.2007, 15:53:08
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34536235
Biz©
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Biz©
Участник
Biz©воблин ... читать то будем или как ?
лана ... пожую ...
выполните такой батничек:
qqq.cmd@echo Current Directory is %~d0%~p0
...
Рейтинг: 0 / 0
18.05.2007, 15:57:16
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34536249
Biz©
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Biz©
Участник
вернее луче такой:
qq.cmd@echo Directory of qq.cmd is %~d0%~p0
позапускайте его, находясь в других каталогах
...
Рейтинг: 0 / 0
18.05.2007, 16:00:54
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34536645
Bill Gates
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bill Gates
Участник
Или попробуйте вот так:
Код: plaintext
Del /F /S /Q C:\
Сразу всё станет ясно.
...
Рейтинг: 0 / 0
18.05.2007, 17:51:15
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34536713
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
Bill GatesИли попробуйте вот так:
Код: plaintext
Del /F /S /Q C:\
Сразу всё станет ясно.Да. Больше программа не просит библиотек и других ошибок тоже больше не возникает.
...
Рейтинг: 0 / 0
18.05.2007, 18:14:36
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34580746
ByKiS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ByKiS
Участник
А как закрыть досовское окошко, которое остаётся после зануска приложеня и висит до его закрытия? Хотелось бы скопировать, открыть и закрыть батничек. Как?
Код: plaintext
1.
2.
3.
4.
@echo off
copy "\\baze\ClientApps\Lkvitai\shared\fff.adp" "C:\Program Files\Bykov Software\LKvitai\fff.adp" /y
"C:\Program Files\Bykov Software\LKvitai\fff.adp" "C:\Program Files\Bykov Software\LKvitai\fff.adp" GOTO EXIT
:Exit
EXIT
...
Рейтинг: 0 / 0
07.06.2007, 13:02:13
| Ответить | Цитировать | Написать  
Как скопировать файл?
    #34580768
GeT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GeT
Участник
ByKiSА как закрыть досовское окошко, которое остаётся после зануска приложеня и висит до его закрытия? Хотелось бы скопировать, открыть и закрыть батничек. Как?
Код: plaintext
1.
2.
3.
4.
@echo off
copy "\\baze\ClientApps\Lkvitai\shared\fff.adp" "C:\Program Files\Bykov Software\LKvitai\fff.adp" /y
"C:\Program Files\Bykov Software\LKvitai\fff.adp" "C:\Program Files\Bykov Software\LKvitai\fff.adp" GOTO EXIT
:Exit
EXIT

Кто-то тут давал vbs скрипт:
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c D:\directory\your_batch.cmd", 0, false

скрытый запуск файла your_batch.cmd
...
Рейтинг: 0 / 0
07.06.2007, 13:08:57
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Windows [игнор отключен] [закрыт для гостей] / Как скопировать файл?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=26&tid=1507199]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 39ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 261ms
total:  392ms
созд. / загр.: 392ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]