>>>>>>Hi,
>>>>>> If you open a windows explorer and right-click on
>>>>>>on a file name (say MY_TEXT.TXT) and then left-click
>>>>>>on Properties, the File "Accessed" Date is one of the
>>>>>>three dates that is presents (the other two are Date
>>>>>>"Created" and Date "Modified").
>>>>>> Is there an API function or a VFP function that
>>>>>>will return the File "Accessed" Date?
>>>>>>Thanks!
>>>>>>Terry Harris
>>>>>
>>>>>This is available either with the Windows Script Host or through the API.
>>>>>* lcfile is the file name to look at.
>>>>>oFile = oFSO.GetFile(lcfile)
>>>>>? oFile.DateLastAccessedIf this isn't an option you can use my Windows Time or Window Filenames programming from the download section.
>>>>
>>>>
>>>>Thanks George for the reply.
>>>>When I use the following code in a PRG, the Date Last Accessed
>>>>is always today's date. What's up?
>>>>
>>>>>>>>oFSO = CreateObject( "Scripting.FileSystemObject")
>>>>lcFile = GetFile()
>>>>oFile = oFSO.GetFile(lcFile)
>>>>? oFile.DateLastAccessed
>>>>WAIT
>>>>
>>>
>>>Terry,
>>>
>>>It's pretty simple. When you selected the file via GETFILE() you accessed it, and thus, the date/time stamp changed.
>>
>>George,
>> This may be something like the Heisenberg Uncertainty Principle.
>>If you touch it, you change it.
>>Can you think of a way to get the DateLastAccessed of files in a
>>folder without changing the date in the process?
>>Thanks,
>
>Terry,
>
>If you know the file name ahead of time and it's in the current default directory, you can simply pass the file name without the path.
>
>Also, there's programming in my Windows Time programming that, when possible, re-sets the last accessed timestamp.
Hi George,
I found some code that seems to work.
It is by Donald Lowrey in thread #769450.
Thanks for you patience!
Terry :)tcfolder = "c:\windows"
CREATE CURSOR c_Files ( FileName C(29), ;
FileSize I, DateCreated T, LastAccessed T, ;
LastModified T )
oFSO = CREATEOBJ('Scripting.FileSystemObject')
oFolder = oFSO.GetFolder(tcFolder)
lnFiles = oFolder.Files.Count
FOR EACH oFile IN oFolder.Files
lcFileName = oFile.Name
lnFileSize = oFile.Size
lddatecreated = oFile.DateCreated
ldlastAccess = oFile.DateLastAccessed
ldlastmodified = oFile.DateLastModified
INSERT INTO c_Files (FileName, FileSize, ;
DateCreated, LastAccessed , LastModified ) ;
VALUES ( lcFileName, lnFileSize, ;
ldDateCreated, ldlastAccess, ldlastmodified )
ENDFOR
BROWSE
