Create a scroll-able list of Checkboxes.

[Nahuel]

I made a script to rename all the files that a certain folder contains. It works fine with folders that don't have many files, because after you select the directory, it creates a list of checkboxes with the names of the files so you can select which ones to rename. If it has too many, the size of the GUI exceeds the desktop height.

I was thinking on making some sort of scrollable list or just organize them in columns, but I don't know how to do neither of those.

Here's my script.

expandcollapse popup

#include <File.au3>
#include <Constants.au3>
#include <Guiconstants.au3>
#NoTrayIcon

Opt("GUIOnEventMode",1)
While 1
$Directorio=FileSelectFolder("",@HomePath) 
If @error=1 Then
    MsgBox(0,"Error","No folders selected")
    Exit
EndIf

$lista1=_FileListToArray($Directorio,"*.*",1)

If $lista1="" Then
    MsgBox(48,"Error","The selected directory is either not valid or it doesn't contain files.")
Else
    ExitLoop
EndIf
WEnd

$altolista=(25 * $lista1[0]+30)
$altoventana=$altolista+20
If $altoventana > @DesktopHeight Then
    MsgBox(0,"","Too many files in the selected directory!")
    Exit
EndIf

GUICreate("Files in "&$Directorio,350,$altoventana)
GUISetOnEvent($GUI_EVENT_CLOSE,"_exit")
GUISetState()
GUICtrlCreateButton("Rename Files",125,$altoventana-35)
GUICtrlSetOnEvent(-1,"cambiar_nombre")  

obtenerArchivos()

Func _exit()
    Exit
EndFunc
Func obtenerArchivos()
$iCheckboxPos = 15
    Global $aCheckbox[UBound($lista1) ]
    For $i = 1 To $lista1[0] Step 1
        $aCheckbox[$i] = GUICtrlCreateCheckbox($lista1[$i], 10, $iCheckboxPos, -1, 20)
        GUICtrlSetState(-1, $GUI_CHECKED)
        $iCheckboxPos = $iCheckboxPos + 20
        $aCheckbox[0] = UBound($aCheckbox)
    Next
EndFunc

Func cambiar_nombre()
    $nuevonombre=InputBox("Change Name","Insert the new name")
    If $nuevonombre<>"" Then
    Dim $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(52,"Warning!","You are about to rename ALL the selected files in the chosen directory." & @CRLF & "Continue?")
    Select
       Case $iMsgBoxAnswer = 6 ;Yes
        $N=1
        For $i = 1 To (UBound($aCheckbox)-1)
            $sActiveCheckbox = $aCheckbox[$i]
            If GUICtrlRead($sActiveCheckbox) = $GUI_CHECKED Then
                $EXTENSION=StringRight($lista1[$i],4)
                $largo=StringLen($lista1[$i])
                $NOMBRE=(StringLeft($lista1[$i],$largo-4))
                $MoverError=FileMove($Directorio&"\"&$lista1[$i],$Directorio&"\"&$nuevonombre&"("&$N&")"&$EXTENSION)
                If $MoverError=0 Then
                    MsgBox(48,"Error","Could not be renamed: " &$lista1[$i]& @CRLF & "The file might be read-only, you don't have permission to rename it or the new name matches the old one.") 
                EndIf
                $N=$N+1
            EndIf
        Next
        MsgBox(64,"Files Renamed","Finished!")
        Exit
       Case $iMsgBoxAnswer = 7 ;No
       EndSelect
    EndIf

EndFunc

While 1
    Sleep(100)
WEnd

[Siao]

Consider a ListView control with checkbox style.

[MrCreatoR]

Or you can search on forum for scrollable Gui - but personaly i didn't use it yet.

[Nahuel]

Thank you all! The ListView with Checkboxes was the answer.