RUN_ENABLED("C:\Docume~1\iso\Desktop\KIX\Development\enabled")

Function RUN_ENABLED($path)
  $runenabled = Dir("$path\*.*")
  While $runenabled <> "" AND @ERROR = 0
    If $runenabled <> "." AND $runenabled <> ".."
      $EN=SUBSTR("$runenabled",1,LEN($runenabled)-4)
      CALL($EN)
    EndIf
    $runenabled = Dir()
  Loop
EndFunction

$runenabled='/enabled/IE.kix'
$EN=SUBSTR("$runenabled",1,LEN($runenabled)-4)
$EN ? ; - gave me "/enabled/IE"

RUN_ENABLED("C:\Docume~1\iso\Desktop\KIX\Development\enabled")
  
Function RUN_ENABLED($path)
  Dim $runenabled
  $runenabled = Dir("$path\*.*")
  While Not @ERROR
    If $runenabled <> "." AND $runenabled <> ".."
      Call $path+"\"+$runenabled
    EndIf
    $runenabled = Dir()
  Loop
EndFunction

; Assemble a 2-dimensional array containing a list of function names and the files
; that hold them. Search the folders defined in the PATHS array

'Searching for available UDFs' 
For Each $PATH in $PATHS
  $File = Dir($Path + '\*.*')
  
  While $File <> '' And @ERROR = 0 
    If Left($File, 1) <> '.'

      If Right($File, 4) = '.udf' Or Right($File, 4) = '.kxf' Or $File = $SrcFile
        If $PATH = '.' And $File <> $SrcFile		; automatically include everything in '.'

          ; If the .KXF/.UDF file is in the project folder (.), just include it
          $FnFiles[$OP] = $PATH + '\' + $File	; add file to array of included files
          $OP = $OP + 1
          $ = RedirectOutput($LogFile)
          ' adding project file ' + $PATH + '\' + $File ?
          $ = RedirectOutput('')

        EndIf	; PATH = '.'

        ; open the file, read lines until 'function' is found in a non-comment area
        ; obtain the function name, and add the function name and file name to the array
        If Open(3, $Path + '\' + $File, 2) = 0

          $Line = Trim(ReadLine(3))
          While @ERROR = 0

            ; Function definition must be in column 1 after trimming spaces to be considered valid
            If InStr($Line, 'Function') = 1
              ; get rid of the 'function ' and split off the function name
              $Fn = Trim(Split(SubStr($Line, 10), '(')[0])

              $UDFNames = $UDFNames + $Fn + '(,'
              $Functions[$FP,0] = $Fn
              $Functions[$FP,1] = $PATH + '\' + $File
              $FP = $FP + 1
              If $FP Mod 8 = 0 '.' EndIf			; status indicator
            EndIf

            $Line = Trim(ReadLine(3))
          Loop	; while not error
          $ = Close(3)
        EndIf	; Open

        $FF = $FF + 1

      EndIf	; .udf or .kxf file

    EndIF	; not '.'

    $File = Dir()					; get next file

  Loop

Next ; $Path
? ' ' $FP ' UDFs located in ' $FF ' files.' ?

CALL "C:\Docume~1\ana\Desktop\KIX\Development\enabled\NOTICE.kix"
$test = NOTICE
CALL $test

Function RUN_ENABLED($path)
  $count = 0
  $runenabled = Dir("$path\*.*")
  While $runenabled <> '' AND @ERROR = 0
    If Left($runenabled, 1) <> '.'
      If Right($runenabled, 4) = '.kix'
        CALL "$path\$runenabled"
        If Open(3,"$path\$runenabled",2) = 0
          $Line = Trim(ReadLine(3))
          While @ERROR = 0
            If InStr($Line, 'Function') = 1
              $Fn = Trim(Split(SubStr($Line, 10), '(')[0])
              CALL $Fn
              ;CALL NOTICE
            EndIf
            $Line = Trim(ReadLine(3))
          Loop
        $ = Close(3)
        EndIf     
      EndIf
    EndIf
  $runenabled = Dir()
  Loop  
EndFunction

? $Fn
$Fn = "NOTICE"
? $Fn
CALL $Fn

? $Fn
$Fn = NOTICE
? $Fn
CALL $Fn

$MyPath = 'c:\somewhere\enabled'
Run_Enabled($MyPath)

Function RUN_ENABLED($path)
  $count = 0
  $runenabled = Dir($path + '\*.KIX')
  While $runenabled <> '' AND @ERROR = 0
 ;;;   If Left($runenabled, 1) <> '.'
 ;;;     If Right($runenabled, 4) = '.kix'
        'Loading ' $Path + '\' + $runenabled ' into memory' ?
        CALL $path + '\' + $runenabled		; Load into memory
        If Open(3,$path + '\' + $runenabled,2) = 0 ; open the function file
          $Line = Trim(ReadLine(3)) ; read the line, remove all leading/trailing spaces
          While @ERROR = 0 			; loop until EOF error
            If InStr($Line, 'Function') = 1	; does the line contain a Function declaration?
              ; Line should look like:
              ; 1234567890123...
              ; Function MyFunc(arg)
              ; so get the data starting at the 10th char and continue to the "(" char
              $Fn = Trim(Split(SubStr($Line, 10), '(')[0])
              'Calling ' $Fn ?
              Execute ($Fn + '()' ; This string might need to be built to contain args.
              ;CALL NOTICE
            EndIf
            $Line = Trim(ReadLine(3)) 		; Get the next line
          Loop
          $ = Close(3)				; done, close the input file
        EndIf  ; open success   
 ;;;     EndIf  ; .kix file
 ;;;   EndIf  ; not a dir file
  $runenabled = Dir()				; find next file
  Loop  
EndFunction

RUN_ENABLED("C:\Docume~1\iso\Desktop\KIX\Development\enabled")
  
Function RUN_ENABLED($path)
  Dim $runenabled
  $runenabled = Dir("$path\*.*")
  While Not @ERROR
    If $runenabled <> "." AND $runenabled <> ".."
      Call $path+"\"+$runenabled
      $=Execute(Split($runenabled,".")[0]+"()")   ; Magic here.
    EndIf
    $runenabled = Dir()
  Loop
EndFunction