Тема: Дерево папок и файлов (Прочитано 574 раз)

armenxxx1 · « **Создано:** Ноябрь 03, 2011, 18:05:24 »

Здравствуйте, я нашел эти темы, но скрипты не работают правильно вы можете мне помочь ?

http://www.autoit.de/index.php?page=Thread&postID=22511

http://www.autoitscript.com/forum/topic/47174-directory-to-treeview/

Сценарий кажется, легче, чем другие в форуме для этого хочу этот сценарии.

madmasles

armenxxx1 [?]

Цитата

но скрипты не работают правильно

ИМХО, Вы сами себе ответили. А чем Вам не нравится TVExplorer UDF?

Цитата

Сценарий кажется, легче

Легче, но не лучше, ИМХО.

armenxxx1

Файлов в каталоге имеет бинарное название я хочу, чтобы отобразить в ANSI. В приведенном выше сценарии сделал вот так http://zalil.ru/31989498 .

Код: AutoIt [Выделить]

#include <guiconstants.au3>
#include <array.au3>
#include <WindowsConstants.au3>
#include <TreeViewConstants.au3>
#Include <File.au3>
#Include <GUIConstantsEx.au3>
#Include <GUIImageList.au3>
#Include <GUITreeView.au3>
Global $items[1], $names[1]

$Main = GUICreate("Каталог", 340, 300, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_GROUP, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU))
$Tree = GUICtrlCreateTreeView(5, 10, 70, 280, -1, $WS_EX_CLIENTEDGE + $TVS_SINGLEEXPAND)
$StartDir = @ScriptDir
$TrreView = GUICtrlCreateTreeViewItem("Каталог", $Tree)

MakeList($StartDir, $TrreView, 0)
MakeList($StartDir, $TrreView, 1)

GUISetState(@SW_SHOW)
GUISetState(@SW_MAXIMIZE)
While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case Else
        for $i = 1 to ubound($items) - 1
            if $msg = $items[$i] then ishidden($names[$i])
        Next
            sleep(20)
    EndSwitch
WEnd
Func MakeList($dir, $parent, $mode = 0)
    FileChangeDir($dir)
    $search = FileFindFirstFile("*.*")
    While 1
        $file = FileFindNextFile($search)
        If @error Then ExitLoop
            $GetExt = GetExt($dir & "\" & $file)
        If $GetExt <> "folder" And $mode = 1 Then   
                $buffer = BinaryToString($file)
                _ArrayAdd($items, GUICtrlCreateTreeViewItem($buffer,$parent))
                _ArrayAdd($names, @workingdir & "\" & $file)
                GUICtrlSetColor($items[Ubound($items) - 1], 0xff8800)
        Else
            If $GetExt = "folder" And $mode = 0 Then
                $buffer = BinaryToString($file)
                _ArrayAdd($items, GUICtrlCreateTreeViewItem($buffer,$parent))
                _ArrayAdd($names, @workingdir & "\" & $file)
                GUICtrlSetColor($items[Ubound($items) - 1], 0xffcc00)
                MakeList($dir & "\" & $file, $items[Ubound($items) - 1], 0)
                MakeList($dir & "\" & $file, $items[Ubound($items) - 1], 1)
            EndIf
        EndIf
    WEnd
    FileClose($search)
EndFunc

Func GetExt($file)
    If StringInStr(FileGetAttrib($file), "D") Then Return "folder"
    Return StringUpper(StringTrimLeft($file, StringInStr($file, ".", 0, -1)))
EndFunc

Func ishidden($file)
    msgbox(0,"",$file)
EndFunc

Но как я уже говорил не работает правильно...

Если кто-то может написать сценарий TVeXplorer UDF, чтобы показать имена файлов в ANSI я буду очень благодарен.