VBA FileSearch Eigenschaften auslesen

Computer: Software & Programmierung Visual Basic
#1

Guten Tag,
Ich lese in Access mit FileSearch alle Dateien eines Ordners in eine Tabelle. Nun möchte ich auch die Dateieigenschaft Kommentare mit auslesen, und später aus Access einzeln ändern. Weiß jemand wie das gehen könnte?
Danke im voraus

#2

Hallo,

Guten Tag,

Ich lese in Access mit FileSearch alle Dateien eines Ordners
in eine Tabelle. Nun möchte ich auch die Dateieigenschaft
Kommentare mit auslesen, und später aus Access einzeln ändern.
Weiß jemand wie das gehen könnte?

Ja weiss man :wink:

Schau mal hier:
http://support.microsoft.com/default.aspx?scid=KB;en…

Danke im voraus

Nichts zu danken

MfG Alex

#3

Access.VBA Autor, Titel, Kommentar auslesen

Ich lese in Access mit FileSearch alle Dateien eines Ordners
in eine Tabelle. Nun möchte ich auch die Dateieigenschaft
Kommentare mit auslesen, und später aus Access einzeln ändern.
Weiß jemand wie das gehen könnte?
Danke im voraus

Hallo Peter,

anpassen mußt du hier die Dateiendung für Access:
If Right(vFilename, 3) = „xls“ Then

Und so schreibt man in Excel in Zellen, k.A. wie das in Access geht:
Cells(zei, 1) = sAutor

Getestet mit Excel2000:

Sub Auslesen()
Dim objFolder As Object
Dim objShell As Object
Dim vFilename 'As String ?
Dim sAutor As String
Dim sTitel As String
Dim sKommentar As String
Dim zei
On Error Resume Next 'besser wäre ein Errorhandler!
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(CVar("C:\test"))
For Each vFilename In objFolder.Items
 If Right(vFilename, 3) = "xls" Then
 zei = zei + 1
 sAutor = objFolder.GetDetailsOF(CVar(vFilename), 9)
 sTitel = objFolder.GetDetailsOF(CVar(vFilename), 12)
 sKommentar = objFolder.GetDetailsOF(CVar(vFilename), 14)
 Cells(zei, 1) = sAutor
 Cells(zei, 2) = sTitel
 Cells(zei, 3) = sKommentar
 End If
Next
Set objShell = Nothing
Set objFolder = Nothing
End Sub

Gruß
Reinhard

#4

Tach Anno74,
Dein Link bezieht sich auf VB.Net(oder seh ich das falsch?), aber das hab ich nicht, ich bin in VBA Anfänger.
Danke für deine promte Hilfe
schönen Sonntag noch:smile:

#5

Servus,

m.E kannst du in VBA auch DLL Files einbinden. Ergo bindest du einfach dieses File ein und schon sollte es klappen :smile: Die einzigste Vorraussetzung so wie ich es auslese, ist das das Framework installiert sein muss. Aber auf welchem Rechner ist dies nicht der Fall?

Aber als Ansatz koenntest du mal folgendes probieren (gibt dir nur die Version wieder), musst halt schauen, welche Version der Dos.Dll du hast

Option Explicit

' Mit dsofile V1.4
Sub GetVersion()
 Dim objDSOReader As Object
 Dim objDSODocument As Object
 
 Set objDSOReader = CreateObject("DSOleFile.PropertyReader")
 Set objDSODocument = objDSOReader.GetDocumentProperties(DeinFile)
 MsgBox objDSODocument.Version
 
 Set objDSODocument = Nothing
 Set objDSOReader = Nothing
End Sub

' Mit dsofile V2.0
Sub getVersion2()
 Dim objFile As Object
 
 Set objFile = CreateObject("DSOFile.OleDocumentProperties")
 objFile.Open DeinFile
 objFile.SummaryProperties.Version
 Set objFile = Nothing
End Sub

MfG Alex