Office: (Office 2016) Dateien einer Festplatte auslesen

Helfe beim Thema Dateien einer Festplatte auslesen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, ich benötige bitte eure Hilfe bei folgendem Makro : Was mache ich da falsch? Ich möchte aus Dateien die Unterordner "jpg-Dateien" von einem... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Ivy, 4. Mai 2020.

Seite 1 von 2

IVY

Ivy

Dateien einer Festplatte auslesen

Hallo,

ich benötige bitte eure Hilfe bei folgendem Makro :

Was mache ich da falsch?

Ich möchte aus Dateien die Unterordner "jpg-Dateien" von einem Laufwerk ("J") auslesen.

Code:

Sub Dateien_Mit_Unterordnern_Auflisten()

Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object

Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.getfolder("J:")
Set objDateienliste = objVerzeichnis.Files

lngZeile = 2

For Each objDatei In objDateienliste
If Not objDatei Is Nothing And Right(LCase(objDatei.Name), 4) = ".jpg" Then
ActiveSheet.Cells(lngZeile, 1) = objDatei.Name
ActiveSheet.Cells(lngZeile, 2) = objVerzeichnis.Path
lngZeile = lngZeile + 1
End If
Next objDatei

Call UnterOrdner_Auslesen(objVerzeichnis)

End Sub

Sub UnterOrdner_Auslesen(ByVal strDateipfad As String)

Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objUnterordner As Object
Dim objDatei As Object
Dim i As Long

Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.getfolder(strDateipfad)

If Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
i = Cells(Rows.Count, 1).End(xlUp).Row + 1
Else
i = 2
End If

For Each objUnterordner In objVerzeichnis.subfolders
For Each objDatei In objUnterordner.Files
If Not objDatei Is Nothing And Right(LCase(objDatei.Name), 4) = ".jpg" Then
ActiveSheet.Cells(i, 1) = objDatei.Name
ActiveSheet.Cells(i, 2) = objUnterordner.Path
i = i + 1
End If
Next objDatei
Call UnterOrdner_Auslesen(objUnterordner.Path)
If Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
i = Cells(Rows.Count, 1).End(xlUp).Row + 1
Else
i = 1
End If
Next objUnterordner

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Ivy, 4. Mai 2020

#1
Hajo_Zi Erfahrener User

http://hajo-excel.de/gepackt/vba2007...erlink2007.zip

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

Meine Homepage Homeseite - Hajo's Excelseiten

Hajo_Zi, 6. Mai 2020

#2
IVY

Ivy

Hallo Hajo,

danke für deine rasche Antwort.
Bei mir macht es genau wie bei meinen obigen Makro leider einen
Laufzeitfehler'70' = Zugriff verweigert

Ich habe aber vollen Zugriff auf Laufwerk J

Liebe Grüße Ivy

Ivy, 6. Mai 2020

#3
Hajo_Zi Erfahrener User

Dateien einer Festplatte auslesen

bei mir läuft es ohne Probleme.
Viel erfolg noch.
Ich bin dann raus.

Hajo_Zi, 6. Mai 2020

#4
KNOBBI38

knobbi38

Hallo Ivy,

Laufzeitfehler '70' ist durchaus normal. Du hast nicht Zugriffsrechte auf alle Verzeichnisse oder Dateien, auch nicht als Administrator! Deshalb muß dieser Fehler abgefangen werden.
Übrigens sollte man immer bei IO-Operationen damit rechnen, daß ein Fehler auftreten kann und dieses entsprechend berücksichtigen.

Ulrich

knobbi38, 6. Mai 2020

#5
IVY

Ivy

Hallo Ulrich,

kannst du mir bitte weiter helfen, wie ich das mit meinem Macro machen kann?
Vielen Dank,
liebe Grüße Ivy

Ivy, 6. Mai 2020

#6
KNOBBI38

knobbi38

Hallo Ivy,

ich möchte jetzt nicht an deinem Code noch etwas ändern wollen, weil die Programmstruktur etwas durcheinander ist.

Hier mal ein einfaches Bespiel aus dem Internet als Vorlage, daß ich ein bißchen erweitert habe:
Code:

' -----------------------------------------------------------------------------
' Benötigte Verweise:
' Microsoft Scripting Runtime
'
' siehe auch:
' Loop Through All Subfolders Using VBA
' loop-through-all-subfolders-using-vba
' -----------------------------------------------------------------------------
Option Explicit

Sub Sample()
Dim objFSO As Scripting.FileSystemObject
Dim strHostFolder As String
Dim lngRow As Long
Dim lngCol As Long

strHostFolder = "X:\" '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

knobbi38, 6. Mai 2020

#7
IVY

Ivy

Dateien einer Festplatte auslesen

Hallo Ulrich,

vielen Dank für deine rasche Hilfe, aber bei mir zeigt es eine Fehlermeldung an.

Liebe Grüße Ivy

Ivy, 6. Mai 2020

#8
KNOBBI38

knobbi38

Hallo Ivy,

das steht extra

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

' -----------------------------------------------------------------------------
' Benötigte Verweise:
' Microsoft Scripting Runtime
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

da fehlt also der Verweis!

Siehe: VBE -> Extras -> Verweise

