Hallo zusammen ich bin ein absoluter AutoIT neuling.
Folgendes möchte ich Programmieren.
Ich habe in einem Ordner mehrer Unterordner. Diese Unterordner möchte ich auslesen und in einer DropDown Box auflisten. Wenn ich dann einen namen Auswähle sollen alle Inhalte die sich in dem ausgewählten Ordner befinden in einer textarea dargestellt werden.
Ich freue mich über jede Hilfe die ich kriegen kann.
TKH
Was hast Du denn bisher? Zeig mal Dein Script.
Es gab hier im Forum eine Funktion die einen Verzeichnisbaum in eine Combobox oder Listview einließ. Den Artikel habe ich nicht wiedergefunden, aber das Script noch zu Haus. Wenn das noch interessant ist, stelle ich die Zeilen heut Abend nochmal hier rein. Das wäre als Ausgangsbasis schon nicht schlecht.
Es gab hier im Forum eine Funktion die einen Verzeichnisbaum in eine Combobox oder Listview einließ. Den Artikel habe ich nicht wiedergefunden, aber das Script noch zu Haus. Wenn das noch interessant ist, stelle ich die Zeilen heut Abend nochmal hier rein. Das wäre als Ausgangsbasis schon nicht schlecht.
Hallo
das wäre wirklich sehr nett von dir und würde mir bestimmt weiterhelfen.
Gruß
TKH
Entschuldigung, ich hoffe ich denke heute Abend daran. Gestern habe ich durch Fussball (Aberdeen - Bayern) nicht dran gedacht. 
Hier das Script was ich meinte:
#Include <GuiComboBox.au3>
[/autoit] [autoit][/autoit] [autoit]$GUI = GUICreate("ComboAddDir",400,300)
$Combo = GUICtrlCreateCombo("", 2, 2, 396, 296)
$Lesen = GUICtrlCreateButton("Lesen",20,30)
GUISetState(@SW_SHOW)
_GUICtrlComboBox_AddDir ($Combo, @WindowsDir & "\*.exe")
; um nur Unterverzeichnisse zu erhalten muss die Zeile wie folgt aussehen
; _GUICtrlComboBox_AddDir ($Combo, @WindowsDir & "\*.*",$DDL_DIRECTORY + $DDL_EXCLUSIVE)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Lesen
Msgbox(0,"Ergebnis","Gewählt wurde : " & GUICtrlRead($Combo))
EndSwitch
Wend
Hi,
hier mal ein Anfang (altes Skript) mit der Option bestimmter Ordner auch gleich auszublenden.
#Include <File.au3>
#Include <Array.au3>
#include <GUIConstants.au3>
Global $not_A[3] = ['', "Programme", "Winnt"]
[/autoit] [autoit][/autoit] [autoit]GUICreate("My GUI", 600, 600, 5, 5)
GUICtrlCreateLabel("Path : ", 5, 5, 80, 20)
$path_I = GUICtrlCreateInput("c:\", 55, 5, 300, 20)
$run_B = GUICtrlCreateButton("Run", 500, 5, 80, 20)
$folder_C = GUICtrlCreateCombo("Folders", 5, 45, 570, 550)
GUISetState(@SW_SHOW) ; will display an empty dialog box
; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
If $msg = $run_B Then
Local $file_A = _fileList(GUICtrlRead($path_I), "*.*", 2)
$file_A = _ShowNotFolder($file_A)
Local $a_A = _ArrayToString($file_A, "|")
GUICtrlSetData($folder_C, $a_A)
EndIf
WEnd
Func _fileList($s_path = "c:\", $s_pattern = "*.*", $i_opt = 0)
Local $result = _FileListToArray($s_path, $s_pattern, $i_opt)
If (Not IsArray($result)) and (@error = 1) Then
MsgBox(0, "", "No Folders Found.")
Exit
EndIf
Return $result
EndFunc ;==>_fileList
Func _ShowNotFolder($file_A)
For $i = 1 To UBound($file_A) - 2
For $y = 1 To UBound($not_A) - 1
If $file_A[$i] = $not_A[$y] Then
_ArrayDelete($file_A, $i)
$file_A[0] = UBound($file_A) - 1
EndIf
Next
Next
Return $file_A
EndFunc ;==>_ShowNotFolder
Mega
