Speicher- und Änderungsdatum

Question

Hallo zusammen,

was ist der Unterschied zwischen Speicherdatum und Änderungsdatum?

Ich finde bei mir (Excel-)Dateien, deren Änderungsdatum nach dem Speicherdatum liegt!!!

Wie kann das sein?

Danke vorab
Der Weltmeister

Answer 1

Hallo Weltmeister,

Wie kann das sein?

...das ist korrekt.

das Speicherdatum ist das Erstellungsdatum der Datei, logischerweise
liegt dann das Änderungsdatum immer dahinter.

Gruß
Rainer

Answer 2

Hi Weltmeister ^^

Erstellungsdatum
Datei wurde erstellt am ...

Änderungsdatum
Datei ist verschoben/Kopiert worden oder geändert worden am ...

Gruss Nighty

Answer 3

Hallo Rainer ^^

Du warst definitiv zu schnell :-)

Gruss Nighty

Answer 4

Hallo nighty,

Du warst definitiv zu schnell :-)

....das hat meine Frau früher auch immer gesagt, warum erinnerst du
mich daran :-)))))

Gruß
Rainer

Answer 5

hi all ^^

@Rainer und Sie hat recht gehabt :-)

Noch bisl was zum experimentieren für euch :-)

Sub ShowFile()
Dim Dpfad As String, DateiName As String
Dim Lzeile As Long
Dim FileO As Object, Files As Object
Set FileO = CreateObject("Scripting.FileSystemObject")
Dpfad = OrdnerAuswahl
DateiName = Dir(Dpfad & "*.*")
Do While DateiName <> ""
Set Files = FileO.GetFile(Dpfad & DateiName)
With Worksheets(1)
Lzeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(Lzeile, 1) = Files.Name
.Cells(Lzeile, 2) = Files.DateCreated
.Cells(Lzeile, 3) = Files.DateCreated
.Cells(Lzeile, 4) = Files.DateLastModified
.Cells(Lzeile, 5) = Files.DateLastModified
If .Cells(Lzeile, 4) <> .Cells(Lzeile, 2) Or .Cells(Lzeile, 5) <> .Cells(Lzeile, 3) Then
.Range(.Cells(Lzeile, 1), .Cells(Lzeile, 6)).Font.ColorIndex = 5
.Cells(Lzeile, 6) = "*"
Else
.Range(.Cells(Lzeile, 1), .Cells(Lzeile, 5)).Font.ColorIndex = 1
End If
DateiName = Dir
End With
Loop
End Sub

Function OrdnerAuswahl() As String
On Error Resume Next
Dim AppShell As Object
Dim BrowseDir As Variant
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
OrdnerAuswahl = BrowseDir.items().Item().Path & "\"
End Function

Gruss Nighty