Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1196to1200
1196to1200
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autoren auslesen

Forumthread: Autoren auslesen

Autoren auslesen
Mike
Hallo Ex(cel)perten,
wie kann ich denn per VBA den Autoren einer Datei bzw eines Ordners auslesen?
Vielen Dank und Gruß aus Bayern
Mike
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
GetDetailsOf(Datei, 20)
07.02.2011 18:21:06
ransi
HAllo MIke
Hilft dir dieser Ansatz weiter:
Option Explicit


Public Sub test()
    Dim myShell As Object
    Dim Datei As Object
    Dim objFolder As Object
    Dim objFileDialog As FileDialog
    Set objFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    With objFileDialog
        If .Show = -1 Then
            Set myShell = CreateObject("Shell.Application")
            Set objFolder = myShell.Namespace(.SelectedItems(1))
            For Each Datei In objFolder.Items
                If Not Datei.isfolder Then
                    If objFolder.GetDetailsOf(Datei, 20) <> "" Then
                        MsgBox Datei & vbCrLf & objFolder.GetDetailsOf(Datei, 20)
                    End If
                End If
            Next
        End If
    End With
End Sub


ransi
Anzeige
AW: GetDetailsOf(Datei, 20)
08.02.2011 08:01:42
Mike
Guten Morgen Ransi,
cool!!!
Vielen Dank!
Gruß
Mike
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige