ListView untereinander anordnen

#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')

GUICreate("My GUI with treeview", 350, 215)

$ListView1 = GUICtrlCreateListView("Dateien",6, 6, 250, 150, BitOR($LVS_ICON,$LVS_SINGLESEL))
GUICtrlSendMsg(-1, 0x101E, 0, 229)

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