Auslesen der Info: zuletzt gespeichert von
31.08.2005 14:24:18
hoanto
in einem VBA Script lasse ich mir einige Eigenschaften anzeigen wie z.B. Speicherdatum; Pfad und Dateigröße.
Ist es möglich, in diesem Schritt auch auszulesen, wer die Datei zuletzt gespeichert hat. Wichtig wäre mir, daß die Datei nicht zunächst geöffnet werden muß, um an die entsprechende Info zu kommen.
Unten mein bislang genutztes Script.
Danke vorab
"Hoanto"
Sub Dateisuche(Laufwerk, Dateien)
Dim tmp, Wdhlg, Dateiname As String
On Error Resume Next
If Right(Laufwerk, 1) <> "\" Then Laufwerk = Laufwerk + "\"
tmp = Dir(Laufwerk & Dateien)
Do While Len(tmp)
Dateiname = Laufwerk & tmp
Application.StatusBar = Dateiname
'Die folgenden Angaben können auch in eine Feldvariable
'oder in eine Listbox eingelesen werden:
Cells(z, 1).Select
Cells(z, 1) = Laufwerk & tmp 'Pfad
Cells(z, 2) = FileLen(Laufwerk & tmp) 'Größe
Cells(z, 3) = FileDateTime(Laufwerk & tmp) 'Datum/Zeit
zuletztgeaendertvon = ActiveWorkbook.BuiltinDocumentProperties("Last Author").Value
MsgBox zuletztgeaendertvon
MsgBox BuiltinDocumentProperties(Laufwerk & tmp).Value
Cells(z, 4) = tmp 'nur Dateiname
Cells(z, 5) = Laufwerk
z = z + 1
tmp = Dir()
Loop
tmp = Dir(Laufwerk, vbDirectory)
Do While Len(tmp)
If (tmp <> ".") And (tmp <> "..") Then
If (GetAttr(Laufwerk & tmp) And vbDirectory) = vbDirectory Then
Dateisuche Laufwerk & tmp, Dateien
z = z - 1
Wdhlg = Dir(Laufwerk, vbDirectory)
z = z + 1
Do While Wdhlg <> tmp
Wdhlg = Dir()
Loop
End If
End If
tmp = Dir()
Loop
On Error GoTo 0
Application.StatusBar = False
End Sub
Anzeige