FileListToArray to GUICtrlCreateList - How do I make it clickable?

[enigmaforceiv]

expandcollapse popup

#region
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Tidy_Stop_OnError=n
#endregion


#include <File.au3>
#include <Array.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <AVIConstants.au3>
#include "RecFileListToArray.au3"

Global $font = "Arial"
Global $GUI_BGC = "0x5F0505"

;=============================================================================
Opt("GuiOnEventMode", 1)
Opt("GUICoordMode", 3)

;=============================================================================
$GUI = GUICreate("C21 Chicago's Finest ~ Let's Take This Journey... Together.", 800, 600) ; creates window
GUICtrlCreatePic("logo4.jpg", 0, 0, 800, 115)
GUICtrlCreateMenu("File")
GUICtrlCreateMenu("About")
GUICtrlCreateMenu("Logout")
GUISetBkColor($GUI_BGC)
GUISetFont(9, 400, 0, $font)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

$FileViewer = GUICtrlCreateList("", 400, 142, 375, 175)

$BuyerV = GUICtrlCreateTabItem("Buyers") ;creates item in tab
$Blist = GUICtrlCreateList("", 195, 143, 175, 180);creates list in the above tab
Buyers() ;calls function

;FUNCTIONS HERE PLEASE ----- Begin Tabbed Items Function
Func Buyers()
$FileList = _FileListToArray("C:DropboxCentury21Client DatabaseBuyers", "*", 2) ; get only folders with the quoted string
_ArrayDelete($FileList, 0) ; Throwing out the total folder count from the 0 index
For $folder In $FileList ; Loop over folders found.
GUICtrlSetData($Blist, $folder)
Next

In the $Blist, I notice that whenever I select a folder, it becomes highlighted. However, what I want to do is make that selection output its subfiles into the $FileViewer. How would I do that?

Edited September 3, 2012 by enigmaforceiv

[bogQ]

something like this? (with no click detection)

expandcollapse popup

#include <File.au3>
#include <Array.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <AVIConstants.au3>
Global $font = "Arial"
Global $GUI_BGC = "0x5F0505"
Global $listdata1
Global $listdata2
Global $dastination = "C:Program Files"
Opt("GUICoordMode", 3)
$GUI = GUICreate("C21 Chicago's Finest ~ Let's Take This Journey... Together.", 800, 600) ; creates window
$input = GUICtrlCreateInput("", 10, 35, 300, 20,$ES_READONLY) ; will not accept drag&drop files
GUICtrlCreatePic("logo4.jpg", 0, 0, 800, 115)
GUICtrlCreateMenu("File")
GUICtrlCreateMenu("About")
GUICtrlCreateMenu("Logout")
GUISetBkColor($GUI_BGC)
GUISetFont(9, 400, 0, $font)
$FileViewer = GUICtrlCreateList("", 400, 142, 375, 175)
$BuyerV = GUICtrlCreateTabItem("Buyers") ;creates item in tab
$Blist = GUICtrlCreateList("", 195, 143, 175, 180);creates list in the above tab
Buyers($dastination,$Blist) ;calls function
GUISetState()
While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
    $Blist_data = GUICtrlRead($Blist)
    $FileViewer_data = GUICtrlRead($FileViewer)
    If $listdata1 <> $Blist_data Then
        $listdata1 = $Blist_data
        GUICtrlSetData($FileViewer, "")
        Buyers($dastination&""&$listdata1,$FileViewer)
        GUICtrlSetData($input,$dastination&""&$Blist_data&"")
    EndIf
    If $listdata2 <> $FileViewer_data And $FileViewer_data Then
        $listdata2 = $FileViewer_data
        GUICtrlSetData($input,$dastination&""&$Blist_data&""&$FileViewer_data&"")
    EndIf
WEnd
Func Buyers($data,$data2)
    Local $FileList = _FileListToArray($data, "*", 2) ; get only folders with the quoted string
    If IsArray($FileList) Then
        For $x = 1 to $FileList[0]
            GUICtrlSetData($data2, $FileList[$x])
        Next
    EndIf
EndFunc

Edited September 3, 2012 by bogQ

[enigmaforceiv]

Perfect! Thanks

[enigmaforceiv]

The only problem I'm having is setting it to list the files rather than the folders.

[bogQ]

just make another func that will handle files instead folders and call it instead Buyers($dastination&""&$listdata1,$FileViewer)

Edited September 4, 2012 by bogQ

[enigmaforceiv]

I'm getting an error saying "Badly formatted "Func" statement) at the first "&" after the "$dastination".

[BrewManNH]

So, fix it. Do you want everyone else to write this for you?

[enigmaforceiv]

I'm trying to learn the best I can in the small amount of time that I got to "complete" this project. I'm not just taking bits of info and slapping it together in the official script; instead, I am analyzing and cross-referencing each command for a better understanding of what that command does. I wish not for people to help me by giving me an entire working script that can simply be copied and pasted, but for just a simple explanation or guidance.

In this case, figuring out what "&" does, and why the script is considering that it's badly formatted.

[BrewManNH]

If you searched the help file, you'd find that the ampersand ("&") is used to concatenate, join two or more strings or or the contents of 2 or more variables, together. For example "One" & "two" would give you the string "Onetwo". Or if $Text1 = "One" and $Text2 = "two", using $Text1 & "" & $Text2 would give you the string "Onetwo".

[bogQ]

and of course posting what you have so far whud help

if we don't see lines that produce errors then there is not a lot we can help you with