Gruß Ulrich

knobbi38, 6. Mai 2020

#9
IVY

Ivy

Hallo Ulrich,

danke für deine Hilfe.
Ich habe Microsoft Scripting Runtime aktiviert.
Es arbeitet, aber es wird nichts in die Felder eingetragen.

Liebe Grüße Ivy

Ivy, 6. Mai 2020

#10
KNOBBI38

knobbi38

Hallo Ivy,

werden im Direktfenster Meldungen ausgegeben?

Ulrich

knobbi38, 6. Mai 2020

#11
IVY

Ivy

Hallo Ulrich,

Ja.....

DoFolder() Zugriff verweigert: J:$RECYCLE.BIN .....
DoFolder() Zugriff verweigert: J:$RECYCLE.BIN .....
DoFolder() Zugriff verweigert: J:$RECYCLE.BIN ......
DoFolder() Zugriff verweigert: J:System Volume Information

lg Ivy

Ivy, 6. Mai 2020

#12
DROGIST

Drogist

Dateien einer Festplatte auslesen

Moin,
mit Power Query habe ich keine Probleme, auch den Papierkorb aufzulisten ...

Drogist, 6. Mai 2020

#13
KNOBBI38

knobbi38

Hallo Ivy,

dann kann ich dir von hier auch nicht helfen.
Vielleicht hilft es, wenn du den Code eine Debug.Print Anweisung einfügst:
Code:

For Each objFile In pFolder.Files
Debug.Print objFile.Type, objFile.Path

' Dateityp prüfen
If StrComp(objFile.Type, "JPG-Datei") = 0 Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Damit werden alle gefundenen Dateitypen und Dateinamen ausgegeben.
Möglicherweise greift der Vergleich auf den Dateityp "JPG-Datei" nicht. Versuchsweise könntest du auch mal "PDF-Dokument" als Dateityp testen.
Im Explorer kannst du auch die Schreibweise anderer Dateitypen sehen.

Gruß Ulrich

knobbi38, 6. Mai 2020

#14
KNOBBI38

knobbi38

\@Drogist:
Wenn du die Zugriffsrechte hast ... geht das natürlich auch mit PowerQuery, oder meinst du, mit PQ könnte man fehlende Zugriffsrechte übersteuern?

Ulrich

knobbi38, 7. Mai 2020

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Dateien einer Festplatte auslesen

Die Seite wird geladen...

Dateien einer Festplatte auslesen - Similar Threads - Dateien Festplatte auslesen
Name der Datei durch Excel geändert
in Microsoft Excel Hilfe
Name der Datei durch Excel geändert: Hallo und guten Abend, Die Datei wird mittels Button (VBA) zwischen gesichert. Das Makro sichert zuvor die Datei und erstellt zus. eine Sicherungsdatei mit der Erweiterung Beispiel-"Sich"....
Zugriff auf nicht vorhandene Datei seitens Excel
in Microsoft Excel Hilfe
Zugriff auf nicht vorhandene Datei seitens Excel: Hallo, wann immer ich in Excel Daten in eine Zelle gebe, dauert es ca. 1-2 Minuten, bevor Excel die weitere Bearbeitung freigibt. Unten links gibt es den Hinweis "Zugriff auf Datei erfolgt". Dies...
Makro öffnet unerwartete Datei
in Microsoft Excel Hilfe
Makro öffnet unerwartete Datei: Hallo Forum, ich brächte euer Schwarmwissen. Arbeite mit Excel eine Auftragsbearbeitung. Dort habe ich mir einen Button mit Makro erstellt und nutze diesen schon lange. Das Makro generiert ein...
Große Textdatei - Formate entschlacken
in Microsoft Word Hilfe
Große Textdatei - Formate entschlacken: Hallo, ich arbeite seit längerem mit einer ziemlich großen Datei (mittlerweile 2000 Seiten), die sozusagen mein Zettelkasten ist. Alles ist leicht auffindbar durch Überschriften (2 Ebenen) und...
Word 2000-Datei beschädigt?
in Microsoft Word Hilfe
Word 2000-Datei beschädigt?: Mein Problem: Obwohl sich das Dokument (drei Seiten mit einigen Tabellen) vorher problemlos schließen ließ (ohne Änderung im Text), verlangt Word jetzt beim Schließen immer wieder die...
Zwei Dateien vergleichen - Zielinfo in unterschiedlichen Spalten
in Microsoft Excel Hilfe
Zwei Dateien vergleichen - Zielinfo in unterschiedlichen Spalten: Hallo, ich benötige eure Unterstützung. Ich habe zwei Dateien (Excel) dahingehend abgleichen ob in der einen Datei (Master) Zieldaten (Boxennummern - jede in einer Zeile) und deren Folgedaten...
*.ost und *.pst Datei auf eine andere Festplatte verschieben
in Microsoft Outlook Hilfe
*.ost und *.pst Datei auf eine andere Festplatte verschieben: Hallo Ich nutze Office 2021 (umter Win11) und möchte nun die *.ost und *.pst-Dateien auf eine andere interne Festplatte verschieben. Wenn ich den "mkink" erstelle kommt die Fehlermeldung: "Das...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden