ادراج اخر تعديل للصورة في مربع نص

اشكر كل من شارك او فكر في هذه المشاركه وحاول ايجاد الحل ........ اما الحل واكثر فهو موجود في مساعد الاكسس وهو كالاتي

DateLastModified Property

Description

Returns the date and time that the specified file or folder was last modified. Read-only.

Syntax

object.DateLastModified

The object is always a File or Folder object.

Remarks

The following code illustrates the use of the DateLastModified property with a file:

Sub ShowFileAccessInfo(filespec)

Dim fs, f, s

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile(filespec)

s = UCase(filespec) & vbCrLf

s = s & "Created: " & f.DateCreated & vbCrLf

s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf

s = s & "Last Modified: " & f.DateLastModified

MsgBox s, 0, "File Access Info"

End Sub

ولله الحمد