Populating a Combo Box

[GrahamT]

Sorry to be dim with something so simple, but I can't get this one right.

I have a folder (D:\database\old_data), and I want to list the subfolders in it in a combo box, so that I can choose one to copy the files from. I think I should be using _GUICtrlComboAddDir ( $h_combobox, $s_Attributes [, $s_file] ), but I just can't figure out the switches from the help file. The example given doesn't help me either.

Any help appreciated.

Thanks,

Graham

[MrCreatoR]

Hi,

Try this example:

expandcollapse popup

#include <File.au3>
#include <GuiConstants.au3>

$Path = "D:\database\old_data"

GUICreate("Get Dirs Combo", 200, 100)

$Combo = GUICtrlCreateCombo("", 20, 70, 160, -1, $CBS_DROPDOWNLIST)
$DirsList = _GetDirList($Path)
GUICtrlSetData($Combo, $DirsList, $Path)

$Button1 = GUICtrlCreateButton("Show selected", 60, 30, 80, 20)

GUISetState()

While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $Button1
            If $Path = GUICtrlRead($Combo) Then
                MsgBox(0, "", GUICtrlRead($Combo))
            Else
                MsgBox(0, "", $Path & GUICtrlRead($Combo))
            EndIf
        Case -3
            Exit
    EndSwitch
WEnd

Func _GetDirList($sPath)
    Local $DirsArr = _FileListToArray($sPath, "*", 2), $RetString = $sPath & "|", $i
    If Not IsArray($DirsArr) Then Return $sPath
    For $i = 1 To $DirsArr[0]
        $RetString &= $DirsArr[$i] & "|"
    Next
    Return $RetString
EndFunc

Edited February 22, 2007 by MsCreatoR

[GrahamT]

Thats great!! Thanks very much for your help.

G

Hi,

Try this example:

expandcollapse popup

#include <File.au3>
#include <GuiConstants.au3>

$Path = "D:\database\old_data"

GUICreate("Get Dirs Combo", 200, 100)

$Combo = GUICtrlCreateCombo("", 20, 70, 160, -1, $CBS_DROPDOWNLIST)
$DirsList = _GetDirList($Path)
GUICtrlSetData($Combo, $DirsList, $Path)

$Button1 = GUICtrlCreateButton("Show selected", 60, 30, 80, 20)

GUISetState()

While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $Button1
            If $Path = GUICtrlRead($Combo) Then
                MsgBox(0, "", GUICtrlRead($Combo))
            Else
                MsgBox(0, "", $Path & GUICtrlRead($Combo))
            EndIf
        Case -3
            Exit
    EndSwitch
WEnd

Func _GetDirList($sPath)
    Local $DirsArr = _FileListToArray($sPath, "*", 2), $RetString = $sPath & "|", $i
    If Not IsArray($DirsArr) Then Return $sPath
    For $i = 1 To $DirsArr[0]
        $RetString &= $DirsArr[$i] & "|"
    Next
    Return $RetString
EndFunc