Funktionen aktivieren
29.12.2008 16:20:00
Fred
Ich habe hier 4 Funktionen gefunden und würde mir gerne diese Daten in der ersten freien Zelle eintragen lassen.
Also ungefähr so:
Sheets("Zugriffsprotokoll").Select
With Cells(Sheets("Zugriffsprotokoll").Cells(Rows.Count, 4).End(xlUp).Row + 1, 4)
.Select
.Value = ErstellDat
Aber leider funktioniert das Leider nicht. Ich möchte den ersten wert in D den 2ten Wert in E usw. eingetragen haben.
Kann mir Jemand helfen bitte.
Hier mal die Funktionen:
Function ErstellDat(strDatei As String)
Application.Volatile
Dim fs As Object, fso As Object
Set fs = CreateObject("scripting.filesystemobject")
Set fso = fs.getfile(strDatei)
ErstellDat = Format(fso.datecreated, "DD.MM.YYYY")
End Function
Function ÄDatum(strDatei As String)
Application.Volatile
Dim fs As Object, fso As Object
Set fs = CreateObject("scripting.filesystemobject")
Set fso = fs.getfile(strDatei)
ÄDatum = Format(fso.datelastmodified, "DD.MM.YYYY")
End Function
Function leZugriff(strDatei As String)
Application.Volatile
Dim fs As Object, fso As Object
Set fs = CreateObject("scripting.filesystemobject")
Set fso = fs.getfile(strDatei)
leZugriff = Format(fso.datelastaccessed, "DD.MM.YYYY")
End Function
Function DateiGroesse(strDatei As String)
Application.Volatile
Dim fs As Object, fso As Object
Set fs = CreateObject("scripting.filesystemobject")
Set fso = fs.getfile(strDatei)
DateiGroesse = Format(fso.Size / 1024, "#,##0.00 kB")
End Function
Grüße Fred