AHK: Копирование новых либо измененных файлов и директорий

copySourcePattern := "D:\1"
copyDest := "D:\1_Archive"

loop %copySourcePattern%\*,, 1
{
    StringReplace destDir, A_LoopFileDir, % copySourcePattern, % copyDest
    if FileExist(destDir) != "D"
        FileCreateDir % destDir
    dest := destDir . "\" . A_LoopFileName

    FileCopy, %A_LoopFileFullPath%, % dest
    if !ErrorLevel
        continue

    FileGetTime, time, % dest
    if (A_LoopFileTimeModified <= time)
        continue

    FileCopy, %A_LoopFileFullPath%, % dest, 1
    if ErrorLevel
        MsgBox, Could not copy "%A_LoopFileFullPath%" to "%dest%".
}

if FileExist(destDir) != "D"    ; типа проверку на то, что директории такой не существует (при возможности существования файла с таким же названием?)

    FileGetTime, time, % dest
    FileGetSize, size, % dest
    if (A_LoopFileTimeModified <= time) && (A_LoopFileSize = size)
        continue

 FileGetTime, time, % dest
    if (A_LoopFileTimeModified <= time)
        continue

    FileGetTime, time, % dest
    FileGetSize, size, % dest
    if (A_LoopFileTimeModified <= time) && (A_LoopFileSize = size)
        continue

Z := GetDriveByLabel("USB_HDD")":"
n = 0
loop, 30
{
   if Z!=:
      break
   sleep, 1000
   n++
}
if n = 30
{
   MsgBox, 4096, USB_HDD, ERROR!
   ExitApp
}

copySourcePattern := "G:"
copyDest := Z

loop %copySourcePattern%\*,, 1
{
    StringReplace destDir, A_LoopFileDir, % copySourcePattern, % copyDest
    if FileExist(destDir) != "D"
        FileCreateDir % destDir
    dest := destDir . "\" . A_LoopFileName

    FileCopy, %A_LoopFileFullPath%, % dest
    if !ErrorLevel
        continue

    FileGetTime, time, % dest
    FileGetSize, size, % dest
    if (A_LoopFileTimeModified = time) && (A_LoopFileSize = size)
        continue

    FileCopy, %A_LoopFileFullPath%, % dest, 1
    if ErrorLevel
        MsgBox, Could not copy "%A_LoopFileFullPath%" to "%dest%".
}
sleep 5000
Run, D:\Abola\USB_HDD\RemUMS.exe %copyDest%
sleep 5000
MsgBox, 4096, USB_HDD, DONE!
ExitApp


GetDriveByLabel(pLabel)
{
  DriveGet, var, List
  Loop, Parse, var
  {
    DriveGet, var, Label, %A_LoopField%:
    If ( var = pLabel )
      Return A_LoopField  ;  if found, will return the drive's letter
  }
}

Z := GetDriveByLabel("USB_HDD")":"   ; Если диск с таким лейблом есть, то переменной присуждается буква с двоеточим.
loop, 30   ; даем 30 секунд на распознование диска
{
   if Z!=:   ; если буква есть, а не одно двоеточие
      break
   sleep, 1000
   n++
}
if n = 30    
{
   MsgBox, 4096, USB_HDD, ERROR!
   ExitApp
}

loop, 30
{
   Z := GetDriveByLabel("USB_HDD")":"
   if Z!=:
      break
   sleep, 1000
   n++
}
if n = 30
{
   MsgBox, 4096, USB_HDD, ERROR!
   ExitApp
}

copySourcePattern := "G:"
copyDest := Z

loop %copySourcePattern%\*,, 1
{
    StringReplace destDir, A_LoopFileDir, % copySourcePattern, % copyDest
    if FileExist(destDir) != "D"
        FileCreateDir % destDir
    dest := destDir . "\" . A_LoopFileName

    FileCopy, %A_LoopFileFullPath%, % dest
    if !ErrorLevel
        continue

    FileGetTime, time, % dest
    FileGetSize, size, % dest
    if (A_LoopFileTimeModified = time) && (A_LoopFileSize = size)
        continue

    FileCopy, %A_LoopFileFullPath%, % dest, 1
    if ErrorLevel
        MsgBox, Could not copy "%A_LoopFileFullPath%" to "%dest%".
}
sleep 5000
Run, D:\Abola\USB_HDD\RemUMS.exe %copyDest%
sleep 5000
MsgBox, 4096, USB_HDD, DONE!
ExitApp


GetDriveByLabel(pLabel)
{
  DriveGet, var, List
  Loop, Parse, var
  {
    DriveGet, var, Label, %A_LoopField%:
    If ( var = pLabel )
      Return A_LoopField  ;  if found, will return the drive's letter
  }
}