Excel VB Makro das Dateien & Eigenschaften aus einem Ordner ausließt

[Element22]

Hallo zusammen,

wie oben geschrieben möchte ich ein Excel Makro erstellen, welches Dateien & Eigenschaften aus einem Ordner ausließt. Leider bin ich mit VB nicht sehr erfahren.

Derzeitiger Code:

Public Sub test()
    Const STRFOLDER As String = "C:\Temp\"
    
    Dim Folder As String
    Dim FName As String
    Dim FileOwner As String
    
    
    Dim objShell As Object, objFolder As Object
    
    
    Dim secUtil As Object
    Dim secDesc As Object

    
    Dim bytIndex As Byte, intColumn As Integer, lngRow As Long
    Dim varName, arrHeaders(60)
    If Dir(STRFOLDER, 16) = "" Then
        MsgBox "Der Ordner " & STRFOLDER & " wurde nicht gefunden!", 64, "Hinweis"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(STRFOLDER)
    intColumn = 1
    For bytIndex = 0 To 60
        arrHeaders(bytIndex) = objFolder.GetDetailsOf(varName, bytIndex)
        Cells(1, intColumn + bytIndex) = arrHeaders(bytIndex)
    Next
    Rows(1).Font.Bold = True
    lngRow = 2
    For Each varName In objFolder.Items
        For bytIndex = 0 To 60
            Cells(lngRow, intColumn + bytIndex) = objFolder.GetDetailsOf(varName, bytIndex)
        Next
        lngRow = lngRow + 1
    Next
    Columns.AutoFit
    Set objShell = Nothing
    Set objFolder = Nothing
    Application.ScreenUpdating = True
End Sub

Derzeit habe ich zwei Probleme:

1. Ich kann mir alle Dateitribute in die Exceldatei importieren. Aber wie wähle ich genau aus, welche von denen? Der Schlüssel müsste ja hier liegen:

For bytIndex = 0 To 60

2. Ich benötige dafür neben dem Besitzer der Datei aber auch den Ersteller der Datei. Nur wie kann ich das auslesen?

Hat jemand Ideen?

 

[miac]

Hier sind deine gesuchten Konstanten (wahrscheinlich gibt es mehr):
http://technet.microsoft.com/en-us/library/ee176615.aspx

Der Ersteller dürfte der Autor sein.

Wenn Du die Dateiattribute haben willst, dann wäre eher das SystemFileObject was für dich. Ansonsten eventuell sogar bis auf die Berechtigungsebene runter.