易语言用SetFileTime函数修改文件创建时间

使用My.Computer.FileSystem.GetFileInfo可以读取/修改一个指定文件的创建/最后访问/最后修改时间。
需要注意的是在学修改一个文件的属性的时候需确保这个文件不是只读的，当然只读属性可以编程去掉。

Dim f As IO.FileInfo = My.Computer.FileSystem.GetFileInfo("C:\boot.ini")
Dim isReadOnly As Boolean

isReadOnly = f.IsReadOnly

If isReadOnly Then
f.IsReadOnly = False '解除只读属性
End If

f.CreationTime = "2012-12-20 00:00:00" '创建时间
f.LastAccessTime = "2012-12-20 00:00:00" '访问时间
f.LastWriteTime = "2012-12-20 00:00:00" '修改时间

If isReadOnly Then
f.IsReadOnly = True '如果文件原来是只读的，就恢复这个属性
End If

To 热网友:
东西没bug?!