Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
File Accessed Date
Message
 
To
06/05/2004 15:19:41
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Miscellaneous
Thread ID:
00901355
Message ID:
00901719
Views:
13
>>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
>
>
Terry,

Yep, that'll work too. I was under the assumption that you simply wanted one file.
George

Ubi caritas et amor, deus ibi est
Previous
Reply
Map
View

Click here to load this message in the networking platform