Dim Datei As String = "D:\temp\20160828_Tomate\20160828_Canon EOS" & _
          "6D_10486.jpg"
 
        Dim Dateierstellungsdatum As DateTime = System.IO.File.GetCreationTime( _
          Datei)
        Dim LetzteAenderungsdatum As DateTime = System.IO.File.GetLastWriteTime( _
        Datei)
 
        MessageBox.Show("Dateierstellungsdatum: " & Dateierstellungsdatum & _
          vbCrLf & "Letzte Änderung: " & LetzteAenderungsdatum)

EALA FREYA FRESENA