Office: (Office 2016) Dateien einer Festplatte auslesen

Hallo, Ulrich,

funktioniert leider noch immer nicht.
Im Direktfenster werden alle Dateien aufgelistet, nur am Ende ist eine Zeile:
"DoFolder() Zugriff verweigert: J:System Volume Information".

Na macht ja nichts.

Ich habe eine andere Lösung gefunden.

Mit meinem Code funtioniert es, wenn ich alle Dateien in ein Verzeichnis verschiebe.

Code:

Ich umgeh das Ganze.
Vielen Dank, liebe Grüße Ivy

 

Hallo Ivy,

"funktioniert nicht" ist keine klare Fehlerbeschreibung und du hast auch keine "Lösung" gefunden, sondern eine Umgehung deines Problems, aber das kann's ja nicht sein, oder?
Bei mir läuft der Code fehlerfrei, also hast du möglicherweise einfach beim Copy/Paste einen Fehler gemacht oder an den Stellen, wo anpassen steht, etwas falsch angegeben.
Wenn alle Dateien im Direktfenster angezeigt werden, werden zumindest die Verzeichnisse durchsucht.

Du könntest dir noch alle gefundenen Dateien ausgeben lassen, wenn du den Code folgendermaßen änderst:
Code:

Die Debug.Print Anweisung ist jetzt im If-Teil, bevor das Ergebnis in die Excel-Tabelle geschrieben wird.
Das du auf "System Volume Information" keine Zugriff hast, ist völlig normal.

Gruß Ulrich

 

Hallo Ulrich,

Bei mir funktioniert es einfach nicht.....*frown.gif*
wieder Meldungen:

DoFolder() Zugriff verweigert: J:
DoFolder() Zugriff verweigert: J:
DoFolder() Zugriff verweigert: J:
DoFolder() Zugriff verweigert: J:System Volume Information

Mein Code, genau wie du ihn geschrieben hast.....

Code:

 

Hallo Ulrich,

es handelt sich um eine externe Festplatte.
Kommt durch diese vielleicht die Fehlermeldung?

Lg Ivy

 

Nun ja, Ulrich...
über die Aussagekraft der VBA-Fehlermeldungen mache ich mir schon lange keine Gedanken mehr.*cool.gif* Und es würde mich schon verwundern, wenn ich auf meinen Papierkorb keinen Zugriff habe. Mich hatte irritiert, dass beide "reklamierten" Files Systemdateien sind; ich hatte aber auch nicht den Code ausprobiert, da ich mich in Foren nicht mehr mit VBA auseinander setze.

Um diene Frage zu beantworten: Ich gehe davon aus, dass PQ bei fehlenden Zugriffsrechten auch einen Fehler erzeugt (aber nicht probiert, das überlasse ich dem Fragesteller). *wink.gif*

 

Hallo Ivy,

die Meldung mit dem Zugriffsfehlern sind Hinweise, keine echten Fehlermeldungen. Sie zeigen dir an, daß du auf das Vereichnis keine Zugriffsrechte hast, was aber ganz normal ist.

Wenn du natürlich auf diese Art und Weise eine gesamte externe Festplatte durchsuchen möchtest, dann kann das u.U. schon sehr lange dauern.

Ich habe dir mal meine Test-Version beigelegt. Ändere noch den Startpfad ab, auf eine Verzeichnis, in dem deine JPG-Dateien liegen und das eventuell nicht so groß ist. Eine ganzes Root-Verzeichnis einer Platte, z.B. "C:" ist zum testen ungeeignet.

Gruß Ulrich

 

\@Drogist:
Auch per VBA hast du normalerweise Zugriff auf den Papierkorb, aber eben nicht auf alle Verzeichnisse innerhalb des Papierkorbs, die vom System verwaltet werden. Normalerweise werden diese im Explorer auch nicht angezeigt. Dieser Code mit FSO wertet aber die Dateiattribute nicht aus, sondern greft direkt darauf zu, wobei dann natürlich der Fehler 70 erzeugt wird.
Das würde übrigens genauso passieren, wenn versucht wird, alle Benutzerverzeichnisse zu durchlaufen - geht natürlich auch nicht.

Gut, daß ist deine persönliche Entscheidung, aber um VBA kommst du bei Excel letztendlich nicht herum und den Fehlermeldungen darfst du durchaus vertrauen, auch wenn der beschreibende Text machmal nicht wirklich weiter hilft.

Gruß Ulrich

 

Hallo Ulrich,

ich habe ihm Zeit gelassen.
In deiner Datei fügt es mir nichts ein. *frown.gif*

Lg Ivy

 

Hallo Ivy,

im Direktfenster werden die aktuell durchsuchten Verzeichnisse aufgelistet. Da sollte also ständig ein weiteres Verzeichnis hinzukommen.
Wenn du sonst keine weiteren echten Fehlermeldung bekommst und nichts angezeigt wird, kann ich dir nicht mehr weiter helfen. Das Programm ist absolut standard und sollte überall laufen, auch wenn es manchmal bei großen Verzeichnissen zum Einlesen der Dateinamen etwas Zeit braucht.

Wie gesagt, setze auf die Zeile
Code:

einen Breakpoint, kontrolliere die Werte im Lokal-Fenster und gehe dann im Einzelschritt weiter.

Gruß Ulrich