Directory Crawler

[xZZTx]

Yo; anyways...ive been trying to make a simple directory crawler that would filewriteline() about what files it found

this is my try at it

$Dir = @ScriptDir
$Dr1 = $Dir
$A = FileFindFirstFile("*.*")
while 1
$B = FileFindNextFile($A)
$C = StringSplit(FileGetLongName($B,1),".")
If @error = 0 Then
If $C[0] >= 2 Then
If $C[2] = "zzt" Or $C[2] = "au3" Then
Else
    FileWriteLine("text.zzt",$Dir&"\"&$B)
EndIf
EndIf
EndIf
    If $C[0] = 1 And $B = Not "" Then
        $Dir = $Dir&"\"&$B
    EndIf
    If $B = "" Then
        If $Dir = $Dr1 Then
            ExitLoop
        EndIf
        $A = FileFindFirstFile($Dir&"\*.*")
        $Dr1 = $Dir
        $B = ""
    EndIf
WEnd

the text.zzt was the file it was writeing to as you can see

it works if it only has 1 folder to another...IE

C:\1\1.txt
C:\1\2\2.txt
C:\1\2\3\3.txt

that would work but if any of them have a 2nd Dir it fails...any ideas?

also i know i coulda just done If not yada yada yada but im lazzy so i just left teh big piles of if's

EDIT!!!

Woot!! I Solved it

expandcollapse popup

$Dir = @ScriptDir
$Dr1 = $Dir
$Dr2 = 0
dim $Dr[100]
$A = FileFindFirstFile("*.*")
while 1
$B = FileFindNextFile($A)
$C = StringSplit(FileGetLongName($B,1),".")
If @error = 0 Then
If $C[0] >= 2 Then
If $C[2] = "zzt" Or $C[2] = "au3" Then
Else
    FileWriteLine("text.zzt",$Dir&"\"&$B)
EndIf
EndIf
EndIf
    If $C[0] = 1 And $B = Not "" Then
        If $Dr2 = 1 Then
            $Dr[0] += 1
            $Dr[$Dr[0]] = $Dr3&"\"&$B
        Else
        $Dr3 = $Dir
        $Dr2 = 1
        $Dir = $Dir&"\"&$B
        EndIf
    EndIf
    If $B = "" Then
        $Dr2 = 0
        If $Dir = $Dr1 Then
            If $Dr[0] = Not 0 Then
                $Dir = $Dr[$Dr[0]]
                $Dr[0] -= 1
                $Dr2 = 0
            Else
            ExitLoop
            EndIf
        EndIf
        $A = FileFindFirstFile($Dir&"\*.*")
        $Dr1 = $Dir
        $B = ""
    EndIf
WEnd

now its time to optimize it

Edit Again

That was the best i could do lol

Edited May 29, 2009 by xZZTx

[Melba23]

xZZTx,

Try searching for "recursive file search". There are plenty of examples out there. I would do it for you , but I too am feeling a bit lazy........ ;-)

M23

[xZZTx]

Well i got it to work now...so if any 1 needs it; good luck

[RAMMRODD]

Just what I was looking for, Ill be sure to add you in as the brains behind this part of my script.