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