Hallo,
ich habe das Microsoft-Helferlein dsofile.exe implementiert, um Dokumenteneigenschaften (speziell das Datum der letzten Änderung) aus Wordfiles auslesen zu können.
Das klappt soweit auch ganz gut und zwar mit folgendem Skript:
Sub Dateieigenschaften()
Datei = "C:/Dokumente/test.doc"
Dim oFilePropReader As DSOleFile.PropertyReader
Dim iProp As DSOleFile.DocumentProperties
Set oFilePropReader = New DSOleFile.PropertyReader
Set iProp = oFilePropReader.GetDocumentProperties(Datei)
MsgBox iProp.DateLastSaved
Set oFilePropReader = Nothing
Set iProp = Nothing
End Sub
Allerdings nur mit lokalen Dateien. Für meine Zwecke müsste ich jedoch Dokumenteneigenschaften von Worddateien auslesen, die auf einem Intranet-Server liegen. Der Pfad beginnt mit http://filestore und endet mit dem Dateinamen der doc-Datei.
Wenn ich den lokalen Pfad durch den Intranet-Pfad ersetze, bekomme ich allerdings eine Fehlermeldung:
Laufzeitfehler '432':
Datei- oder Klassenname während Automatisierungsoperation nicht gefunden.
Beim Debuggen markiert er folgende Zeile:
Set iProp = oFilePropReader.GetDocumentProperties(Datei)
Ist das Problem lösbar und wenn ja, wie?
Danke!
ich habe das Microsoft-Helferlein dsofile.exe implementiert, um Dokumenteneigenschaften (speziell das Datum der letzten Änderung) aus Wordfiles auslesen zu können.
Das klappt soweit auch ganz gut und zwar mit folgendem Skript:
Sub Dateieigenschaften()
Datei = "C:/Dokumente/test.doc"
Dim oFilePropReader As DSOleFile.PropertyReader
Dim iProp As DSOleFile.DocumentProperties
Set oFilePropReader = New DSOleFile.PropertyReader
Set iProp = oFilePropReader.GetDocumentProperties(Datei)
MsgBox iProp.DateLastSaved
Set oFilePropReader = Nothing
Set iProp = Nothing
End Sub
Allerdings nur mit lokalen Dateien. Für meine Zwecke müsste ich jedoch Dokumenteneigenschaften von Worddateien auslesen, die auf einem Intranet-Server liegen. Der Pfad beginnt mit http://filestore und endet mit dem Dateinamen der doc-Datei.
Wenn ich den lokalen Pfad durch den Intranet-Pfad ersetze, bekomme ich allerdings eine Fehlermeldung:
Laufzeitfehler '432':
Datei- oder Klassenname während Automatisierungsoperation nicht gefunden.
Beim Debuggen markiert er folgende Zeile:
Set iProp = oFilePropReader.GetDocumentProperties(Datei)
Ist das Problem lösbar und wenn ja, wie?
Danke!