Daten einlesen
25.11.2003 18:54:10
Thomas
Ich lese aus verschidenen Verzeichnissen Dateien aus und schreibe diese in eine Excel-Tabelle, Tabellenblatt "Archiv".
Spalte A = Dokumentenname
Spalte B = Dokumententyp
Spalte C = Erstellt am
Spalte D = Datum letzte Änderung
Spalte E = ????????
Leider finde ich keine Möglichkeit den Autor bzw. den Ersteller der Datei in die Spalte E auszulesen. Wer kann mir helfen.
Anbei mein funktionierendes Makro
Public
Sub lesen()
Dim fso As New FileSystemObject
Dim f As Folder
Dim p As File
Dim str As String
Dim aktuell As String
Dim u As UsedObjects
Set f = fso.GetFolder("E:\ALWIN\Vor Archivierung\Mobile CM")
h = 0
l = 1
Do While h <> 1
If Sheets("Archiv").Cells(l, 1) = 0 Then
h = 1
Else
l = l + 1
End If
Loop
leer = l
i = leer
For Each p In f.Files
Sheets("Archiv").Cells(i, 1) = p.Name
i = i + 1
Next
i = leer
For Each p In f.Files
Sheets("Archiv").Cells(i, 2) = p.Type
i = i + 1
Next
i = leer
For Each p In f.Files
Sheets("Archiv").Cells(i, 3) = p.DateLastModified
i = i + 1
Next
i = leer
For Each p In f.Files
Sheets("Archiv").Cells(i, 4) = p.DateCreated
i = i + 1
Next
End Sub