image organizzer V1

#include <file.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
$a = 0
$b = 0
$c = 0
$d = 0
$e = 0
$Form1 = GUICreate("IMAGE ORAGNIZZER", 625, 443, 192, 124)
GUISetBkColor(0xC0C0C0)
$aggiungi = GUICtrlCreateButton("aggiungi cartella", 0, 0, 100)
$mas = GUICtrlCreateButton("imposta cartella di destinazione",100,0,180)
$chiave = GUICtrlCreateInput("1)inserisci una parola chiave", 335, 83, 145, 21)
$add = GUICtrlCreateButton("aggiungi",490,80,100,25)
GUICtrlCreateGroup("", 312, 64, 289, 89)
$nuovonome = GUICtrlCreateInput("2)Inserici nuovo nome", 336, 115, 145, 21)
$rinomina = GUICtrlCreateButton("rinomina e invia",490,112,100,25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$sali = GUICtrlCreateButton("/\", 150, 80, 30, 30)
GUICtrlSetFont(-1, 15)
GUICtrlSetState($sali, $GUI_HIDE)
$scendi = GUICtrlCreateButton("\/", 150, 350, 30, 30)
GUICtrlSetFont(-1, 15)
_carica()
GUISetState(@SW_SHOW)
$master = ""
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $aggiungi
_aggiungicartella()
Case $rinomina
_rinomina()
Case $scendi
GUICtrlSetState($sali, $GUI_SHOW)
For $a = $d + 1 To $d + 5
GUICtrlSetState($immagine[$a], $GUI_HIDE)
GUICtrlSetState($pic[$a], $GUI_HIDE)
Next
$d = $d + 5
For $a = $d + 1 To $d + 5
If $a > _FileCountLines("lista.txt") Then
GUICtrlSetState($scendi, $GUI_HIDE)
ExitLoop
EndIf
GUICtrlSetState($immagine[$a], $GUI_SHOW)
GUICtrlSetState($pic[$a], $GUI_SHOW)
Next
Case $sali
GUICtrlSetState($scendi, $GUI_SHOW)
For $a = $d + 1 To $d + 5
GUICtrlSetState($immagine[$a], $GUI_HIDE)
GUICtrlSetState($pic[$a], $GUI_HIDE)
Next
$d = $d - 5
If $d = 0 Then GUICtrlSetState($sali, $GUI_HIDE)
For $a = $d + 1 To $d + 5
GUICtrlSetState($immagine[$a], $GUI_SHOW)
GUICtrlSetState($pic[$a], $GUI_SHOW)
Next
case $add
_chiave()
case $mas
$master = FileSelectFolder("","")
EndSwitch
WEnd

Func _aggiungicartella()
$dir = FileSelectFolder("seleziona la cartella da aggiungere alla lista", "")
$file = _FileListToArray($dir, "*.jpg")
if $file = "" Then
MsgBox(0,"","nella cartella non cè alcun file .jpg")
Else
if 0 = _FileCountLines("lista.txt") Then
Else
For $a = 1 To _FileCountLines("lista.txt")
GUICtrlDelete($immagine[$a])
GUICtrlDelete($pic[$a])
Next
EndIf
For $a = 1 To $file[0]
FileWriteLine("lista.txt", $dir & "\" & $file[$a])
Next
_carica()
EndIf
EndFunc ;==>_aggiungicartella
Func _carica()
Global $immagine[_FileCountLines("lista.txt") + 11]
Global $pic[_FileCountLines("lista.txt") + 11]
For $a = 1 To _FileCountLines("lista.txt")
$pic[$a] = GUICtrlCreatePic(FileReadLine("lista.txt", $a), 30, ($a - $b) * 70, 90, 60)
$immagine[$a] = GUICtrlCreateCheckbox("", 0, ($a - $b) * 70, 20, 20)
$c = $c + 1
If $c = 5 Then
$b = $b + 5
$c = 0
EndIf
Next
For $a = 6 To _FileCountLines("lista.txt")
GUICtrlSetState($immagine[$a], $GUI_HIDE)
GUICtrlSetState($pic[$a], $GUI_HIDE)
Next

EndFunc ;==>_carica
Func _rinomina()
if $master = "" Then
MsgBox(0,"","devi selezionare una cartella di destinazione")
Else
$nuovonome2 = GUICtrlRead($nuovonome)
For $a = 1 To _FileCountLines("lista.txt")
If GUICtrlRead($immagine[$a]) = $GUI_CHECKED Then
$asa =StringSplit(FileReadLine("lista.txt",$a),"\")
$zxc = $asa[0]
MsgBox(0,"",FileRead($asa[$zxc] & ".txt"))
FileMove(FileReadLine("lista.txt", $a), $master & "\" & $nuovonome2 & $e &"("& FileRead($asa[$zxc] & ".txt")& ".jpg")
$e = $e + 1
EndIf
Next
EndIf
EndFunc ;==>_rinomina
func _chiave()
$chiave2 = GUICtrlRead($chiave,0)
MsgBox(0,"",$chiave2)
For $a = 1 To _FileCountLines("lista.txt")
$asa =StringSplit(FileReadLine("lista.txt",$a),"\")
$zxc = $asa[0]
If GUICtrlRead($immagine[$a]) = $GUI_CHECKED Then FileWrite($asa[$zxc]& ".txt",$chiave2 & " ")
Next
EndFunc