Const MaxHeaders As Integer = 99
Dim sHeaders(0 To MaxHeaders) As String
 
Dim oShell As Object
Dim oFolder As Object
Dim oItem As Object
Dim i As Long
Dim sValue As String
Dim sFile As String
Dim sPath As String
 
' Verzeichnis, in dem sich die Datei befinden
sPath = "D:\TEMP"
 
' Datei, deren Infos ermittelt werden sollen
sFile = "test.mdb"
 
' Verweis auf Shell.Application erstellen
Set oShell = CreateObject("Shell.Application")
 
' Verzeichnis angeben
Set oFolder = oShell.Namespace(sPath)
With oFolder
  ' String-Array mit "abrufbaren" Datei-Informationen erstellen
  For i = 0 To MaxHeaders
    sHeaders(i) = .GetDetailsOf(.Items, i)
  Next i
 
  ' jetzt die Informationen für die gewünschte Datei abrufen
  Set oItem = .ParseName(sFile)
  If Not oItem Is Nothing Then
    For i = 0 To MaxHeaders
      sValue = .GetDetailsOf(oItem, i)
      If Len(sValue) > 0 Then
        Debug.Print i, sHeaders(i); ":"; sValue
      End If
    Next i
  End If
End With
Set oItem = Nothing
Set oFolder = Nothing

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de