Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Auslesen der Info: zuletzt gespeichert von

Auslesen der Info: zuletzt gespeichert von
31.08.2005 14:24:18
hoanto
Hallo Forum,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auslesen der Info: zuletzt gespeichert von
31.08.2005 15:11:02
Fred
Hi,
"Wichtig wäre mir, daß die Datei nicht zunächst geöffnet werden muß...."
Geht nicht!
mfg Fred
AW: Auslesen der Info: zuletzt gespeichert von
31.08.2005 15:22:12
Thomas
Hi,
google mal nach 'dsofile' ...
Gruss
Thomas
Risi Thomas Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige