Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige