Musik/Datei/Verwaltung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Otto,
Du erwartest aber nicht von uns, daß wir uns jetzt 992 Test-Datensätze aus den Fingern saugen, um zu sehen, wo beim 993. der Fehler liegt?!
Ich hab's mal kurz angetestet, und bei mir listet das Programm nur gut 400 Titel, und zwar nur aus drei Verzeichnissen (wobei die ersten beiden diverse Unterordner enthalten, das dritte nicht).
Ich vermute, das Problem liegt irgendwo in der "nicht vorhandenen" Rekursion mit den Verzeichnissen (Modul: MP3, Sub MP3_Liste, dort Kommentar am Ende und dann doch rekursiver Aufruf).
Also gut: wenn man eine weitere Variable "inschtanz" nach dem "Dateizähler" als Public definiert, in der Sub Start =0 setzt und in der Schleife am Ende der Sub MP3-Liste hochzählt...

For zähler = 1 To UBound(V)
inschtanz = inschtanz + 1
MsgBox "i " & inschtanz & " z " & zähler & " Ordner " & V(zähler)
'Jetzt ruft sich diese Funktion noch mal auf.
MP3_Liste aktVerz & V(zähler), Liste, Filter
Next

...sieht man, wie sich das Ding immerzu selbst aufruft - das bremst die Performance und hat ein "natürliches Ende" im Speicher, denn bei jedem Aufruf wird wieder ein Häppchen Speicher benötigt.
Mein Vorschlag wäre, in einem "ersten Rutsch" erst Mal alle Datein einzulesen (ins Blatt, ein Dictionary, ein Array...) und dieses dann abzuarbeiten, um sich die tags (so weit benötigt)(*brauchst* Du die überhaupt?) zu holen, ganz ohne die lästige Rekursion.
Die Infos helfen Dir (mit Basiskenntnissen) grad nicht weiter, aber ich muß aus dem Haus, und falls Du die ganzen Tags nicht brauchen solltest, haben viele andere Helfer was Fertiges in der Schublade.
Schöne Grüße,
Michael

Hi Otto,
das hatte ich bei der Entwicklung zwischendrin auch mal; bei der Suche hatte ich dann festgestellt, daß ein im Windows-Explorer *nicht* angezeigtes "?" am Ende des Dateinames war.
Schreib mal den betreffenden Dateinamen in eine Zelle, z.B. A1, dann - ach was, ich lad Dir schnell ne Beispieldatei hoch: https://www.herber.de/bbs/user/102510.xls
Klicke *einmal* im Explorer auf den Dateinamen, drücke F2, dann kannst Du den Namen editieren bzw. komplett markieren und über die Zwischenablage in A1 kopieren. Dann ziehst Du die Formeln bis zur max. Länge runter - alle enthaltenen Zeichen werden als "code" bzw. "zeichen" angezeigt.
Manchmal gibt es "versteckte" Zeichen, die zu derartigen Fehlern führen.
In meinem Fall hatte ich alles, was nicht Buchstabe oder Ziffer war, durch einen Unterstrich ersetzt, und dann ging es.
Manchmal führen solche "falschen" Dateinamen auch dazu, daß Du beim Kopieren auf CD Fehler bekommst.
Schöne Grüße & guten Rutsch,
Michael

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread