gelöst Dokumenteigenschaften auslesen
Ich bekomme bei der nachfolgenden Routine die Fehlermeldung "Laufzeitfehler 438" - Objekt unterstützt diese Eigenschaft oder Methode nicht. Der Debugger zeigt den Fehler in der markierten Zeile an.
Es wäre super, wenn mir hier jemand weiterhelfen könnte.
Sub DateienMitUnterordnernAuflisten()
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("U:\Vogt\Intranet\iso9001-word-excel")
Set objDateienliste = objVerzeichnis.Files
lngZeile = 2
For Each objDatei In objDateienliste
If Not objDatei Is Nothing And Not Right(objDatei.Name, 4) = ".jpg" Then
ActiveSheet.Cells(lngZeile, 2) = objDatei.Name
ActiveSheet.Cells(lngZeile, 1) = objVerzeichnis.Path
ActiveSheet.Cells(lngZeile, 3) = objVerzeichnis.GetDetailsOf(objDatei.Name, 20)
lngZeile = lngZeile + 1
End If
Next objDatei
'Call UnterOrdnerAuslesen(objVerzeichnis)
End Sub
Es wäre super, wenn mir hier jemand weiterhelfen könnte.
Sub DateienMitUnterordnernAuflisten()
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("U:\Vogt\Intranet\iso9001-word-excel")
Set objDateienliste = objVerzeichnis.Files
lngZeile = 2
For Each objDatei In objDateienliste
If Not objDatei Is Nothing And Not Right(objDatei.Name, 4) = ".jpg" Then
ActiveSheet.Cells(lngZeile, 2) = objDatei.Name
ActiveSheet.Cells(lngZeile, 1) = objVerzeichnis.Path
ActiveSheet.Cells(lngZeile, 3) = objVerzeichnis.GetDetailsOf(objDatei.Name, 20)
lngZeile = lngZeile + 1
End If
Next objDatei
'Call UnterOrdnerAuslesen(objVerzeichnis)
End Sub
5 Antworten
- LÖSUNG emeriks schreibt am 02.12.2019 um 08:23:53 Uhr
- LÖSUNG syncmaster schreibt am 03.12.2019 um 05:32:15 Uhr
- LÖSUNG emeriks schreibt am 03.12.2019 um 07:35:22 Uhr
- LÖSUNG syncmaster schreibt am 03.12.2019 um 05:32:15 Uhr
- LÖSUNG rubberman schreibt am 02.12.2019 um 08:58:21 Uhr
- LÖSUNG syncmaster schreibt am 03.12.2019 um 06:29:11 Uhr
LÖSUNG 02.12.2019 um 08:23 Uhr
Hi,
zuerst: Nutze bitte Code-Tags, dann kannst Du uns die Zeilen auch mit Nummern eindeutig angeben.
Ich würde sagen, das müsste lauten
ohne das ".Name".
E.
zuerst: Nutze bitte Code-Tags, dann kannst Du uns die Zeilen auch mit Nummern eindeutig angeben.
Ich würde sagen, das müsste lauten
01.
ActiveSheet.Cells(lngZeile, 3) = objVerzeichnis.GetDetailsOf(objDatei, 20)
E.
LÖSUNG 02.12.2019, aktualisiert um 09:01 Uhr
Kann leider gerade aus Zeitmangel nicht die Komplettlösung liefern, aber dein FSO File Object unterstützt die GetDetailsOf Methode nicht. Du brauchst ein Shell Folder Object.
… CreateObject("Shell.Application")
etc...
Steffen
… CreateObject("Shell.Application")
etc...
Steffen
LÖSUNG 03.12.2019 um 05:32 Uhr
Hallo,
vielen Dank für Deinen Tip, aber hat leider nichts gebracht. Ich wüsste aber gerne, wie ich die Zeilennummern (Code-Tags) hier hinein bekomme.
Danke
vielen Dank für Deinen Tip, aber hat leider nichts gebracht. Ich wüsste aber gerne, wie ich die Zeilennummern (Code-Tags) hier hinein bekomme.
Danke
LÖSUNG 03.12.2019 um 06:29 Uhr
Super. Hat funktioniert. Danke.
LÖSUNG 03.12.2019 um 07:35 Uhr
Zitat von syncmaster:
vielen Dank für Deinen Tip, aber hat leider nichts gebracht. Ich wüsste aber gerne, wie ich die Zeilennummern (Code-Tags) hier hinein bekomme.
Siehe Foren-Hilfe. Findest Du.vielen Dank für Deinen Tip, aber hat leider nichts gebracht. Ich wüsste aber gerne, wie ich die Zeilennummern (Code-Tags) hier hinein bekomme.
Neue Wissensbeiträge
Heiß diskutierte Inhalte