Печать

[romashka [?]]

Нужен скрипт на автоит !
Который запишет мне все расположение папок и файлов на диске в файл а потом оттуда прочитает в GUI,но с подпапками и прочем.Тоесть он будет читать НЕ напрямую а то,что уже ЗАПИСАЛ в некий файл и потом ОТТУДА ПРОЧИТАЛ все расположение.ТОесть дал мне схему расположения файлов и папок на компьютере ! Еще не поняли? Ну вот например если ввести в cmd - tree c:\ ,то будет чтото подобное ! но там как видим все слитно и єто на километр такого листа а мне нужно чтбы было в меню там подменю список..ну как обычный файл менеджер почти !!!

Ну я незнаю как это обьяснить просто очень нужно это касается универа !!!!! помогите если не трудно !!!!!!!!!! Я с универа домой должна принести файл в котором записано ВСЕ что есть на компе все файлы и папки (но не содрежимое а тоесть расположение место) В ЧИТАЕМОМ ВИДЕ!!!!!!!!

[Yashied [?]]

Есть задача с которой я не могу справиться !
Нужно предоставить все файлы и все папки на компьютере но в необычном ввидео !
В оффлайне ! Тоесть както их записать все в файл и потом прочитать с помощью автоит !
Но так,чтобы было удобно по папочкам.Но ОФФ-записбю так бы сказать !

Что могу сделать я - так это с помощью консоли и команды tree но там немного не так как мне нужно а именно не могу сделать чтобы ы скею были папки там..в общем кто может помогите !!!!

romashka, ты что сегодня курил(а)? Я вообще ничего не понял, т.е. совсем. Я советую тебе немного наморщить ум, сосредоточиться и написать еще раз, но только более земным языком, то, что собственно требуется. В противном случае, я закрою эту тему к матери.

[Yuriy [?]]

romashka
Посмотри на скрипт Yashied
"Поиск файлов на диске" тут Поиск файлов на диске
в строке _FindFiles('C:', '*.txt') вместо *.txt поставь маску *.*
Посмотри как он работает. Может тебе этого и достаточно будет.
Тогда просто вместо вывода в консоль выведешь в файл.
Но строк будет очень много.

[asdf8 [?]]

Ну в Total Commander есть архиваторный плагин Catalog Maker, он как раз это делает.
Есть еще программа Beyond Compare, в ней тоже можно сделать образ диска без содержимого.
Это конечно не AutoIt, но тоже удобно.

[romashka [?]]

