Vb.net FileInfo Class

Private sFile As IO.FileInfo
Private sTempFile As String = "d:/zer0/vb.txt"

Private Sub btn_run_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_run.Click

'获取文件时间
'MsgBox(IO.File.GetCreationTime(Me.sTempFile).ToLongTimeString())    '创建时间
'MsgBox(IO.File.GetLastAccessTime(Me.sTempFile).ToLongTimeString())  '
'MsgBox(IO.File.GetLastWriteTime(Me.sTempFile).ToLongTimeString())

'设置文件时间
'IO.File.SetCreationTime(sTempFile, DateTime.Now)
'IO.File.SetLastAccessTime(sTempFile, DateTime.Now)
'IO.File.SetLastWriteTime(sTempFile, DateTime.Now)
'sFile = New IO.FileInfo(sTempFile)
'copy file
'sFile.CopyTo("d:/czy/test2.txt")
'movv file
'sFile.MoveTo("d:/czy/123.txt")
'delete file
'sFile = New IO.FileInfo("d:/czy/123.txt")
'sFile.Delete()

'
sFile = New IO.FileInfo("d:/czy/123.txt")

If Not sFile.Exists Then
Dim objStream As IO.StreamWriter = sFile.CreateText()

objStream.WriteLine("Welcome to My Blog")
objStream.WriteLine("Thank you")

objStream.Flush()
objStream.Close()
objStream.Dispose()
End If

End Sub