Dateieigenschaften zu Excel-Explorer
17.05.2007 17:18:30
lobby007
kennt sich jemand mit Dateieigenschaften auslesen aus?
Ich habe den Code:
Dim n
Dim dname(65000)
Dim dordner(65000)
Dim dcreated(65000)
Dim dtitle(65000)
Dim dpfad(65000)
Dim dlast(65000)
Dim dsize(65000)
Sub NeuEinlesen()
Set MyShell = CreateObject("wscript.shell")
Set MyFiles = CreateObject("Scripting.FileSystemObject")
Set Appshell = CreateObject("Shell.Application")
On Error Resume Next
Set AppFolder = Appshell.BrowseForFolder(0, "", &H1, 17)
verz = AppFolder.ParentFolder.ParseName(AppFolder.Title).Path
If Err.Number > 0 Then
i = InStr(AppFolder, ":")
verz = Mid(AppFolder, i - 1, 1) & ":\"
End If
If verz = "" Then Exit Sub
If n = 0 Then
Range("A3").Select
Range(Selection, Cells.SpecialCells(xlCellTypeLastCell)).ClearContents
End If
Set drive = MyFiles.GetFolder(verz)
Set dat = drive.Files
For Each datei In dat
n = n + 1
dname(n) = datei.Name
dordner(n) = drive.Path
dpfad(n) = datei.Path
dsize(n) = datei.Size
dcreated(n) = datei.datecreated
dlast(n) = datei.DateLastAccessed
dtitle(n) = datei.CustomDocumentProperties(IntI).Title
Next
Search drive
For x = 1 To n
Cells(x + 2, 1).Value = dname(x)
Cells(x + 2, 2).Value = dordner(x)
Cells(x + 2, 3).Value = Int(dsize(x) / 1024)
Cells(x + 2, 4).Value = DateValue(Date) - DateValue(dcreated(x))
Cells(x + 2, 5).Value = DateValue(Date) - DateValue(dlast(x))
Cells(x + 2, 6).Value = dpfad(x)
Cells(x + 2, 7).Value = dtitle(x)
Next
Application.ScreenUpdating = True
m = MsgBox(n & " Dateien eingetragen." & Chr(13) & "Weitere Daten hinzufügen?", 4)
If m = 6 Then NeuEinlesen
Range("A3").Select
Range(Selection, Cells.SpecialCells(xlCellTypeLastCell)).Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("A3") _
, Order2:=xlAscending, Header:=xlNo
Range("A2:F2").Select
With Worksheets("Tabelle1")
If Not .AutoFilterMode Then
Selection.AutoFilter
End If
End With
Range("A2").Select
n = 0
End Sub
Sub Search(ByVal StartFolder)
Set Weitere = StartFolder.SubFolders
For Each AktuellerOrdner In Weitere
Set dat = AktuellerOrdner.Files
For Each datei In dat
n = n + 1
dname(n) = datei.Name
dordner(n) = AktuellerOrdner.Path
dpfad(n) = datei.Path
dsize(n) = datei.Size
dcreated(n) = datei.datecreated
dlast(n) = datei.DateLastAccessed
Next
Search AktuellerOrdner
Next
End Sub
Bei dem .title bzw. dtitle liest er nichts aus. Woran liegt das?
Ich möchte neben Dateinamen, Pfan etc. noch alle Dokumenten -Eigenschaften wie Title, Subject, Keywords etc. haben.
Warum liest der die bzw. den Title nicht mit aus?
gruß lobby007