Печать

[Medic84 [?]]

AutoIt: 3.3.6.1
Версия: 2.0.0.5
Категория: Автоматизация
Описание: Простая программа для синхронизации 2х папок.
Сравнивает папки Source и Destination, и если в Destination есть файлы у которых отличная дата модификации от Source или вообще не достает файлов, то копирует их.
Программа может вести логирование по скопированным файлам.
Количество папок для проверки ограниченно количеством секций в INI файле.
Screenshot:

История версий:

Код: [Выделить]

===Версия 2.0.0.5===
- Автозапуск
- Заработало удаление папок, и разрешил проблему с пустыми папками
- Двусторонняя синхронизация
- Привел в коде порядок (что бы не стыдно было показывать  ;D)
- Присвоил дочерние окна к формам настроек и добавления задания
- При выборе папок, теперь есть опция "Создать папку"

===Версия 2.0.0.4===
- Добавлена поддержка расширений
- Изменение записей
- GUI с процессом теперь прозрачное
- Убраны мелкие ошибки в программе (в сохранении, открытии, выборе папок и т.п.)
- Починено удаление (теперь после удаления можно нормально добавлять записи)
- Добавлен пункт в трей "Показать окно"

===Версия 2.0.0.3===
-Многочисленное исправление ошибок
-Переписанные логи
-Сделан GUI
-Сохранение, открытие файлов со списками папок
-Автоматическое открытие последнего файла, который использовался
-Окна Добавления папок, окно настроек
-Настраиваемый период проверки

===Версия 1.0.1.7===
-Первый публичный релиз, и тот с ошибками  :D


Источник: EXE (v.2.0.0.5)

AU3 (v.2.0.0.5)

Автор(ы): Medic84

P.S. От себя добавлю, что писалось в первую очередь для себя. Я пользуюсь сервисом DropBox, и вручную надоело копировать файлы и папки для синхронизации. А когда вообще забываешь - так это катастрофа 

[SECTOR [?]]

Ща потестим) наверно полезная штука)

[Medic84 [?]]

Забыл написать.
В Folders.ini записываются все папки.

Код: [Выделить]

["Название секции" - не важно]
Source=C:\EleanorServ\www\medlab.nu\templates\LighSteel   - папка откуда сверять
Destination=F:\DropBox\www\LighSteel    - папка с чем сверять


[SECTOR [?]]

Эх 

[Medic84 [?]]

Верно указал папки?
Да.. Программа сыровата... Надо допиливать - пока лето 

[SECTOR [?]]

Верно указал папки?

Да

[madmasles [?]]

Medic84,
Исходника не будет?

[Medic84 [?]]

Ну уж показал бы код что ли

madmasles
Мне стыдно его показывать 
Ну была, ни была...

[madmasles [?]]

Medic84,
Я добавил:

Код: AutoIt [Выделить]

;...
Func _FindFiles($sRoot, $sFol2, $sFile)
    Local $FileList, $hOpen, $DateTime
;...

Ругаться перестал.

[Medic84 [?]]

madmasles
Эх.. Объявления... В 2.0 исправлю))

[CreatoR [?]]

Medic84  [?]

Верно указал папки?

Верно или нет, это особо не важно, когда пишешь код, должен учитывать все ситуаций, программа не должна вылетать при отсутсвий файлов или записей в них, это как минимум.

[SECTOR [?]]

OffTopic

Классная штука этот DropBox! Да еще если в связке с AutoIt...

[Redline [?]]

Medic84

Код: [Выделить]

(116) : ==> Variable used without being declared.:
FileWrite($hOpen, $DateTime & "?????? ?? ???? ?????????????????. ??? ?? ?????.")
FileWrite(^ ERRORБуду следить за развитием 
Не хватает GUI с выбором папок, типа такого:

Код: AutoIt [Выделить]

#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <ProgressConstants.au3>

$hGUI = GUICreate('2 folders', 500, 160, -1, -1)

$hLabelSource = GUICtrlCreateLabel('Source:', 10, 10, 100, 21)
$hSourceInput = GUICtrlCreateInput(@ScriptDir, 10, 35, 480, 17, $ES_READONLY, $WS_EX_STATICEDGE)

$hLabelDestination = GUICtrlCreateLabel('Destination:', 10, 60, 100, 17)
$hDestinationInput = GUICtrlCreateInput(@ScriptDir & '\Dest', 10, 85, 480, 17, $ES_READONLY, $WS_EX_STATICEDGE)

$hStartButton = GUICtrlCreateButton('Start', 390, 120, 100, 30, $BS_DEFPUSHBUTTON+$BS_FLAT)

$hProgress = GUICtrlCreateProgress(10, 127, 360, 15, $PBS_SMOOTH)
GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = -3
            Exit
        Case $msg = $GUI_EVENT_PRIMARYDOWN
            $aCursor = GUIGetCursorInfo()
            If $aCursor[4] = $hSourceInput Then
                $fileIn = FileSelectFolder('Choose source folder', '', 0, @ScriptDir)
                If $fileIn = '' Then
                    GUICtrlSetData($hSourceInput, @ScriptDir)
                Else
                    GUICtrlSetData($hSourceInput, $fileIn)
                EndIf
                GUICtrlSetState($hStartButton, $GUI_FOCUS)
            ElseIf $aCursor[4] = $hDestinationInput Then
                $fileOut = FileSelectFolder('Choose destination folder', '', 1, @ScriptDir)
                If $fileOut = '' Then
                    GUICtrlSetData($hDestinationInput, @ScriptDir)
                Else
                    GUICtrlSetData($hDestinationInput, $fileOut)
                EndIf
                GUICtrlSetState($hStartButton, $GUI_FOCUS)
            EndIf
        Case $msg = $hStartButton
;~          ....
    EndSelect
WEnd

Из предложений - добавить поддержку архивов (хотя бы zip  ). Просто я скидываю папку в архив, а потом заливаю на флешку (архив одним файлом копируется быстрее). Тогда выйдет неплохая утилита для бэкапа.

[Medic84 [?]]

Redline
Да, да... Работа кипит =) Осталось только прикрепление основных функций и версия 2 готова 


Поддержки zip включать не буду, т.к. архив можно засунуть в папку и синхронизировать эту папку...

[Medic84 [?]]

Версия 2.0 готова 

Пользуемся, тестируем, указываем на ошибки =)

• KPOXA
• nowost
• tilek
• mechlab
• scanfail
• Александр
• GenoTIP
• c41320@rtrtr.com
• usrman
• ---Zak---
• Nurgazy
• Yashied
• madmasles
• Simdu
• Kaster
• SummerLeaf
• nu3dell
• Shirling
• XpycT
• asdf8
• JAE
• boble911
• ynbIpb
• uninstall
• nicotino
• Nelsy
• webmonster