Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Dokumenteigenschaften auslesen

Mitglied: syncmaster

syncmaster (Level 1) - Jetzt verbinden

02.12.2019 um 07:28 Uhr, 208 Aufrufe, 5 Kommentare

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
Mitglied: emeriks
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
01.
ActiveSheet.Cells(lngZeile, 3) = objVerzeichnis.GetDetailsOf(objDatei, 20)
ohne das ".Name".

E.
Bitte warten ..
Mitglied: rubberman
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
Bitte warten ..
Mitglied: syncmaster
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
Bitte warten ..
Mitglied: syncmaster
03.12.2019 um 06:29 Uhr
Super. Hat funktioniert. Danke.
Bitte warten ..
Mitglied: emeriks
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.
Bitte warten ..
Neue Wissensbeiträge
Windows Installation

Windows Install ISO mit übergroßer Install.wim auf FAT32 übertragen

Tipp von Lochkartenstanzer vor 4 TagenWindows Installation11 Kommentare

Moin Kollegen, Viele von euch werden sicher aus praktischen Gründen nicht nur DVDs oder "virtuelle" CD-Laufwerke (Zalman, IODD) zum ...

Datenschutz

Gehe zurück auf Los, ziehe keine 4.000 Mark. E-Privacy (erstmal) gescheitert

Information von certifiedit.net vor 5 TagenDatenschutz

Webbrowser

Firefox 71 verfügbar mit Picture in Picture Funktion

Information von sabines vor 5 TagenWebbrowser2 Kommentare

Die neue Firefox Version 71 unterstützt, zunächst nur für Windows, Picture in Picture. Damit kann ein Video in einem ...

E-Mail
SPF beim Versenden testen
Tipp von StefanKittel vor 7 TagenE-Mail3 Kommentare

Hallo, wenn man einen SPF für einen Exchange, oder anderen Mail-Server, konfigiruert muss man das ja auch testen. Ganz ...

Heiß diskutierte Inhalte
Router & Routing
Fritz VPN und WoL mit Mikrotik HEX RB750Gr2 möglich?
gelöst Frage von SionzrisRouter & Routing20 Kommentare

Hallo erstmal und danke fürs anklicken :) Ich habe folgendes Setup geplant und scheitere zurzeit an der Realisierung vom ...

Router & Routing
Mikrotik CRS305 4Port SFP+ Router-Switch, VMWare und Fritzbox (Netzwerk Internetproblem)
Frage von SickcultureRouter & Routing18 Kommentare

Auf der Suche nach Antworten im Netz kommt man unweigerlich auf eure Seite und die deutsche Mikrotik Blog Seite. ...

Windows Server
Netzwerk Planung Homeoffice
Frage von siopoqruipWindows Server17 Kommentare

Hallo, ich plane zurzeit ein kleines Netzwerk. 5-8 User jeder mit eigenem Laptop (Lenovo T590) Windows 10 Professional Homeoffice ...

Firewall
Suche Hardware
Frage von snowflockeFirewall15 Kommentare

Ich habe derzeit eine Virtualisierte OpnSense im Einsatz und soweit funktioniert die auch wie sie soll, allerdings ist das ...