Anzeige
Archiv - Navigation
1792to1796
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
Inhaltsverzeichnis

Dateiattribute auslesen

Dateiattribute auslesen
22.11.2020 16:26:12
Rolf
Hallo zusammen,
ich möchte in VB einige Dateiattribute auslesen wir z.B. FileLen.
Aktuell suche ich nach: Länge, Album, Titel, TitelNr, Jahr , MitwirkendeInterpreten, etc.
Vielleicht gibt es ja eine Liste aller Attribute.
Danke im voraus.
Rolf

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: snb
22.11.2020 18:06:36
Rolf
Danke Fennek
AW: Dateiattribute auslesen
22.11.2020 16:51:12
Nepumuk
Hallo Rolf,
teste mal:
Option Explicit

Public Sub Dateieigenschaften()
    
    Const FOLDER_PATH As String = "G:\Eigene Dateien\Eigene Bilder\Fotos\Neuer Ordner\" 'Ordner anpassen !!!
    
    Dim objShell As Object, objFolder As Object
    Dim lngIndex As Long, lngColumn As Long, lngRow As Long
    Dim vntFileName As Variant
    
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(FOLDER_PATH)
    
    Application.ScreenUpdating = False
    
    Cells.Clear
    
    lngColumn = 1
    
    For lngIndex = 0 To 400
        Cells(1, lngColumn + lngIndex) = objFolder.GetDetailsOf(Empty, lngIndex)
    Next
    
    Rows(1).Font.Bold = True
    lngRow = 2
    
    For Each vntFileName In objFolder.Items
        For lngIndex = 0 To 400
            Cells(lngRow, lngColumn + lngIndex) = objFolder.GetDetailsOf(vntFileName, lngIndex)
        Next
        lngRow = lngRow + 1
    Next
    
    Columns.AutoFit
    Application.ScreenUpdating = True
    
    Set objFolder = Nothing
    Set objShell = Nothing
    
End Sub

Gruß
Nepumuk
Anzeige
AW: Dateiattribute auslesen
22.11.2020 17:52:20
Rolf
Hi Nepumuk,
absolute Spitze.
Ich danke Dir
Gruß Rolf
AW: Dateiattribute auslesen
22.11.2020 21:59:58
Rolf
Hi Nepumuk,
bin ganz begeistert von Deiner Programmroutine. Jetzt noch eine Frage:
Wenn ich das so auslesen kann könnte ich doch auch in die Attibute hineinschreiben.
Zum Beispiel in Feld 13 Mitwirkende "Interpreten".
Wäre toll wenn Du da helfen kannst.
Dank Dir Rolf
AW: Dateiattribute auslesen
23.11.2020 10:03:23
Nepumuk
Hallo Rolf,
das geht leider nicht.
Gruß
Nepumuk
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge