SetFileTime ( PathName , 〔Date〕 , 〔Time〕 〔, Type〕 )
値 | 意味 |
---|---|
Create | 作成日付 |
Update | 更新日付 |
Dim file1
file1 = _SCF_+"User.txt"
If IsFileAttr ( file1 ,ATTR_ARCHIVE ) Then
SetFileAttr ( file1 ,ATTR_ARCHIVE ,ATTR_OFF )
SetFileTime ( file1 ,Date() ,Time() ,Update )
End If