Liste von Unterordnern (ohne parent)

mark_a17

Hallo,

ich möchte eine Liste aller Unterordner ohne deren parent-Ordner:

Ordnerstruktur ist wie folgt:
c:\20160909
c:\20160909\1
c:\20160909\1\a
c:\20160909\1\b
c:\20160909\1\c
c:\20160909\2
c:\20160909\2\a
c:\20160909\2\b
c:\20160909\2\c

Die erste Ebene (z.B. c:\20160909 wird mit einem Dialog abgefragt.
Folgendes habe ich, aber es wird immer noch das 1. Verzeichnislevel mit ausgegeben (z.B. c:\20160909\1) in dem aber keine Dateien enthalten sind.
Ich möchte jeweil nur ab c:\20160909\1\a gelistet bekommen:

AutoIt: mark_a17_1

Func _Menu_File()


    Local Const $sMessage = "Select a folder"


    ; Display an open dialog to select a file.
    Local $sFileSelectFolder = FileSelectFolder($sMessage, "")
    If @error Then
        ; Display the error message.
        MsgBox($MB_SYSTEMMODAL, "", "No folder was selected.")
    Else
        ; Display the selected folder.
		Local $objectN = $sFileSelectFolder
	 EndIf


	  $FileList=_FileListToArrayRec($objectN, "*", $FLTAR_FOLDERS,$FLTAR_RECUR,$FLTAR_FULLPATH, 2)
	  If @Error=1 Then
		  MsgBox (0,"","No Files\Folders Found.")
		  Exit
	  EndIf


	  For $i = 1 To $FileList[0]
		  MsgBox (0,"", $FileList[$i], 1)
	  Next


   Exit

Alles anzeigen

Kann mir jemand auf die Sprünge helfen? Ich bin kompletter Autoit-Neuling.

Grüße

Mark

Zeitriss

Hi,

hier mal ein beispiel wie man das Ergebniss filtern könnte:

AutoIt

#include<File.au3>
#include<Array.au3>
...
Local $aPath = StringSplit($objectN,"\"); Splittet den vom Benützer gewählten Pfad bei jedem Rückschrägstrich
Local $iStartDepth = $aPath[0]; enthält die Anzahl der Rückschrägstriche und dient als maßstab für die Verzeichnis tiefe
Local $iDepth
For $i = $FileList[0] to 1 step -1; um fehler durch _ArrayDelete zu vermeiden wird das Array von "oben" nach "unten" bearbeitet
   $aPath = StringSplit($FileList[$i],"\"); Selbes verfahren wie oben, diesesmal mit den gefundenen Pfaden in dem Array $FileList
   $iDepth = $aPath[0]
   If $iDepth = ( $iStartDepth + 1 ) Then _ArrayDelete($FileList, $i)
   ; Wenn der gefundene Pfad eine Ebene Tiefer ist als der vom Benützer gewählte Pfad, wird dieser gelöscht
Next
$FileList[0] = UBound($FileList) -1


_ArrayDisplay($FileList); _ArrayDisplay gibt bei Arrays einen besseren überblick als eine Msgbox

Alles anzeigen

mfg

Zeitriss

mark_a17

Super, danke. Funktioniert einwandfrei.
Das bringt mich einen entscheidenden Schritt weiter.

Grüße

Mark