|
http://technet.microsoft.com/zh-cn/magazine/system.io.file.getlastwritetime(de-de).aspx
Imports System
Imports System.IO
Imports System.Text
Public Class Test
Public Shared Sub Main()
Try
Dim path As String = "c:TempMyTest.txt"
If File.Exists(path) = False Then
File.Create(path)
Else
' Take some action that will affect the write time.
File.SetLastWriteTime(path,New DateTime(1985,4,3))
End If
'Get the creation time of a well-known directory.
Dim dt As DateTime = File.GetLastWriteTime(path)
Console.WriteLine("The last write time for this file was {0}.",dt)
'Update the last write time.
File.SetLastWriteTime(path,DateTime.Now)
dt = File.GetLastWriteTime(path)
Console.WriteLine("The last write time for this file was {0}.",dt)
Catch e As Exception Console.WriteLine("The process failed: {0}",e.ToString()) End Try End Sub End Class （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
