List the files in each subdirectory

[j0kky]

Probably there are billions of posts about it, but this is my version   

It lists all files of the selected path and the files in its subdirectories. It can be easily converted in a function like _FileListToArray or it can be used to work on those files.

expandcollapse popup

Local $path = InputBox("Path", "Enter the path", @DesktopDir, " M")
If @error Then Exit
Local $count_sub = 0, $k = 0
#forcedef $dir_array ;necessary for tidy.exe

If FileExists($path) Then ;adds or replaces "/" with "\" at the end of the path
    If StringRight($path, 1) <> "\" Then
        If StringRight($path, 1) == "/" Then
            $path = StringTrimRight($path, 1) & "\"
        Else
            $path &= "\"
        EndIf
    EndIf
Else
    MsgBox(0,"Error","The selected folder doesn't exist")
    Exit
EndIf


While 1
    Local $search = FileFindFirstFile($path & "*.*")
    If $search = -1 Then
        If @error == 1 Then ;the folder is empty
            If Not IsDeclared("dir_array") Then
                MsgBox(0, "Info", "The folder is empty")
                Exit
            EndIf
        Else ;other errors, for example an error occurs if there aren't admin rights for some folder
            If IsDeclared("dir_array") Then
                ConsoleWrite($path & " ->>> Some errors occurred with this folder" & @CRLF) ;doesn't work with #requireadmin
            Else
                MsgBox(0, "Error", "No files/directories matched the search pattern" & @CRLF & $path)
                Exit
            EndIf
        EndIf
    EndIf

    While 1
        Local $file = FileFindNextFile($search)
        If @error Then ;files are finished
            FileClose($search)
            If $count_sub <> 0 Then ;if there aren't subdirectories
                If IsDeclared("dir_array") Then ;$dir_array contains every found subdirectory, it has 2 dimensions: the first is the level, the second is the subdirectories list
                    If $count_sub > UBound($dir_array, 2) Then
                        ReDim $dir_array[UBound($dir_array) + 1][$count_sub]
                    Else
                        ReDim $dir_array[UBound($dir_array) + 1][UBound($dir_array, 2)]
                    EndIf
                Else
                    Dim $dir_array[1][$count_sub]
                EndIf
                $count_sub = 0
                Local $search = FileFindFirstFile($path & "*.*")
                While 1 ;saves all found subdirectories in the last level
                    Local $subfolder = FileFindNextFile($search)
                    If @error Then ExitLoop
                    if @extended == 1 Then
                        $dir_array[UBound($dir_array) - 1][$k] = $subfolder
                        $k += 1
                    EndIf
                WEnd
                $k = 0
                FileClose($search)
                $path &= $dir_array[UBound($dir_array) - 1][0] & "\" ;"c:\windows\system32\" --> "C:\windows\system32\drivers\"
                ExitLoop
            Else ;if the directory hasn't subdirectories
                If IsDeclared("dir_array") Then
                    If UBound($dir_array) > 1 Then ;if there is more than one level
                        if UBound($dir_array, 2) > 1 Then
                            If $dir_array[UBound($dir_array) - 1][1] <> "" Then ;if there is more than one subdirectory in the last level
                                For $i = 0 To (UBound($dir_array, 2) - 2) ;deletes the first subdirectory of the last level and replace it with the second subdirectory
                                    $dir_array[UBound($dir_array) - 1][$i] = $dir_array[UBound($dir_array) - 1][$i + 1]
                                Next
                                $dir_array[UBound($dir_array) - 1][UBound($dir_array, 2) - 1] = ""
                                $path = StringRegExpReplace($path, "[^\\]*\\$", "") ;"C:\windows\system32\drivers\" --> "c:\windows\system32\"
                                $path &= $dir_array[UBound($dir_array) - 1][0] & "\"
                                ExitLoop
                            Else
                                $path = StringRegExpReplace($path, "[^\\]*\\[^\\]*\\$", "") ;"C:\windows\system32\drivers\etc\" --> "c:\windows\system32\"
                                While 1
                                    ReDim $dir_array[UBound($dir_array) - 1][UBound($dir_array, 2)] ;deletes the last level
                                    If $dir_array[UBound($dir_array) - 1][1] = "" Then
                                        If UBound($dir_array) == 1 Then
                                            ExitLoop(3)
                                        Else
                                            $path = StringRegExpReplace($path, "[^\\]*\\$", "")
                                            ContinueLoop
                                        EndIf
                                    Else
                                        ExitLoop
                                    EndIf
                                WEnd
                                For $i = 0 To (UBound($dir_array, 2) - 2)
                                    $dir_array[UBound($dir_array) - 1][$i] = $dir_array[UBound($dir_array) - 1][$i + 1]
                                Next
                                $dir_array[UBound($dir_array) - 1][UBound($dir_array, 2) - 1] = ""
                                $path &= $dir_array[UBound($dir_array) - 1][0] & "\"
                                ExitLoop
                            EndIf
                        Else
                            ExitLoop(2)
                        EndIf
                    Else
                        If UBound($dir_array, 2) > 1 Then
                            If $dir_array[0][1] <> "" Then
                                For $i = 0 To (UBound($dir_array, 2) - 2)
                                    $dir_array[0][$i] = $dir_array[0][$i + 1]
                                Next
                                $dir_array[0][UBound($dir_array, 2) - 1] = ""
                                $path = StringRegExpReplace($path, "[^\\]*\\$", "")
                                $path &= $dir_array[0][0] & "\"
                                ExitLoop
                            Else
                                ExitLoop(2)
                            EndIf
                        Else
                            ExitLoop(2)
                        EndIf
                    EndIf
                Else
                    ExitLoop(2)
                EndIf
            EndIf
        EndIf

        if @extended = 1 Then ;it's a folder, not a file
            $count_sub += 1
            ContinueLoop
        EndIf

        #cs ENTER YOUR CODE HERE, FOR EXAMPLE:
        ConsoleWrite("File: " & $path & $file & @CRLF)
        #ce
        
        ConsoleWrite("File: " & $path & $file & @CRLF)

    WEnd
WEnd

Edited May 6, 2014 by j0kky

[guinness]

There is already a UDF function called _FileListToArrayRec().

[JohnOne]

Decent.

Looks like you put a fair bit of time into it.

Variations of existing functions and code can't harm and are always welcome.

[BrewManNH]

BTW, the "M2" in the inputbox limits the user from putting more than 2 characters into it.

[j0kky]

@guinness and @johnONE: thank you!

@BrewmanNH: you're right! Don't know why there was that "2"! I've just corrected the script!