List files in a folder

[FinalVersion]

The following code lists all files & folders in the current directory. I was thinking of creating a counter, increase it every time a tree view item is added. Then in a for loop, check each item with a IsFolder() function, but there isn't a function that I'm aware of that does that.

#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>

Local $frmMain = GUICreate("Tree View", 234, 363, -1, -1)
Local $tMain = GUICtrlCreateTreeView(0, 0, 250, 380)

$hFiles = FileFindFirstFile("*.*")
If $hFiles = -1 Then Exit

While 1
    $cFile = FileFindNextFile($hFiles)
    If @error Then ExitLoop
    GUICtrlCreateTreeViewItem($cFile, $tMain)
WEnd
FileClose($hFiles)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

[UEZ]

You can use the @extended macro to check whether it is a folder!

...
$cFile = FileFindNextFile($hFiles)
If @extended then ConsoleWrite("Found a dir" & @CRLF)
...

BR,

UEZ

Edited June 25, 2010 by UEZ

[Xenobiologist]

Another way would be using Function _FileListToArray_FileListToArray with its parameter.

[engjcowi]

Hi

I like the code above. Simple to read and understand. Is it possible to use the list thats created in the gui so that if idouble click on the file, it then opens?

thanks