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

Hallo Nepomuk,

ich habe in deinem Code nur den Pfad geändert: Code:

In meinem Bücherverzeichnis heißt eine Datei

Eiszeit 1 - Das Kind ohne Gedächtnis.pdf

Erzeuge ich die Textdatei, steht darin

D:BücherEiszeit 1 - Das Kind ohne Geda¨chtnis.pdf

und genau das wird mir auch in deinem Makro angezeigt und erzeugt offensichtlich den Fehler.

 

Hallo Hasso,

dann weiß ich auch nicht woran es liegt.

 

Ich hab meinen letzten Post noch mal ergänzt.

https://www.ms-office-forum.net/foru...0&postcount=16

 

Läuft bei mir auch nicht. Kann evtl. daran liegen, dass Hasso, wie ich denke, und ich ein 64-Bit Office/Excel benutzen.

 

Hallo Hasso,

ich verfüge auch noch über andere Methode um Verzeichnisse auszulesen. Teste mal, du musst nichts anpassen einfach das Makro "Booklist" starten.

@WS-53 da sind keine Anweisungen drin die eine Anpassung auf 64Bit benötigen.

 

Hallo Nepomuk,

diesmal kommt der Fehler in der Zeile Code:

Der Fehler lautet: Code:

Ich habe übrigens ein 32-Bit-Office.

 

Hallo Hasso,

kann ich nicht nachvollziehen. Du testest schon mit einem Tabellenblatt und nicht mit einem Diagrammblatt?

 

Hallo Nepomuk,

in der Mappe gibt's gar keine Diagramme.

 

ROTFL, Experten unter sich ...
Ein Problem, das schon 100mal gelöst worden ist.

Code:

 

Hallo Warkings,

du hattest schon mal eine Lösung mit Powershell gepostet. Leider kenne ich mich damit überhaupt nicht aus und weiß nicht, wie ich den Code anwenden soll.

 

> 4000 Beiträge und noch nie von Powershell gehört. Ich bin verwundert. Powershell ist seit Jahren Bestandteil von Windows.

Den Code in eine Textdatei kopieren, die Pfade und Dateinamen anpassen und mit der Endung ps1 abspeichern. Dann mit der Powershell ausführen, ist ähnlich (ja, ich weiß, ist nicht wirklich ähnlich, aber muss hier reichen) wie die alten Batch Dateien unter DOS.

Powershell kann man z.B. wie folgt starten: Windows-X und Powershell

 

\@Warkings:
Powershell ist zwar seit Jahren in Windows enthalten, wie so viele andere Programme und Tools auch, aber immer noch nicht in Office/VBA per COM oder sonstwie integriert und damit nicht direkt, sondern nur über Umwege nutzbar.
Für so eine Aufgabe, die leicht mit VBA, VBScript oder API zu lösen wäre, eine Shell mit Powershell zu starten, um dann mit dem Netframework eine Dir-Liste zu erstellen, ist etwas na ja ... Selbst mit PQ ist das für diese einfache Aufgabe etwas zu viel des Guten (meine Meinung), aber etwas selber mal auszuprogrammieren ist ja nicht mehr "State of the Art".

Warum der OP das mit den bereits gezeigten Codesnippseln und Vorlagen, vielleicht mit ein paar kleinen Anpassungen, nicht hinbekommt - keine Ahnung.

Gruß Ulrich

 

Hallo,

@Hasso: ein Marvel-Fan *top , wußte gar nicht, daß es Tarzan.Batman Crossover gibt...*grins..aber mal zum Problem: normalerweise rennt Nepumuks Code, Du hast da aber ein korruptes Zeichen reinbekommen, da kann der Code nix mit anfangen, wenn ich Dein ä aus Eiszeit 1 - Das Kind ohne Gedächtnis kopiere und wieder einfüge, wird daraus a¨ ..ist also gar kein ä...Da kann GetAttr nix mit anfangen und selbst die Name-Anw. geht in die Knie...*rolleyes.gif*

Du könntest das in Nepumuks GetFolders-Function so umgehen:
Code:

Besser Du benennst diese Dateien aber mit echten a-Umlauten, besser dann ae, statt ä, um ...*cool.gif* ..Umbenennung per Code hab ich aber auch noch nicht hinbekommen..ob Nepumuk da noch Bock zu hat, weiß ich jetzt auch nicht wirklich...*cool.gif*

Gruß, Muller2

 

\@Knobbi: Der TS hat ähnliches gemacht, indem er eine DOS-Shell gestartet hat, um die Dateiliste zu erstellen, die er dann in Excel weiterverarbeitet. Da habe ich Powershell in Spiel gebracht, das kann das heutzutage wesentlich besser.

Und ja, ich gebe Dir Recht, es sollte kein Problem sein mit VBA ein Skript zu erstellen, das genau das tut. Ist schon 1000mal gelöst worden, googel gibt die Antwort. Aber das haben die Kollegen ja nicht geschafft ... *upps

Das liegt nicht an dem Zeichen, das liegt an dem Code. Wenn man Code aus den 90er Jahren heute noch unverändert anwendet, darf man sich nicht wundern, wenn er mit den heute erlaubten Dateinamen nicht klar kommt.

 

\@Warkings:
Ich bin mir noch nicht mal sicher, ob die so erstellte Dateiliste.txt mit den dt. Umlauten korrekt umgehen könnte.

Gruß Ulrich