GetFileTime ( PathName , 〔DateBuff〕 , 〔TimeBuff〕 〔, Type〕 )
値 | 意味 |
---|---|
Create | 作成日付 |
Update | 更新日付 |
Dim file1 ,file2 ,dateBuff ,timeBuff
file1 = _SCF_+"User.txt"
file2 = _SCF_+"UserBkup.txt"
If GetFileTime ( file1 ,dateBuff ,timeBuff ,Create ) = True Then
SetFileTime ( file2 ,dateBuff ,timeBuff ,Create )
End