Scan directory help

[tony]

Hello,

I want to scan a directory for all the files that are part of it. I found in the forum a good easy to implement function and it seems to work fine till I call it again. From the secoid time I call it, it adds to the first find the second finds no matter what I do. I tried to delete the array in between but it doesn't work. There is something I am missing but I can't figure out what.

Any idea??

Thanks a lot

CODE

#include <Array.au3>

#Include <File.au3>

Local $aRetArray

Local $path = "c:\WINDOWS\system"

Local $sFindFile = "*"

Local $sRet

$aRetArray = _FindPathName($path, $sFindFile)

_ArrayDisplay($aRetArray)

For $i = 1 To UBound($aRetArray)-1

_ArrayDelete ($aRetArray,$i)

Next

$aRetArray = _FindPathName($path, $sFindFile)

_ArrayDisplay($aRetArray)

Func _FindPathName($sPath, $sFindFile)

Local $sSubFolderPath, $iIndex, $aFolders, $search,$aFoldersSubs

$search = FileFindFirstFile($sPath & "\" & $sFindFile)

$aFolders = _FileListToArray($sPath, "*", 2)

While 1

$file = FileFindNextFile($search)

If @error Then

ExitLoop

Else

$sRet &= $sPath & "\" & $file & "|"

EndIf

WEnd

FileClose($search)

For $iIndex = 1 To $aFolders[0]

$sSubFolderPath = $sPath & "\" & $aFolders[$iIndex]

$aFoldersSubs = _FileListToArray($sSubFolderPath, "*", 2)

If IsArray($aFoldersSubs) Then _FindPathName($sSubFolderPath, $sFindFile)

Next

Return StringSplit(StringTrimRight($sRet,1), "|")

EndFunc ;==>_FindPathName

[Melba23]

tony,

You are not emptying $sRet after each pass through the function. So each time you call it, you add another list to the end. Just put $sRet = "" after each call to your function.

M23

[Authenticity]

$sRet = 0

Add this after the first call and delete the _ArrayDelete loop, it's useless.

[tony]

Thanks a lot.

I have been staring at the piece of code for hours without seeing the obvious.