实例082修改文件访问日期

最新推荐文章于 2024-05-26 13:46:37 发布

ngbshzhn

最新推荐文章于 2024-05-26 13:46:37 发布

阅读量178

点赞数

分类专栏： # VB2010编程技巧与实例

本文链接：https://blog.csdn.net/ngbshzhn/article/details/105919905

版权

VB2010编程技巧与实例专栏收录该内容

148 篇文章 8 订阅

订阅专栏

这篇博客介绍了如何利用.NET Framework中的DateTimePicker控件来显示和设置日期与时间格式，重点讲解了DateTimePicker.Format属性、DateTimePickerFormat枚举及其Value属性在修改文件访问日期时的应用。

摘要由CSDN通过智能技术生成

DateTimePicker 类

https://docs.microsoft.com/zh-cn/dotnet/api/system.windows.forms.datetimepicker?view=netcore-3.1

DateTimePicker.Format 属性

获取或设置控件中显示的日期和时间格式。

dateTimePicker1.Format = DateTimePickerFormat.Custom
dateTimePicker1.CustomFormat = "MMMM dd, yyyy - dddd"

DateTimePickerFormat 枚举

Custom	8	DateTimePicker 控件以自定义格式显示日期/时间值。有关详细信息，请参阅 CustomFormat。
Long	1	DateTimePicker 控件以用户操作系统设置的长日期格式显示日期/时间值。
Short	2	DateTimePicker 控件以用户操作系统设置的短日期格式显示日期/时间值。
Time	4	DateTimePicker 控件以用户操作系统设置的时间格式显示日期/时间值。

DateTimePicker.Value 属性

获取或设置分配给控件的日期/时间值。

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'GroupBox1.Visible = False
        'btnModify.Enabled = False
    End Sub

    Private Sub btnLook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLook.Click
        Dim FileName As String = ""
        Dim FileDate As Date
        If dlgOpen.ShowDialog = DialogResult.OK Then
            FileName = dlgOpen.FileName
            'FileDate = My.Computer.FileSystem.GetFileInfo(FileName).LastAccessTime

            FileDate = IO.File.GetLastAccessTime(FileName)
            'GroupBox1.Visible=True
            dtpDateTime.Format = DateTimePickerFormat.Long
            dtpDateTime.Value = FileDate

            txtTime.ReadOnly = True
            txtTime.Text = FileDate.TimeOfDay.ToString
            btnModify.Enabled = True
            Label1.text= FileName
        End If
    End Sub

    Private Sub btnModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModify.Click
        dtpDateTime.Value = Now
        Dim filedate As Date = dtpDateTime.Value
        'MsgBox(filedate)
        IO.File.SetLastWriteTime(Label1.Text, filedate)
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class