нет делов том что нужно именно на автоит (((
но как незнаю..(((
от него скрипт вроде бы понятно но как сделать так чтобы он записывал все что нужно то ..((

[Yuriy [?]]

Так еще быстрее.

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

RunWait(@ComSpec & " /c " & "dir c:\ /s >list.txt", "", @SW_HIDE)
MsgBox(64, "Инфо", "Готово")

Все запишется в файл list.txt в директории откуда запущен скрипт.


Добавлено: Август 30, 2010, 04:59:45

от него скрипт вроде бы понятно но как сделать так чтобы он записывал все что нужно то ..((

Если имеется в виду скрипт Yashied, то так попробуй.

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

#Include <File.au3>
$file = FileOpen("test.txt", 1)
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

_FindFiles('C:', '*.*')

Func _FindFiles($sRoot, $sFile)

    Local $FileList

    $FileList = _FileListToArray($sRoot, $sFile, 1)
    If Not @error Then
        For $i = 1 To $FileList[0]
            ;ConsoleWrite($sRoot & '\' & $FileList[$i] & @CR)
            FileWrite($file, $sRoot & '\' & $FileList[$i] & @CR)
        Next
    EndIf
    $FileList = _FileListToArray($sRoot, '*', 2)
    If Not @error Then
        For $i = 1 To $FileList[0]
            _FindFiles($sRoot & '\' & $FileList[$i], $sFile)
        Next
    EndIf
EndFunc   ;==>_FindFiles
FileClose($file)
MsgBox(64, "Инфо", "Готово")

[romashka [?]]

проблему решила сама представаляете !!! с помощью скрипта от яшида !

[Yashied [?]]

Нужен скрипт на автоит!
Который запишет мне все расположение папок и файлов на диске в файл а потом оттуда прочитает в GUI, но с подпапками и прочем...

Ромашка, А вот мне интересно, с помощью какого такого "скрипта от яшида" ты решила этот вопрос? Я вроде не выкладывал скрипт, который отображает в GUI дерево папок, и тем более непосредственно из файла-образа. Получить список файлов на диске, это не проблема, но отображение потом этого хозяйства в GUI (TreeView) будет нетривиальной задачей, здесь по идее должна получиться жуткая рекурсия. Или может быть ты опять неверно сформулировала задачу?



В любом случае, вот, что у меня получилось.


TreeToDisk.au3 (этим скриптом создаешь файл-образ)

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

#Include <File.au3>

Opt('MustDeclareVars', 1)

Global Const $sRoot = RegRead('HKLM\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir')
Global Const $sFile = @ScriptDir & '\tree.txt'

Global $hFile

$hFile = FileOpen($sFile, 2)
_EnumFiles($sRoot)
FileClose($hFile)

Func _EnumFiles($sRoot)

    Local $FileList

    FileWriteLine($hFile, $sRoot & '\')
    $FileList = _FileListToArray($sRoot, '*', 2)
    If Not @error Then
        For $i = 1 To $FileList[0]
            _EnumFiles($sRoot & '\' & $FileList[$i])
        Next
    EndIf
    $FileList = _FileListToArray($sRoot, '*', 1)
    If Not @error Then
        For $i = 1 To $FileList[0]
            FileWriteLine($hFile, $sRoot & '\' & $FileList[$i])
        Next
    EndIf
EndFunc   ;==>_EnumFiles

TreeFromDisk.au3 (этот скрипт отображает созданный ранее файл-образ в TreeView)

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

#Include <GUIConstantsEx.au3>
#Include <GUIImageList.au3>
#Include <GUITreeView.au3>
#Include <TreeViewConstants.au3>
#Include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

Global Const $sFile = @ScriptDir & '\tree.txt'

Global $hForm, $hTreeView, $hImageList, $hFile, $sRoot

SplashTextOn(':-)', 'Wait...', 300, 100, Default, Default, 32, 'Tahoma', 18)

$hForm = GUICreate('MyGUI', 600, 600)
GUICtrlCreateTreeView(20, 20, 560, 560, BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE)
$hTreeView = GUICtrlGetHandle(-1)

$hFile = FileOpen(@ScriptDir & '\tree.txt')
$sRoot = FileReadLine($hFile)
If $sRoot Then
    $hImageList = _GUIImageList_Create(16, 16, 5, 1)
    _GUIImageList_AddIcon($hImageList, @SystemDir & '\shell32.dll', 3)
    _GUIImageList_AddIcon($hImageList, @SystemDir & '\shell32.dll', 4)
    _GUIImageList_AddIcon($hImageList, @SystemDir & '\shell32.dll', 0)
    _GUICtrlTreeView_SetNormalImageList($hTreeView, $hImageList)
    _GUICtrlTreeView_BeginUpdate($hTreeView)
    _EnumPaths($sRoot)
    _GUICtrlTreeView_SetState($hTreeView, _GUICtrlTreeView_GetFirstItem($hTreeView), $TVIS_EXPANDED, 1)
    _GUICtrlTreeView_EndUpdate($hTreeView)
EndIf

FileClose($hFile)

GUIRegisterMsg($WM_NOTIFY, 'WM_NOTIFY')

SplashOff()

GUISetState()

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func _EnumPaths($sRoot, $hItem = 0)

    Local $hSubItem, $Data, $Dir, $Path

    While 1
        $Dir = StringSplit($sRoot, '\')
        If StringRight($Dir[$Dir[0] - 1], 1) = ':' Then
            $Dir[$Dir[0] - 1] &= '\'
        EndIf
        $hSubItem = _GUICtrlTreeView_AddChild($hTreeView, $hItem, $Dir[$Dir[0] - 1], 0, 1)
        While 1
            $Path = FileReadLine($hFile)
            Switch @error
                Case  0

                Case -1
                    Return 0
                Case Else
                    Return SetError(2, 0, 0)
            EndSwitch
            If Not $Path Then
                ContinueLoop
            EndIf
            $Dir = StringSplit($Path, '\')
            If $Dir[$Dir[0]] Then
                If StringRegExpReplace($Path, '\\.[^\\]*\Z', '\\') = $sRoot Then
                    _GUICtrlTreeView_AddChild($hTreeView, $hSubItem, $Dir[$Dir[0]], 2, 2)
                    ContinueLoop
                Else
                    Return SetError(1, 0, $Path)
                EndIf
            EndIf
            If StringRegExpReplace($Path, '\\.[^\\]*\\\Z', '\\') <> $sRoot Then
                Return $Path
            EndIf
            While 1
                $Data = $Path
                $Path = _EnumPaths($Path, $hSubItem)
                Switch @error
                    Case 1
                        _GUICtrlTreeView_AddChild($hTreeView, $hSubItem, StringRegExpReplace($Path, '^.*\\', ''), 2, 2)
                        ExitLoop
                    Case 2
                        Return SetError(2, 0, 0)
                EndSwitch
                If Not $Path Then
                    Return 0
                EndIf
                If StringRegExpReplace($Path, '\\.[^\\]*\\\Z', '\\') = $sRoot Then
                    ContinueLoop
                Else
                    Return $Path
                EndIf
            WEnd
        WEnd
    WEnd
EndFunc   ;==>_EnumPaths

Func WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam)

    Local $tNMTREEVIEW = DllStructCreate($tagNMTREEVIEW , $lParam)
    Local $hTV = DllStructGetData($tNMTREEVIEW, 'hWndFrom')
    Local $ID = DllStructGetData($tNMTREEVIEW, 'Code')

    Switch $hTV
        Case $hTreeView
            Switch $ID
                Case $TVN_ITEMEXPANDEDA, $TVN_ITEMEXPANDEDW
                    _GUICtrlTreeView_SetImageIndex($hTreeView, DllStructGetData($tNMTREEVIEW, 'NewhItem'), BitAND(DllStructGetData($tNMTREEVIEW, 'NewState'), $TVIS_EXPANDED) = $TVIS_EXPANDED)
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

[Yashied [?]]

Так никто и не заценил второй пример (TreeFromDisk.au3) с чумавой рекурсией?

[Yuriy [?]]

Yashied
Я попробовал.
Замечательно.
Взял себе, в коллекцию.

[Guezt Gutsy [?]]

Так никто и не заценил второй пример (TreeFromDisk.au3) с чумавой рекурсией?

 

Отличная работа! Мне не меньше года усердного изучения АНГЛИЙСКОГО ( именно его, а не самого программирования ) надо что бы такое самостоятельно навоять 

[Zaramot [?]]

А это не сойдёт ? Через веб-браузер 

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

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 613, 423, 192, 124)
$Obj1 = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($Obj1, 0, 0, 610, 420)
GUISetState(@SW_SHOW)
$Obj1.Navigate("C:\")
Sleep(1000)
$Obj1.Navigate("C:\")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

[armenxxx1 [?]]

Примеры Yashied очень хорошо. Но как можно сделать вот так

или так

 

[AZJIO [?]]

armenxxx1
Попробуй открыть explorer.exe
Если используя AutoIt, то вот тема

[armenxxx1 [?]]

Спасибо, но я хочу сохранены в файл и прочитать его и визуализировать как пример Yashied.

• centaur
• eropov
• Ganibal95
• Yashied
• Serafim
• enk
• inververs
• mr.Gbabak
• sagem830
• CreatoR
• asdf8
• felikc
• spn123
• madmasles
• trizorka
• Viktor1703
• Pavel
• Kaster
• ORiON
• alexisnoy123
• Asshaker
• Pasmer
• valdur2000
• Nivel
• winstan
• krizn