ich habe ein Problem mit dem Auslesen der Dateiattribute. Es funktioniert zwar schon wie gewollt, allerdings gibt mir das Script zum Anfang und Ende jeweils den Namen des Attributes aus. Das stört mich z.B. beim füllen von Tabellen.
Wo liegt mein Fehler bzw. wie kann ich diese Bezeichnungs-Ausgabe unterbinden?
Vielen Dank und Viele Grüße
Marco
Option Explicit
Public Sub Auslesen()
Dim shell As Object
Dim DatVerzeichnis As Object
Dim DatAuswahl As Object
Dim DatAttribut As Integer
Dim AttrName As String
Dim AttrWert As String
Dim FileLocation As String
Dim Filename As String
FileLocation = "C:\My Documents\*.*"
Filename = Dir(FileLocation, 16)
Do While Filename ""
Filename = Dir
'--- Dateiattribute Start
Set shell = CreateObject("Shell.Application")
'Auswahl des Dateiattributes (0-33)
DatAttribut = 1 '
'Dateipfad angeben
Set DatVerzeichnis = shell.Namespace("H:\My Documents\")
'Datei angeben
Set DatAuswahl = DatVerzeichnis.ParseName(Filename)
AttrName = DatVerzeichnis.GetDetailsOf(Null, DatAttribut)
AttrWert = DatVerzeichnis.GetDetailsOf(DatAuswahl, DatAttribut)
Debug.Print DatAttribut & " " & AttrName & ": " & AttrWert
'--- Dateiattribute Ende
Loop
End Sub