Dateieigenschaften ins Excel importieren ?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Dateieigenschaften ins Excel importieren ? von: Thomas Birkel
Geschrieben am: 25.03.2005 09:11:18

Ich würde gerne die Dateieigenschaften sämtlicher Dateien in einem Ordner und ggf. Unterordner ins Excel importieren.
Hat jemand dieses Problem schon gelöst ? Irgendwie reichen meine VBA-Kenntnisse nicht um auf Ordner zuzugreifen.

Vielen Dank für eure Hilfe.
Thomas

Bild


Betrifft: AW: Dateieigenschaften ins Excel importieren ? von: Rolf Beißner
Geschrieben am: 25.03.2005 10:01:27

Hallo Thomas,

vielleicht hilft dir dieser Beitrag von K.Rola

fG
Rolf

'aus herber forum K.Rola vom 10.11.2004
Option Explicit

Sub Dateieigenschaften()
    Const STRFOLDER As String = "C:\Eigene Dateien"
    Dim objShell As Object, objFolder As Object
    Dim x As Byte, intColumn As Integer, lngRow As Long
    Dim varName, arrHeaders(34)
    If Dir(STRFOLDER, 16) = "" Then
      MsgBox "Der Ordner " & STRFOLDER & " wurde nicht gefunden!" & Space(10), 64, "weise hin..."
      Exit Sub
    End If
    Application.ScreenUpdating = False
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(STRFOLDER)
    intColumn = 1
    For x = 0 To 33
      arrHeaders(x) = objFolder.GetDetailsOf(varName, x)
      Cells(1, intColumn + x) = arrHeaders(x)
    Next
    Rows(1).Font.Bold = True
    lngRow = 2
    For Each varName In objFolder.Items
      For x = 0 To 33
        Cells(lngRow, intColumn + x) = objFolder.GetDetailsOf(varName, x)
      Next
      lngRow = lngRow + 1
    Next
    Columns.AutoFit
    Application.ScreenUpdating = True
End Sub



Bild


Betrifft: Super, kann ich gut gebrauchen ot von: Jochen
Geschrieben am: 25.03.2005 12:15:24

ot


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Dateieigenschaften ins Excel importieren ?"