Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Setting Folder Date
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Fonctions Windows API
Divers
Thread ID:
00781126
Message ID:
00781329
Vues:
16
>>>Hi,
>>>
>>>Does anybody know how can I set the DateLastModified property of a Folder?
>>>
>>>Regards,
>>
>>Jose,
>>
>>I have an application here in download section that can modify any of the three date/time values of a file. As is, it cannot do this to a folder. However, the modification is rather simple. The download includes several files. Open the file named FileIO.prg. First, add the following as the top of the file
#DEFINE FILE_FLAG_BACKUP_SEMANTICS 0x02000000
Second, change the line of code reading:
This.nFileHandle = CreateFile(@lcfilename, pnMode,;
>>  lnaccess, 0, OPEN_EXISTING, FILE_FLAG_NO_BUFFERING, 0)
to
IF NOT DIRECTORY(lcfilename, 1)
>>  This.nFileHandle = CreateFile(@lcfilename, pnMode,;
>>    lnaccess, 0, OPEN_EXISTING, FILE_FLAG_NO_BUFFERING, 0)
>>ELSE
>>  This.nFileHandle = CreateFile(@lcfilename, pnMode,;
>>    lnaccess, 0, OPEN_EXISTING, FILE_FLAG_NO_BUFFERING + FILE_FLAG_BACKUP_SEMANTICS, 0)
>>ENDIF
this is in the OpenFile function of the of the class. Then to change the date last modified time stamp
SET PROCEDURE TO FileTime.prg
>>oTimes = CREATEOBJECT("FileTimes")
>>IF oTimes.SetFileTime("C:\Your_Dir\", , , DATETIME())
>>  * Success!
>>ENDIF
>
>George, something went wrong and I started to trace your code. First of all, testing if the first parameter was a directory was not working. There is no second parameter in DIRECTORY(). At least in VFP7.
>After fixing this problem I tried to use the function and it´s not working, because it could not open the folder. It´s working ok with files. Are you sure about CreateFile parameters?
>
>Regards,

Yep, I am. I'm using VFP 8.0. What version of VFP are you using? If there's a difference in the parameters, this may be the cause.
George

Ubi caritas et amor, deus ibi est
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform