Программа для безопасного вытаскивания USB HDD

Menu, Tray, Icon , %A_AhkPath%, 2, 1
#SingleInstance force

copyDest := GetDriveByLabel("USB_HDD", 30) 
If ( copyDest = "" ) {
    MsgBox, 4096, USB_HDD, ERROR! 
    ExitApp
} 
copySourcePattern := "G:"

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%".
}

RunWait, D:\Abola\USB_HDD\RemUMS.exe %copyDest%    ; прога, которая делает безопасное отключение
MsgBox, 4096, USB_HDD, DONE!
ExitApp 

GetDriveByLabel(pLabel, Repeat = 1) {  
    Loop % Repeat
    {
        DriveGet, List, List
        Loop, Parse, List
        {  
            DriveGet, Label, Label, %A_LoopField%: 
            If ( Label = pLabel ) 
                Return A_LoopField ":"  
        }   
        sleep, 1000
    }
}