【VB开源代码栏目提醒】：网学会员为广大网友收集整理了，frmFileTime.frm，希望对大家有所帮助！

    VERSION 5.00
    Begin VB.Form frmFileTime 
       BorderStyle     =   1  'Fixed Single
       Caption         =   "File Time"
       ClientHeight    =   5250
       ClientLeft      =   45
       ClientTop       =   330
       ClientWidth     =   7215
       Icon            =   "frmFileTime.frx":0000
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       ScaleHeight     =   5250
       ScaleWidth      =   7215
       StartUpPosition =   3  'Windows Default
       Begin VB.DriveListBox drvFileTime 
          Height          =   315
          Left            =   120
          TabIndex        =   4
          Top             =   4800
          Width           =   2175
       End
       Begin VB.TextBox txtSelected 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   120
          Locked          =   -1  'True
          TabIndex        =   1
          Top             =   360
          Width           =   6975
       End
       Begin VB.DirListBox dirFileTime 
          Height          =   1890
          Left            =   120
          TabIndex        =   2
          Top             =   840
          Width           =   2175
       End
       Begin VB.FileListBox fileFileTime 
          Height          =   2040
          Hidden          =   -1  'True
          Left            =   120
          System          =   -1  'True
          TabIndex        =   3
          Top             =   2760
          Width           =   2175
       End
       Begin VB.TextBox txtMillisecondLW 
          Height          =   285
          Left            =   6120
          TabIndex        =   39
          Top             =   4440
          Width           =   975
       End
       Begin VB.TextBox txtMillisecondLA 
          Height          =   285
          Left            =   4920
          TabIndex        =   38
          Top             =   4440
          Width           =   975
       End
       Begin VB.TextBox txtMillisecondCT 
          Height          =   285
          Left            =   3720
          TabIndex        =   37
          Top             =   4440
          Width           =   975
       End
       Begin VB.TextBox txtSecondLW 
          Height          =   285
          Left            =   6120
          TabIndex        =   35
          Top             =   4080
          Width           =   975
       End
       Begin VB.TextBox txtSecondLA 
          Height          =   285
          Left            =   4920
          TabIndex        =   34
          Top             =   4080
          Width           =   975
       End
       Begin VB.TextBox txtSecondCT 
          Height          =   285
          Left            =   3720
          TabIndex        =   33
          Top             =   4080
          Width           =   975
       End
       Begin VB.TextBox txtMinuteLW 
          Height          =   285
          Left            =   6120
          TabIndex        =   31
          Top             =   3720
          Width           =   975
       End
       Begin VB.TextBox txtMinuteLA 
          Height          =   285
          Left            =   4920
          TabIndex        =   30
          Top             =   3720
          Width           =   975
       End
       Begin VB.TextBox txtMinuteCT 
          Height          =   285
          Left            =   3720
          TabIndex        =   29
          Top             =   3720
          Width           =   975
       End
       Begin VB.TextBox txtHourLW 
          Height          =   285
          Left            =   6120
          TabIndex        =   27
          Top             =   3360
          Width           =   975
       End
       Begin VB.TextBox txtHourLA 
          Height          =   285
          Left            =   4920
          TabIndex        =   26
          Top             =   3360
          Width           =   975
       End
       Begin VB.TextBox txtHourCT 
          Height          =   285
          Left            =   3720
          TabIndex        =   25
          Top             =   3360
          Width           =   975
       End
       Begin VB.TextBox txtDayLW 
          Height          =   285
          Left            =   6120
          TabIndex        =   23
          Top             =   3000
          Width           =   975
       End
       Begin VB.TextBox txtDayLA 
          Height          =   285
          Left            =   4920
          TabIndex        =   22
          Top             =   3000
          Width           =   975
       End
       Begin VB.TextBox txtDayCT 
          Height          =   285
          Left            =   3720
          TabIndex        =   21
          Top             =   3000
          Width           =   975
       End
       Begin VB.TextBox txtDayOfWeekLW 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   6120
          Locked          =   -1  'True
          TabIndex        =   19
          Top             =   2640
          Width           =   975
       End
       Begin VB.TextBox txtDayOfWeekLA 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   4920
          Locked          =   -1  'True
          TabIndex        =   18
          Top             =   2640
          Width           =   975
       End
       Begin VB.TextBox txtDayOfWeekCT 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   3720
          Locked          =   -1  'True
          TabIndex        =   17
          Top             =   2640
          Width           =   975
       End
       Begin VB.TextBox txtMonthLW 
          Height          =   285
          Left            =   6120
          TabIndex        =   15
          Top             =   2280
          Width           =   975
       End
       Begin VB.TextBox txtMonthLA 
          Height          =   285
          Left            =   4920
          TabIndex        =   14
          Top             =   2280
          Width           =   975
       End
       Begin VB.TextBox txtMonthCT 
          Height          =   285
          Left            =   3720
          TabIndex        =   13
          Top             =   2280
          Width           =   975
       End
       Begin VB.TextBox txtYearLW 
          Height          =   285
          Left            =   6120
          TabIndex        =   11
          Top             =   1920
          Width           =   975
       End
       Begin VB.TextBox txtYearLA 
          Height          =   285
          Left            =   4920
          TabIndex        =   10
          Top             =   1920
          Width           =   975
       End
       Begin VB.TextBox txtYearCT 
          Height          =   285
          Left            =   3720
          TabIndex        =   9
          Top             =   1920
          Width           =   975
       End
       Begin VB.CommandButton cmdApply 
          Caption         =   "Apply"
          Height          =   350
          Left            =   6120
          TabIndex        =   40
          Top             =   4800
          Width           =   975
       End
       Begin VB.Label lblSelected 
          Caption         =   "Selected"
          Height          =   255
          Left            =   120
          TabIndex        =   0
          Top             =   120
          Width           =   1695
       End
       Begin VB.Label lblMillisecond 
          Caption         =   "Millisecond"
          Height          =   255
          Left            =   2520
          TabIndex        =   36
          Top             =   4440
          Width           =   975
       End
       Begin VB.Label lblSecond 
          Caption         =   "Second"
          Height          =   255
          Left            =   2520
          TabIndex        =   32
          Top             =   4080
          Width           =   975
       End
       Begin VB.Label lblMinute 
          Caption         =   "Minute"
          Height          =   255
          Left            =   2520
          TabIndex        =   28
          Top             =   3720
          Width           =   975
       End
       Begin VB.Label lblHour 
          Caption         =   "Hour"
          Height          =   255
          Left            =   2520
          TabIndex        =   24
          Top             =   3360
          Width           =   975
       End
       Begin VB.Label lblDay 
          Caption         =   "Day"
          Height          =   255
          Left            =   2520
          TabIndex        =   20
          Top             =   3000
          Width           =   975
       End
       Begin VB.Label lblDayOfWeek