Что нового

Добавление комментарий к папкам

joparezzz

Новичок
Сообщения
65
Репутация
0
Создал программу для чтения наименования папок в дереве.
При выделении папки в дереве выводятся комментарии к папке, которая находится в файле desktop.ini в той же папке.
Как сделать поле Edit вместо/ниже Labell чтоб можно было добавлять/изменять комментарии относящийся к конкретной папке, нажатием кнопки?

Код:
#include <File.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>

$Form1 = GUICreate("Form1", 650, 500, 500, 200)
$TreeView1 = GUICtrlCreateTreeView(8, 30, 273, 417)
$label = GUICtrlCreateLabel('', 300, 30, 200, 20)

$Folder = @DesktopDir
$FileList = _FileListToArray($Folder, '*', 2)
If @Error = 4 Then
    MsgBox (0,"","Файлы/папки не найдены.")
    Exit
EndIf

$iCount = $FileList[0] ;кол. папок
Local $array[$iCount + 1]
For $i = 1 To $iCount
    $sRead = IniRead($Folder & "\" & $FileList[$i] & "\desktop.ini", ".ShellClassInfo", "InfoTip", "Пусто")
    $array[$i] = $i & @TAB & $sRead
    GUICtrlCreateTreeViewItem($i & '  ' & $FileList[$i], $TreeView1)
Next

GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case 4 To $iCount + 4
            GUICtrlSetData($label, $array[$nMsg - 4])            
    EndSwitch
WEnd
 
Верх