13 lines
321 B
Text
13 lines
321 B
Text
Dim file As New IO.FileInfo("test.txt")
|
|
|
|
'Creation Time
|
|
Dim createTime = file.CreationTime
|
|
file.CreationTime = createTime.AddHours(1)
|
|
|
|
'Write Time
|
|
Dim writeTime = file.LastWriteTime
|
|
file.LastWriteTime = writeTime.AddHours(1)
|
|
|
|
'Access Time
|
|
Dim accessTime = file.LastAccessTime
|
|
file.LastAccessTime = accessTime.AddHours(1)
|