My compiled script wont unpause.

AutoItSetOption("WinTitleMatchMode", 4)
#include <MsgBoxConstants.au3>
;Set hot key to winkey and n and call new folder function
Local $folder = "\New Folder"
HotKeySet("+n", "NewFolder")
 
;infinite loop
While 1
  sleep(10)
WEnd
 
;new folder function
Func NewFolder()
   ;check to see if explorer is active window.
    If WinActive("classname=ExploreWClass") _
        Or WinActive("classname=CabinetWClass") Then
         Local $hWnd = WinGetHandle("[ACTIVE]","")
         Local $dirUnTrim = ControlGetText($hWnd,"", "ToolbarWindow322")
         Local $dir = StringTrimLeft( $dirUnTrim, 9)
         Local $initdirpath = $dir & $folder
 
         If FileExists($initdirpath) Then
            Local $dirpathnew = StringRight($initdirpath, 2)
            Local $a = StringTrimRight($dirpathnew, 1)
            Local $a1 = $a + 1
            Local $a2 = "(" & $a1 & ")"
            ToolTip($a2)
            $folder = "\New Folder" & $a2
            $dirpath = $dir & $folder
         Else
            $dirpath = $dir & "\New Folder"
         EndIf
         DirCreate($dirpath)
    Else
        ToolTip("")
    EndIf
    Sleep(10)
EndFunc