Getting all types of files

[D4rk^S0ul 0]

Is there anyway to get all types of files that are in a folder and the sub folders?

Like if i needed to find all .txt files in my docs so i can add a line to them how would

i do this?

[cdkid 1]

Umm, this may not work but just a thought

dim $arr[1]
$Search = FileFindFirstFile("*.txt")
While 1
Redim $arr[ubound($arr, 1) + 1]
$arr[ubound($arr, 1) - 1] = FileFindNextFile($search)
if @error then exitloop
WEnd
FileClose($search)

that _should_ work, i think... should make an array full of file names

[D4rk^S0ul 0]

I know this must seem a newb question but how can i use the array to make a msgbox or to run functions with the locations?

[cdkid 1]

umm

For $i = 0 to ubound($arr, 1) - 1
msgbox(0,'',$arr[$i])
next

~cdkid

[D4rk^S0ul 0]

umm

For $i = 0 to ubound($arr, 1) - 1
msgbox(0,'',$arr[$i])
next

~cdkid

1 Prob it only shows 1 instead of doing untill its through

[Valuater 96]

#Include <File.au3>

$FileList=_FileListToArray(@DesktopDir)
If (Not IsArray($FileList)) Or (@Error=1) Then
    MsgBox (0,"","No Files\Folders Found.")
    Exit
EndIf

for $x = 1 to $FileList[0]
MsgBox (0,"",$FileList[$x])
next

wrote on screen... not tested

8)

Edited March 8, 2006 by Valuater

[greenmachine 4]

1 Prob it only shows 1 instead of doing untill its through

Simple solution to that:

For $i = 0 to ubound($arr, 1) - 1
msgbox(0,$i & " of " & ubound ($arr, 1) - 1,$arr[$i])
next

Now you can tell if it's really only doing 1 instead of multiple, or if it only had 1 to do, and thus was an issue somewhere else.