Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Операционные системы > Windows
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.11.2019, 04:06   #1
rosteleco
Новичок
Джуниор
 
Регистрация: 29.11.2019
Сообщений: 1
По умолчанию батник скрипт - нужно настроить копирование данных(не системных файлов) с одного локального диска на другой локальный диск

Доброго всем времени суток!
Заранее извиняюсь если не по теме пишу.
Но нужен хелп очень сильно.
Задача такая: на виндовс 10 корпоративная нужно настроить копирование данных(не системных файлов) с одного локального диска на другой локальный диск. С чем столкнулся- при копировании командами xcopy, robocopy не происходит синхронизации данных на двух дисках, т.е. с рабочего диска новые данные копируются на резерв, но если на рабочем диске данные удалить, -на резерве они остаются и копия становится не очень актуальная. Нужно чтоб в определенное время сработал скрипт\батник и оба диска стали зеркалом. И если не очень сложно(т.к. для меня это лес дремучий) скинуть такой пример, чтоб я только буквы дисков поменял . Копировать нужно весь диск D:\*.* на F:\*.*
Заранее спасибо! ОГРОМНЕЙШЕЕ!!
rosteleko на форуме Обратить внимание администрации на это сообщение 0
rosteleco вне форума Ответить с цитированием
Старый 29.11.2019, 08:23   #2
waleri
Старожил
 
Регистрация: 13.07.2012
Сообщений: 6,493
По умолчанию

У robocopy есть опция /mir
waleri вне форума Ответить с цитированием
Старый 30.11.2019, 21:23   #3
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,792
По умолчанию

батника нет, есть программка маленькая. делал как раз для себя для таких вот целей - копировать с ноута данные на внешний винчестер.
проект компилируется на Delphi 5 или 7 спокойно.
в папке проекта ADAPI1.EXE переименуй в ADAPI.EXE - это чистилка, она подготавливает диск для копирования, удаляя на нём, что можно.
Вложения
Тип файла: rar CopyDisk.rar (29.3 Кб, 29 просмотров)
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.

Последний раз редактировалось NetSpace; 30.11.2019 в 21:27.
NetSpace вне форума Ответить с цитированием
Старый 02.12.2019, 10:11   #4
kzld
Форумчанин
 
Регистрация: 24.01.2009
Сообщений: 619
По умолчанию

Вот что мне сообщил антивирус :
360 Total Security обнаружил, что загруженный файл содержит троян, который может проникнуть в систему и воровать пароли, фотографии и личную информацию
Файл трояна: CopyDisk.rar
Risks: Троян (Win32/Trojan.17b)
kzld вне форума Ответить с цитированием
Старый 02.12.2019, 19:21   #5
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,792
По умолчанию

вот что внутри этого якобы страшного вируса. простая чистилка, чтоб диск был чистым и спокойно копировалось всё без лишних вопросов
Код:
program ADAPI; 
uses Windows,SysUtils,ShellAPI;
{$R dialog.res}

var SR:TSearchRec;
    SHFP:SHFILEOPSTRUCT;
    hFile:THandle;

begin
   hFile:=CreateFile(PChar(ExtractFilePath(ParamStr(0))+'ADAPI.EXE'),GENERIC_READ,FILE_SHARE_READ + FILE_SHARE_WRITE,Nil,OPEN_EXISTING,0,0);
   if(GetFileSize(hFile,nil)=20112)then//если файл упакован, то только тогда удаляем
   begin
      if FindFirst(ExtractFilePath(ParamStr(0))+'*.*',faHidden or faSysFile or faVolumeID or faDirectory,SR)=0 then
      repeat
       if(SR.Name<>'.')and(SR.Name<>'..')and(SR.Size<>20112)then//чтоб не удалил сам себя
       begin
          ZeroMemory(@SHFP,SizeOf(SHFP));
          with SHFP do
          begin
             wFunc:=FO_DELETE;
             pFrom:=PChar(ExtractFilePath(ParamStr(0))+SR.Name);
             fFlags:=FOF_NOCONFIRMATION;
          end;
          SHFileOperation(SHFP);
       end;
      until FindNext(SR)<>0;
      FindClose(SR);   
   end;
   CloseHandle(hFile);
end.
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование диапазона данных с одного листа на другой Аня Басова Microsoft Office Excel 9 04.02.2014 14:17
копирование данных из одного файла в другой kos987123 Microsoft Office Excel 3 11.09.2012 14:13
Как сделать автоматическое копирование данных с одного листа на другой ? Sorcessers Microsoft Office Excel 4 12.10.2011 09:46
Excel -скрипт сравнения двух файлов и копирования данных из одного в другой Snake_ Microsoft Office Excel 11 29.08.2010 13:19
Копирование данных из одного файла в другой! vipcrash Microsoft Office Excel 17 23.01.2010 21:11