FileFindFirstFile

[Stretch]

Ive got a script to look for sections in inifiles and change bits if needed -

How can i get the FileFindFirstFile, FileFindnextFile function to search sub folders. *.* only searches within the current folder.

Any Ideas?

Stretch

[Don N]

FileGetAttrib() call this on every file you get using findnextfile adn if FileGetAttrib() returns "D" for directory then make a recursive call to the find files function.

[BigDod]

Have a look Here

[ChrisL]

Search ("c:", "ini");replace with your search directory and file extension required

Func Search($current,$ext)

    Local $search = FileFindFirstFile($current & "\*.*")
    While 1
        Dim $file = FileFindNextFile($search)
        If @error Or StringLen($file) < 1 Then ExitLoop
        If Not StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then

            If StringInStr($current & "\" & $file, $ext) then 
                MsgBox (0, "Has the file extension " & $ext, $current & "\" & $file)
                ;this is where you do what you need to do
            Endif
        EndIf
        If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then
            Search($current & "\" & $file, $ext)
            
        EndIf
    WEnd
    FileClose($search)

EndFunc

[mozart90]

Hi ,

I remember a similar problem

but . and .. were only returned in the autoit 3.1.1 NOT in the beta version.

(perhaps the problem is fixed now..)

greetings mozart90

[GEOSoft]

Search ("c:", "ini");replace with your search directory and file extension required

Func Search($current,$ext)

    Local $search = FileFindFirstFile($current & "\*.*")
    While 1
        Dim $file = FileFindNextFile($search)
        If @error Or StringLen($file) < 1 Then ExitLoop
        If Not StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then

            If StringInStr($current & "\" & $file, $ext) then 
                MsgBox (0, "Has the file extension " & $ext, $current & "\" & $file)
                ;this is where you do what you need to do
            Endif
        EndIf
        If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then
            Search($current & "\" & $file, $ext)
            
        EndIf
    WEnd
    FileClose($search)

EndFunc

I seem to recall reading in one of the Beta version help files that "." and ".." will no longer be returned.

Regadless, a long time ago I started replacing

And ($file <> "." Or $file <> "..")

with

And StringRight($File,1) <> "."

If you are looking for folders only its

If StringInStr($File,".") = 0 Then MsgBox(4096,'TEST', $File & " is a folder")