;Set script options
If Not @LOGONMODE
    Break On
Else
    Break Off
EndIf
Dim $RC
$RC = SetOption("Explicit","On")
$RC = SetOption("NoVarsInStrings","On")
$RC = SetOption("NoMacrosInStrings","On")
$RC = SetOption("WrapAtEOL","On")

Dim $objExcel, $File1, $File2, $Value
;$Values is a 2-dimensional array
Dim $Values[1,0], $i
;$i is a counter
$i = -1
;(Path and) filename of first Excel workbook
$File1 = DIRLIST("C:\kix\verify\*.xls",2)
;(Path and) filename of second Excel workbook
$File2 = "C:\kix\verify\SIT.xls"

;Create Excel object
$objExcel = CreateObject("Excel.Application")
;If creation object failed, an @ERROR <> 0 is returned
If @ERROR = 0

    ;Open first Excel workbook
    $RC = $objExcel.Workbooks.Open($File1)
    ;Catch value in cell C6
    $Value = $objExcel.Range("C6").Value
    ;Close workbook
    $objExcel.Application.Quit
   
    ;Open second Excel workbook
    $RC = $objExcel.Workbooks.Open($File2)
    ;Loop as long as values are found in column A
    While Not $objExcel.Range("A"+($i+2)).Value = ""
        ;Add 1 to counter $i
        $i = $i + 1
        ;Resize 2-dimensional array $Values, preserving existing data
        ReDim preserve $Values[1,$i]
        ;Put value from column A in first dimension of array
        $Values[0,$i] = $objExcel.Range("A"+($i+1)).Value
        ;Put value from column B in second dimension of array
        $Values[1,$i] = $objExcel.Range("B"+($i+1)).Value
    Loop
    ;Close workbook
    $objExcel.Application.Quit
   
Else

    ;Error handling
    ? "Error creating Excel object"
    ? "Error " + @ERROR + ": " + @SERROR
    ;End the KiXtart script
    Quit @ERROR

EndIf

;$j is a counter
Dim $j
For $j = 0 to $i Step 1
    ;compare $Value with every value in the first dimension
    ;of the 2-dimensional array
    ;If values match, go into the if statement
    If $Values[0,$j] = $Value
        ;Here you can write your MOVE command
        Move $File1 $Values[1,$j]
        ;Error handling if move fails
        If @ERROR
            ? "Error moving file " + $File1
            ? "Error " + @ERROR + ": " + @SERROR
        EndIf
        ;The value was found, end the for/next by making $j equal to $i
        $j = $i
    EndIf
Next

;FUNCTION      DirList
;
;AUTHOR        Jens Meyer (sealeopard@usa.net)
;
;ACTION        Returns an array with a list of files in a given directory
;
;VERSION       1.2
;
;KIXTART       4.12
;
;SYNTAX        DIRLIST(DIRNAME [,OPTIONS])
;
;PARAMETERS    DIRNAME
;              Required string containing the directory name
;
;              OPTIONS
;              Optional value for additional options, options are set bitwise
;              1 = include directories (denoted by a backslash) that match the search mask
;              2 = include full path
;              4 = search all subdirectories
;
;RETURNS       array with a list of files, otherwise an empty string
;
;REMARKS       none
;
;DEPENDENCIES  none
;
;EXAMPLE       $dirlist = DIRLIST("c:\*.*",1+2+4)
;
;KIXTART BBS   http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000090
;
Function dirlist($dirname, optional $options)
  Dim $filename, $counter, $filepath, $mask
  Dim $list, $sublist, $subcounter

  $counter=-1

  $dirname=Trim($dirname)
  If $dirname=''
    $dirname=@CURDIR
  EndIf
  If Right($dirname,1)='\'
    $dirname=Left($dirname,Len($dirname)-1)
  EndIf
  If GetFileAttr($dirname) & 16
    $mask='*.*'
  Else
    $mask=SubStr($dirname,InStrRev($dirname,'\')+1)
    $dirname=Left($dirname,Len($dirname)-Len($mask)-1)
  EndIf

  ReDim $list[10]
  $filename=Dir($dirname+'\'+$mask)
  While $filename<>'' And @ERROR=0
    If $filename<>'.' And $filename<>'..'
      Select
      Case (GetFileAttr($dirname+'\'+$filename) & 16)
        If $options & 1
          $counter=$counter+1
          If $options & 2
            $list[$counter]=$dirname+'\'+$filename+'\'
          Else
            $list[$counter]=$filename+'\'
          EndIf
        EndIf
        If ($options & 4)
          $sublist=dirlist($dirname+'\'+$filename+'\'+$mask,4)
          If UBound($sublist)+1
            ReDim preserve $list[UBound($list)+UBound($sublist)+1]
            For $subcounter=0 to UBound($sublist)
              $counter=$counter+1
              If $options & 2
                $list[$counter]=$dirname+'\'+$filename+'\'+$sublist[$subcounter]
              Else
                $list[$counter]=$filename+'\'+$sublist[$subcounter]
              EndIf
            Next
          EndIf
        EndIf
      Case ($options & 2)
        $counter=$counter+1
        $list[$counter]=$dirname+'\'+$filename
      Case 1
        $counter=$counter+1
        $list[$counter]=$filename
      EndSelect
      If $counter mod 10
        ReDim preserve $list[$counter+10]
      EndIf
    EndIf
    $filename = Dir('')
  Loop

  If $counter+1
    ReDim preserve $list[$counter]
  Else
    $list=''
  EndIf

  If $mask<>'*.*' And ($options & 4)
    $filename=Dir($dirname+'\*.*')
    While $filename<>'' And @ERROR=0
      If $filename<>'.' And $filename<>'..'
        If (GetFileAttr($dirname+'\'+$filename) & 16)
          $sublist=dirlist($dirname+'\'+$filename+'\'+$mask,4)
          If UBound($sublist)+1
            ReDim preserve $list[UBound($list)+UBound($sublist)+1]
            For $subcounter=0 to UBound($sublist)
              $counter=$counter+1
              If $options & 2
                $list[$counter]=$dirname+'\'+$filename+'\'+$sublist[$subcounter]
              Else
                $list[$counter]=$filename+'\'+$sublist[$subcounter]
              EndIf
            Next
          EndIf
        EndIf
      EndIf
      $filename = Dir('')
    Loop
  EndIf

  If $counter+1
    ReDim preserve $list[$counter]
  Else
    $list=''
  EndIf

  $dirlist=$list
EndFunction