Текущие дата и время: 14 декабря 2024, 21:50:00

Многопоточное автокопирование файлов в несколько адресов

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

Многопоточное автокопирование файлов в несколько адресов

Сообщение DmitryS » 20 сентября 2022, 22:38



Как организовать процесс автоматизированного копирования файлов со съёмных и иных носителей информации (USB-флешек, карт памяти, внешних жёстких дисков, CD/DVD/Blu-Ray приводов, FDD (Floppy) устройств, сетевых, виртуальных, RAM-дисков и др.) одновременно в несколько адресов в ОС Microsoft Windows?



01. Скачиваем на компьютер программу FDFRun.
02. Устанавливаем программу в папку: "C:\Program Files\VRCP Soft\FDFRun\".

03. Скачиваем на компьютер программу FDFSpy.
04. Устанавливаем программу в папку: "C:\Program Files\VRCP Soft\FDFSpy\".

05. Запускаем программу FDFSpy, настраиваем, сохраняем и выходим,
      не добавляя программу в автозапуск с операционной системой!

06. Переименовываем папку "C:\Program Files\VRCP Soft\FDFSpy\"
      в "C:\Program Files\VRCP Soft\FDFSpy1\".

07. Создаём копию папки "C:\Program Files\VRCP Soft\FDFSpy1\"
      в "C:\Program Files\VRCP Soft\FDFSpy2\".

08. Переименовываем в папке "C:\Program Files\VRCP Soft\FDFSpy1\"
      файл "FDFSpy.exe" в "FDFSpy1.exe".

09. Переименовываем в папке "C:\Program Files\VRCP Soft\FDFSpy2\"
      файл "FDFSpy.exe" в "FDFSpy2.exe".

10. Открываем в папке "C:\Program Files\VRCP Soft\FDFSpy2\" файл "FDFSpy.ini"
      и изменяем путь, куда нужно сохранять файлы.

11. Создаём в папке "C:\Program Files\VRCP Soft\FDFRun\"

      a) либо файл: "FDFSpy.vbs" (fdfsmd.zip) со следующим содержимым:

Option Explicit
On Error Resume Next
Dim WSHShell, PsArgs, PsDrv
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set PsArgs = WScript.Arguments
PsDrv = UCase(Trim(PsArgs(0)))
If Len(PsDrv) > 0 Then PsDrv = Trim(Left(PsDrv,1))

If Len(PsDrv) = 1 Then
If Asc(PsDrv) > 64 And Asc(PsDrv) < 91 Then
WSHShell.Run """" & "C:\Program Files\VRCP Soft\FDFSpy1\FDFSpy1.exe " & """" & PsDrv
WSHShell.Run """" & "C:\Program Files\VRCP Soft\FDFSpy2\FDFSpy2.exe " & """" & PsDrv
End If
End If

Set PsArgs = Nothing
Set WSHShell = Nothing
WScript.Quit 0

      б) либо файл: "FDFSpy.cmd" (или .bat) (fdfsmd.zip) со следующим содержимым:

Код: Выделить всё
@echo off
if "%1" NEQ "" (
start "" "C:\Program Files\VRCP Soft\FDFSpy1\FDFSpy1.exe" %1
start "" "C:\Program Files\VRCP Soft\FDFSpy2\FDFSpy2.exe" %1
)
exit

12. Запускаем программу FDFRun и открываем "Настройки", далее в зависимости от выбранного в п.11 варианта {а} либо {б}, настраиваем программу соответствующим образом, согласно одному из скриншотов ниже:

Изображение  Изображение

13. Сохраняем настройки программы FDFRun, нажав на синюю кнопочку с изображением дискеты (нижний левый угол окна), добавляем программу в автозапуск с операционной системой, нажав зелёную кнопочку {+} (находящуюся там же в нижнем левом углу окна), сворачиваем программу в системный трей и тестируем проделанное путём подключения съёмных носителей информации и проверки содержимого папок для сохранения файлов, пути к которым указаны в обоих файлах "FDFSpy.ini" (см. п.06 и п.07 выше).




P.S.: В данном примере осуществляется одновременное копирование (дублирование) файлов только в две папки. При желании их количество можно увеличить, повторив шаги, указанные выше в п.07, п.09 и п.10 (продолжая создавать дополнительные копии: FDFSpy3, FDFSpy4, FDFSpy5 и т.д.), а также добавив дополнительные аналогичные строки для их запуска в сценариях (скриптах), указанных в п.11.


Аватара пользователя
DmitryS
 
Основатель
Основатель
 
Сообщения: 285
Зарегистрирован: 10 октября 2011, 14:53
Откуда: Russia, Moscow
Возраст: 44
Пол: муж.
 
Контакты:

Вернуться в Программные решения, доработки

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

cron