For $i = 1 To UBound($FileArray) - 1
        ;ToolTip("Processing file " & $i & " of " & $NumOfFiles & @CRLF,0,0,"Progress...")

        ;ToolTip("Processing file " & $i & " of " & $NumOfFiles)
        ProgressOn("Progress....", "Processing file " & $i & " of " & $NumOfFiles)
        ProgressSet($i)
        $FileArray[$i] = StringTrimRight(StringRegExpReplace($FileArray[$i], '[^\.]+$', ''), 1) ;for file extn
        $ImportFileName = $FileArray[$i]
        Local $hTimer = TimerInit()

        If $i = UBound($FileArray) - 1 Then
            BlockInput(0)

        EndIf