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
Datei in mehreren Ordnern suchen und wenn gefunden öffnen?! Macro / VBA
in Microsoft Excel Hilfe
Datei in mehreren Ordnern suchen und wenn gefunden öffnen?! Macro / VBA: Hallo Leute, Hoffentlich könnt ihr mir hier helfen, ich krieg den Syntax einfach nicht hin (wahrscheinlich ist es auch totaler käse den ich programmiert habe). Also im Grunde soll eine Datei...
Links auf Dateien automatisch als Links formatieren
in Microsoft Word Hilfe
Links auf Dateien automatisch als Links formatieren: Hallo, wenn ich eine URL in ein Word-Dokument kopiere, erkennt Word das autmatisch und generiert einen anklickbaren Linke. Verlinke ich aber auf .msg-Dateien auf meiner Festplatte, funktioniert...
Makro Zip-Datei von Webseite runterladen, auspacken, kopieren
in Microsoft Excel Hilfe
Makro Zip-Datei von Webseite runterladen, auspacken, kopieren: Hallo Zusammen, ich habe ein Makro gefunden von dem ich denke, dass es koennen sollte was ich braeuchte, eine Datei herunterladen, auspacken und den Inhalt in die Datei kopieren in der das Makro...
Aufrufen Datei aus SharePoint per VBA
in Microsoft Access Hilfe
Aufrufen Datei aus SharePoint per VBA: Wer kann mir helfen. In meiner Firma gibt es Dateien in diversen Ordner in Form von SharePoints, worauf alle Kolleginnen und Kollegen zugreifen kann. Dort habe ich eine Excel-Vorlage, worin die...
Wie kann man in einer Excel-Datei nur ein Arbeitsblatt freigeben
in Microsoft Excel Hilfe
Wie kann man in einer Excel-Datei nur ein Arbeitsblatt freigeben: Hallo Zusammen, Wie kann man in einer Excel-Datei nur ein Arbeitsblatt freigeben, so dass die dritte Person die folgenden Bedingungen erfüllt: Die dritte Person kann nur die freigegebenen...
Dateien bei Öffnen aus der Cloud schreibgeschützt
in Microsoft Excel Hilfe
Dateien bei Öffnen aus der Cloud schreibgeschützt: Hallo zusammen, eine weiteres Problem... Ich habe Office 365 auf dem MAC und nutze auch One Drive. Nun habe ich folgendes Problem: Ich Speicher eine Excel Datei in der Cloud (automatisches...
*.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