Office: (Office 2016) Per PQ Dateiliste (mit Unterverzeichnissen) erstellen

Hallo,

ich habe noch nicht viel mit PQ gemacht und habe jetzt ein Problem. Ich möchte in einem Excel-Blatt eine Liste mit Dateien aus einem Verzeichnis mit Unterverzeichnissen erstellen. Als erstes erzeuge ich in einer Batch-Datei mit dem Befehl

ir D:Bücher*.mp3 *.pdf /s /b /w >D:BücherBücher.txt

eine Text-Datei, die ich mit Datenimport einlese.
Dabei brauch ich nur die Dateinamen, nicht die Verzeichnisnamen. Die Dateinamen sollen in einer Spalte stehen.
Bisher ist mir nur folgendes gelungen:

Code:

Das Ergebnis sieht aus wie im Screenshot, d.h. die Dateien stehen je nach Verzeichnis in unterschiedlichen Spalten.

Was ich nicht verstehe, ist, dass ich es nicht schaffe, direkt das Verzeichnis ohne Umweg über die Textdatei einzulesen. Ich bekomme immer die Meldung

Auswertung: nicht genügend Arbeitsspeicher. Der Vorgang kann nicht fortgesetzt werden.

Dabei habe ich 16GB Arbeitsspeicher und in dem Ordner sind insgesamt weniger als 5.000 Dateien.

:)

 

Hallo Hasso,

mit Power Query kannst du auch direkt Verzeichnisse auslesen.

let
Source = Folder.Files("D: Bücher ")
Filter_PDF = Table.SelectRows(Source, each ([Extension] = ".pdf"))
in
Filter_PDF

Nach "D:" und nach "Bücher" musst du das Leerzeichen durch einen Backslash ersetzten.

 

Hallo WS-53,

Ich hatte ja in meinem Post geschildert, dass das bei mir nicht funktioniert - wegen angeblich zu wenig Arbeitsspeicher.

 

Hallo Hasso,

du hast dir aber zuerst, außerhalb von Power Query ein .txt-File erstellt. Ich aber habe das Verzeichnis direkt mit Power Query ausgelesen.

 

Hallo WS-53,

anscheinend gelingt es mir nicht, mich verständlich auszudrücken:

Ich habe versucht, das Verzeichnis direkt auszulesen, was mir wegen angeblich zu weig Arbeitsspeicher nicht gelang.
Daraufhin habe ich mit dem DIR-Befehl die Textdatei erzeugt, die ich problemlos in PQ auslesen kann. Allerdings gelingt es mir nicht alle Dateinamen in eine Spalte zu bekommen (wegen der Unterverzeichnisse).
Jetzt habe ich alle Dateien direkt in ein Verzeichnis (ohne Unterverzeichnisse) gepackt. Nun klappt es wie gewünscht - nur ist meine Verzeichnissstruktur nun nicht mehr vorhanden.

 

Hallo Hasso,

du schriebst:

Deswegen habe ich geantwortet:

Warum der dirkete Versuch bei dir nicht funktioniert, kann ich nicht sagen, da ich kein Verzeiuchnuis habe, mit dem ich das testen könnte.

Wenn du aber einen Teile deines Textfiles hier hochlädst, dann kann ich dir die PQ-Abfrage vermutlich sio gestalten, dass die Verzeichnisinfo erhalten bleibt.

 

Hallo WS-53

hier die Textdatei.

 

Wie wäre es mit Powershell?

Das sollte die Liste der Dateien in der gewünschten Form erzeugen

PHP:

         get-childitem <Verzeichnis> -file -recurse|select-object Name


 

Hallo Hasso,

anbei die aufbereitete Mappe. Da es PQ auch erlaubt, Spalten von rechts zu trennen, war es ganz einfach. Das zählen der Vereichnisebenen habe ich zwar nicht benötigt, aber wie du sehen kannst, geht auch dies ganz einfach.

 

Hallo Hasso,

warum nicht mit einem kleinen Makro?

Option Explicit

Public Sub Beispiel()
Const FOLDER_PATH As String = "G:\Eigene Dateien\" 'Anpassen !!!
Dim astrFolders() As String, strFilename As String
Dim ialngFolders As Long, lngRow As Long
Dim avntTemp As Variant
lngRow = 2
astrFolders = GetFolders(FOLDER_PATH)
For ialngFolders = LBound(astrFolders) To UBound(astrFolders)
strFilename = Dir$(astrFolders(ialngFolders) & "*.pdf")
Do Until strFilename = vbNullString
avntTemp = Split(Replace(astrFolders(ialngFolders) & _
strFilename, FOLDER_PATH, vbNullString), "\")
Cells(lngRow, 1).Resize(1, UBound(avntTemp) + 1).Value = avntTemp
lngRow = lngRow + 1
strFilename = Dir$
Loop
Next
End Sub

Private Function GetFolders(ByVal pvstrPath As String) As String()
Dim astrFolders() As String
Dim strFolder As String, strPath As String
Dim ialngIndex1 As Long, ialngIndex2 As Long
Redim Preserve astrFolders(ialngIndex1)
astrFolders(ialngIndex1) = pvstrPath
ialngIndex1 = 1
ialngIndex2 = 1
strPath = pvstrPath
Do
strFolder = Dir$(PathName:=strPath & "*", Attributes:=vbDirectory)
Do Until strFolder = vbNullString
If strFolder <> "." And strFolder <> ".." Then
If GetAttr(PathName:=strPath & strFolder) And vbDirectory Then
Redim Preserve astrFolders(0 To ialngIndex1)
astrFolders(ialngIndex1) = strPath & strFolder & "\"
ialngIndex1 = ialngIndex1 + 1
End If
End If
strFolder = Dir$
Loop
If ialngIndex1 = ialngIndex2 Then Exit Do
strPath = astrFolders(ialngIndex2)
ialngIndex2 = ialngIndex2 + 1
Loop
GetFolders = astrFolders
End Function

 

Hallo WS-53,

danke vielmals!

 

Hallo Nepomuk,

dein Makro läuft bei mir auf den Fehler "Datei nicht gefunden" und zwar in der Zeile Code:

in der Function.
Da die PQ-Lösung von WS-53 problemlos funktioniert, werde ich diese verwenden.

Trotzdem vielen Dank für deine Bemühung!

 

Hallo Hasso,

dann hast du den abschließenden Backslash in der Konstanten "FOLDER_PATH" gelöscht.

 

Hallo Nepomuk,

nein, das habe ich nicht. Ich denke, es liegt an der Kodierung der Dateinamen in der txt-Datei

 

Hallo Hasso,

ich lese nicht die Textdatei sondern die Ordner selbst. In der Konstanten sollte also:

D:\Bücher\

stehen