Hi..
Komme irgendwie nicht mit ListView zurecht....
Spoiler anzeigen
]
[autoit]#Include <GuiListView.au3>
#include <Process.au3>
#include <Misc.au3>
#include <GUIConstants.au3>
#include <GUIListBox.au3>
$vorhandene_exe_array = _vorbereiten ("C:\Dokumente und Einstellungen\All Users\Startmenü",'lnk')
[/autoit] [autoit][/autoit] [autoit]GUICreate("My GUI with treeview", 350, 215)
[/autoit] [autoit][/autoit] [autoit]$ListView1 = GUICtrlCreateListView("",6, 6, 250, 150, BitOR($LVS_SMALLICON,$LVS_SINGLESEL))
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To $vorhandene_exe_array[0][0]
GUICtrlCreateListViewItem ( $vorhandene_exe_array[$i][0] ,$ListView1)
$pfad = FileGetShortcut ($vorhandene_exe_array[$i][1])
;_ArrayDisplay ( $pfad )
GUICtrlSetImage(-1, $pfad[0], 0)
Next
GUISetState ()
Do
Until GUIGetMsg() = -3
GUIDelete()
Exit
;##################################################################################
; Func: - Suchen und in Array / Datei speichern
; Input: $current,$ext (suchverzeichnis,Fileart[z.b. doc])
;##################################################################################
Func _vorbereiten ($dir,$ext2)
;--------------------------------------------------------------------------------------------------------------- EXE
Global $vorhandene_exe_array[1][1]
Global $found_A[1]
_Search($dir, $ext2);verzeichnis , dateiendung
$found_A[0]= UBound ($found_A)-1 ; Länge des Arrays in [0] schreiben
Global $vorhandene_exe_array [$found_A[0]+1][2] ;Array definieren mit länge von $fond_A[0]
For $i = 1 To $found_A[0] Step 1
$vorhandene_exe_array[$i][1] = $found_A[$i];In die Zweite Spalte komplette Angaben eingeben
$getrennt_array = StringSplit ($found_A[$i],'\');Trennen durch \
;_ArrayDisplay ($getrennt_array)
$getrennt_array_ohne_endung = StringSplit($getrennt_array[$getrennt_array[0]],'.'); Endung von Namen abspalten
$vorhandene_exe_array[$i][0] = $getrennt_array_ohne_endung[1] ; In großes Array schreiben
Next
$vorhandene_exe_array[0][0] = UBound ($vorhandene_exe_array) -1 ; Länge des Arrays in [0] schreiben
Return $vorhandene_exe_array
EndFunc
;##################################################################################
; Func: - Verzeichnis durchsuchen nach *.*
; Input: $current,$ext (suchverzeichnis,Fileart[z.b. doc])
;##################################################################################
Func _Search($current, $ext)
Local $search = FileFindFirstFile($current & "\*.*")
While 1
Local $file = FileFindNextFile($search)
If @error Or StringLen($file) < 1 Then ExitLoop
If Not StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then
If StringRight($current & "\" & $file, StringLen($ext)) = $ext Then
;MsgBox(0, "Dateiendung " & $ext, $current & "\" & $file)
; Hier kopieren, löschen, umbennen etc.
_ArrayAdd($found_A, $current & "\" & $file)
;_ArrayDisplay ($found_A)
EndIf
EndIf
$found_A[0]= UBound ($found_A)-1
ToolTip ( $current,0,0,"Faststart Erststart ( suche nach *."&$ext&" Datein ["&$found_A[0]&"] gefunden ) Dies kann einige Minuten in Anspruch nehmen!",1)
If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then
_Search($current & "\" & $file, $ext)
EndIf
WEnd
ToolTip ( '')
EndFunc ;==>Search
Ich hätte jetzt gerne das die Items in der ListView nicht nebeneinander kommen sondern untereinander..
Vielen Dank für Antworten...
MFG chris