code:

---

; - Code taken from - http://www.scriptlogic.com/kixtart/FunctionLibrary_ViewFunction.aspx?ID=GetLineCount
 CLS
 BREAK ON

$Lines=GetLineCount('c:\CONFIG.NT')
$Lines1=GetLineCount('c:\Windows\system32\CONFIG.NT')
'Your 1 file has ' + $Lines + ' lines.' ?
'Your 2 file has ' + $Lines1 + ' lines.' ?
Get $c

FUNCTION GetLineCount($sFileSpec)
    ; $sFileSpec is a string containing a file specification
    ; GetLineCount() returns an integer with the number of lines in the file
    ; or -1 if there is an error.
    DIM $vTmp, $iFileNum
    $sFileSpec = '' + $sFileSpec
    $iFileNum  = 7
    $GetLineCount = -1
    IF Exist($sFileSpec)
        IF Open($iFileNum,$sFileSpec) = 0
            $GetLineCount = 0
            $vTmp = ReadLine($iFileNum)
            WHILE @ERROR = 0
                $GetLineCount = $GetLineCount + 1
                $vTmp = ReadLine($iFileNum)
            LOOP
            $vTmp = Close($iFileNum)
        ENDIF
    ENDIF
ENDFUNCTION ; GetLineCount()
  

---

code:

---

 
; Issuing a couple of good old DOS commands

  SHELL 'CMD /C del u:\FS-Compare\rmtshare.txt'
  SHELL 'CMD /C RMTSHARE \\server >> u:\FS-Compare\rmtshare.txt'

; here the script starts for real

  open(1,"u:\FS-Compare\stripped-result.txt",5)
  open(2,"u:\FS-Compare\rmtshare.txt")
  open(3,"u:\FS-Compare\bruhub-nok.txt",5)
  open(4,"u:\FS-Compare\bruhub-ok.txt",5)

  while @ERROR = 0
	  IF INSTR($line,"y:\path\")
		  $MyArray = split($line,"$")
		  WriteLine( 1 , $myarray[0] + @CRLF)  
	  ENDIF
			
	  $line = readline(2)
  loop

; counting the lines in detectdirs.txt & stripped-result.txt

  close(1)
  open(1,"u:\FS-Compare\stripped-result.txt")

  $searchstring = readline(1)

  $maxstripcount = getlinecount('u:\fs-compare\stripped-result.txt')

;Retrieving the directories
  use y: /del
  use y: "\\server\path$"

  $dirarray = PIPE('DIR y:\*.* /AD/B')


; Here starts the compare section

  FOR $stripcount = 1 to $maxstripcount STEP 1
	  IF NOT ISINARRAY($dirarray, $searchstring)
		  WRITELINE(3, $searchstring + @CRLF )
	  ELSE
		  WRITELINE(4, $searchstring + @CRLF )
	  ENDIF
	  $searchstring = readline(1)
  NEXT

  close(1)
  close(2)
  close(3)
  close(4)

 

---