SelectAll Listbox

[EndFunc]

Can't seem to find syntax for it or one that I can manipulate to do but is there a select all for a List box.

_GUICtrlListSelItemRange() doesnt seem to help as it needs a start and stop. Any suggestions?

[EndFunc]

Can't seem to find syntax for it or one that I can manipulate to do but is there a select all for a List box.

_GUICtrlListSelItemRange() doesnt seem to help as it needs a start and stop. Any suggestions?

NM I think I found it. _GUICtrlListSetSel()

[EndFunc]

NM I think I found it. _GUICtrlListSetSel()

Ok I do have question. Is there a way to have _GUICtrlListDeleteItem remove a specific item from a list box and not just top most item? Also to make sure its selected first?

[GEOSoft]

Ok I do have question. Is there a way to have _GUICtrlListDeleteItem remove a specific item from a list box and not just top most item? Also to make sure its selected first?

$SList = _GUIListGetSelItems($My_ListCtrl) ;Returns an array of the selected Items

For $I = 1 To Ubound($SList)-1

_GUIListDeleteItem($My_ListCtrl,$SList[$I]); deletes the item

Next

[EndFunc]

$SList = _GUIListGetSelItems($My_ListCtrl) ;Returns an array of the selected Items

For $I = 1 To Ubound($SList)-1

_GUIListDeleteItem($My_ListCtrl,$SList[$I]); deletes the item

Next

Thanks alot that was very helpful!

I have a problem with trying to get this to tell me if it is a dir or a file. The code I tried using a stringinstr and using a "." won't work. It has the opposite effect. I want it to tell me if it is a file by having a "." in and if not it's a dir. Any other suggestions??

Dim $sCount = _GUICtrlListCount($SourceEdit)
If $sCount = "0" Then
GUICtrlSetData($Console,"No additional files or folders selected during this process." & @CRLF & @CRLF, 1)
Else
$sAll = _GUICtrlListSetSel($SourceEdit, 0)
            If($sAll == $LB_ERR) Then
                MsgBox(16,"Error","Unknown error from _GUICtrlListSetSel")
            EndIf
$ret = _GUICtrlListGetSelItemsText ($SourceEdit)
            If (Not IsArray($ret)) Then
                MsgBox(16, "Error", "Unknown error from _GUICtrlListGetSelItemsText")
            Else
            
                For $i = 1 To $ret[0]
                If $ret[$i] = StringInStr($ret[$i], ".") Then               
                MsgBox(0, "Selected files", $ret[$i])
                GUICtrlSetData($Console, $ret[$i] & " has been added to transfer." & @CRLF, 1)
                GUICtrlSetData($Console, "Transfering " & $ret[$i] & @CRLF, 1)
                EndIf
                Next
            EndIf

Edited April 4, 2007 by EndFunc

[GEOSoft]

Thanks alot that was very helpful!

I have a problem with trying to get this to tell me if it is a dir or a file. The code I tried using a stringinstr and using a "." won't work. It has the opposite effect. I want it to tell me if it is a file by having a "." in and if not it's a dir. Any other suggestions??

Dim $sCount = _GUICtrlListCount($SourceEdit)
If $sCount = "0" Then
GUICtrlSetData($Console,"No additional files or folders selected during this process." & @CRLF & @CRLF, 1)
Else
$sAll = _GUICtrlListSetSel($SourceEdit, 0)
            If($sAll == $LB_ERR) Then
                MsgBox(16,"Error","Unknown error from _GUICtrlListSetSel")
            EndIf
$ret = _GUICtrlListGetSelItemsText ($SourceEdit)
            If (Not IsArray($ret)) Then
                MsgBox(16, "Error", "Unknown error from _GUICtrlListGetSelItemsText")
            Else
            
                For $i = 1 To $ret[0]
                If $ret[$i] = StringInStr($ret[$i], ".") Then               
                MsgBox(0, "Selected files", $ret[$i])
                GUICtrlSetData($Console, $ret[$i] & " has been added to transfer." & @CRLF, 1)
                GUICtrlSetData($Console, "Transfering " & $ret[$i] & @CRLF, 1)
                EndIf
                Next
            EndIf

If $ret[$i] = StringInStr($ret[$i], ".") Then

is wrong.

If StringInStr($Ret[$i], ".") Then

Better yet if you have the full file path

If Not StringInStr(FileGetAttrib($Ret[$I]),"D") Then

Edited April 4, 2007 by GEOSoft

[EndFunc]

is wrong.

If StringInStr($Ret[$i], ".") Then

Better yet if you have the full file path

If Not StringInStr(FileGetAttrib($Ret[$I]),"D") Then

Man, you're a life saver. Works perfectly. Thank you!