home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / ACTIVEX / MABRY / DFINFO.EXE / DFINFOS1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-09-23  |  24.9 KB  |  740 lines
  1. VERSION 4.00
  2. Begin VB.Form DFInfoS1 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "DFInfo Sample"
  5.    ClientHeight    =   4380
  6.    ClientLeft      =   1350
  7.    ClientTop       =   1965
  8.    ClientWidth     =   5910
  9.    BeginProperty Font 
  10.       name            =   "MS Sans Serif"
  11.       charset         =   1
  12.       weight          =   700
  13.       size            =   8.25
  14.       underline       =   0   'False
  15.       italic          =   0   'False
  16.       strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    Height          =   4785
  20.    Left            =   1290
  21.    LinkTopic       =   "Form1"
  22.    MaxButton       =   0   'False
  23.    ScaleHeight     =   4380
  24.    ScaleWidth      =   5910
  25.    Top             =   1620
  26.    Width           =   6030
  27.    Begin VB.Frame Frame2 
  28.       Caption         =   "File Info"
  29.       Height          =   4155
  30.       Left            =   3015
  31.       TabIndex        =   13
  32.       Top             =   90
  33.       Width           =   2760
  34.       Begin VB.TextBox Text1 
  35.          BeginProperty Font 
  36.             name            =   "MS Sans Serif"
  37.             charset         =   1
  38.             weight          =   400
  39.             size            =   8.25
  40.             underline       =   0   'False
  41.             italic          =   0   'False
  42.             strikethrough   =   0   'False
  43.          EndProperty
  44.          Height          =   285
  45.          Left            =   945
  46.          TabIndex        =   31
  47.          Top             =   1080
  48.          Width           =   1680
  49.       End
  50.       Begin VB.FileListBox File1 
  51.          BeginProperty Font 
  52.             name            =   "MS Sans Serif"
  53.             charset         =   1
  54.             weight          =   400
  55.             size            =   8.25
  56.             underline       =   0   'False
  57.             italic          =   0   'False
  58.             strikethrough   =   0   'False
  59.          EndProperty
  60.          Height          =   450
  61.          Left            =   765
  62.          TabIndex        =   30
  63.          Top             =   1440
  64.          Width           =   1860
  65.       End
  66.       Begin VB.DirListBox Dir1 
  67.          BeginProperty Font 
  68.             name            =   "MS Sans Serif"
  69.             charset         =   1
  70.             weight          =   400
  71.             size            =   8.25
  72.             underline       =   0   'False
  73.             italic          =   0   'False
  74.             strikethrough   =   0   'False
  75.          EndProperty
  76.          Height          =   705
  77.          Left            =   765
  78.          TabIndex        =   29
  79.          Top             =   315
  80.          Width           =   1860
  81.       End
  82.       Begin VB.PictureBox Picture2 
  83.          Appearance      =   0  'Flat
  84.          BackColor       =   &H80000005&
  85.          BorderStyle     =   0  'None
  86.          ForeColor       =   &H80000008&
  87.          Height          =   420
  88.          Left            =   180
  89.          Picture         =   "DFINFOS1.frx":0000
  90.          ScaleHeight     =   511.305
  91.          ScaleMode       =   0  'User
  92.          ScaleWidth      =   511.305
  93.          TabIndex        =   14
  94.          Top             =   315
  95.          Width           =   420
  96.       End
  97.       Begin VB.Label Label20 
  98.          Alignment       =   1  'Right Justify
  99.          Appearance      =   0  'Flat
  100.          AutoSize        =   -1  'True
  101.          BackColor       =   &H80000005&
  102.          BackStyle       =   0  'Transparent
  103.          Caption         =   "Filename:"
  104.          BeginProperty Font 
  105.             name            =   "MS Sans Serif"
  106.             charset         =   1
  107.             weight          =   400
  108.             size            =   8.25
  109.             underline       =   0   'False
  110.             italic          =   0   'False
  111.             strikethrough   =   0   'False
  112.          EndProperty
  113.          ForeColor       =   &H80000008&
  114.          Height          =   195
  115.          Left            =   240
  116.          TabIndex        =   32
  117.          Top             =   1170
  118.          Width           =   675
  119.       End
  120.       Begin VB.Label Label9 
  121.          BorderStyle     =   1  'Fixed Single
  122.          BeginProperty Font 
  123.             name            =   "MS Sans Serif"
  124.             charset         =   1
  125.             weight          =   400
  126.             size            =   8.25
  127.             underline       =   0   'False
  128.             italic          =   0   'False
  129.             strikethrough   =   0   'False
  130.          EndProperty
  131.          Height          =   240
  132.          Left            =   1035
  133.          TabIndex        =   18
  134.          Top             =   2250
  135.          Width           =   1590
  136.       End
  137.       Begin VB.Label Label19 
  138.          BorderStyle     =   1  'Fixed Single
  139.          BeginProperty Font 
  140.             name            =   "MS Sans Serif"
  141.             charset         =   1
  142.             weight          =   400
  143.             size            =   8.25
  144.             underline       =   0   'False
  145.             italic          =   0   'False
  146.             strikethrough   =   0   'False
  147.          EndProperty
  148.          Height          =   240
  149.          Left            =   1035
  150.          TabIndex        =   28
  151.          Top             =   3825
  152.          Width           =   1590
  153.       End
  154.       Begin VB.Label Label18 
  155.          Alignment       =   1  'Right Justify
  156.          AutoSize        =   -1  'True
  157.          BackStyle       =   0  'Transparent
  158.          Caption         =   "System:"
  159.          BeginProperty Font 
  160.             name            =   "MS Sans Serif"
  161.             charset         =   1
  162.             weight          =   400
  163.             size            =   8.25
  164.             underline       =   0   'False
  165.             italic          =   0   'False
  166.             strikethrough   =   0   'False
  167.          EndProperty
  168.          Height          =   195
  169.          Left            =   435
  170.          TabIndex        =   27
  171.          Top             =   3870
  172.          Width           =   555
  173.       End
  174.       Begin VB.Label Label17 
  175.          BorderStyle     =   1  'Fixed Single
  176.          BeginProperty Font 
  177.             name            =   "MS Sans Serif"
  178.             charset         =   1
  179.             weight          =   400
  180.             size            =   8.25
  181.             underline       =   0   'False
  182.             italic          =   0   'False
  183.             strikethrough   =   0   'False
  184.          EndProperty
  185.          Height          =   240
  186.          Left            =   1035
  187.          TabIndex        =   26
  188.          Top             =   3510
  189.          Width           =   1590
  190.       End
  191.       Begin VB.Label Label16 
  192.          Alignment       =   1  'Right Justify
  193.          AutoSize        =   -1  'True
  194.          BackStyle       =   0  'Transparent
  195.          Caption         =   "ReadOnly:"
  196.          BeginProperty Font 
  197.             name            =   "MS Sans Serif"
  198.             charset         =   1
  199.             weight          =   400
  200.             size            =   8.25
  201.             underline       =   0   'False
  202.             italic          =   0   'False
  203.             strikethrough   =   0   'False
  204.          EndProperty
  205.          Height          =   195
  206.          Left            =   240
  207.          TabIndex        =   25
  208.          Top             =   3555
  209.          Width           =   750
  210.       End
  211.       Begin VB.Label Label15 
  212.          BorderStyle     =   1  'Fixed Single
  213.          BeginProperty Font 
  214.             name            =   "MS Sans Serif"
  215.             charset         =   1
  216.             weight          =   400
  217.             size            =   8.25
  218.             underline       =   0   'False
  219.             italic          =   0   'False
  220.             strikethrough   =   0   'False
  221.          EndProperty
  222.          Height          =   240
  223.          Left            =   1035
  224.          TabIndex        =   24
  225.          Top             =   3195
  226.          Width           =   1590
  227.       End
  228.       Begin VB.Label Label14 
  229.          Alignment       =   1  'Right Justify
  230.          AutoSize        =   -1  'True
  231.          BackStyle       =   0  'Transparent
  232.          Caption         =   "Hidden:"
  233.          BeginProperty Font 
  234.             name            =   "MS Sans Serif"
  235.             charset         =   1
  236.             weight          =   400
  237.             size            =   8.25
  238.             underline       =   0   'False
  239.             italic          =   0   'False
  240.             strikethrough   =   0   'False
  241.          EndProperty
  242.          Height          =   195
  243.          Left            =   435
  244.          TabIndex        =   23
  245.          Top             =   3240
  246.          Width           =   555
  247.       End
  248.       Begin VB.Label Label13 
  249.          BorderStyle     =   1  'Fixed Single
  250.          BeginProperty Font 
  251.             name            =   "MS Sans Serif"
  252.             charset         =   1
  253.             weight          =   400
  254.             size            =   8.25
  255.             underline       =   0   'False
  256.             italic          =   0   'False
  257.             strikethrough   =   0   'False
  258.          EndProperty
  259.          Height          =   240
  260.          Left            =   1035
  261.          TabIndex        =   22
  262.          Top             =   2880
  263.          Width           =   1590
  264.       End
  265.       Begin VB.Label Label12 
  266.          Alignment       =   1  'Right Justify
  267.          AutoSize        =   -1  'True
  268.          BackStyle       =   0  'Transparent
  269.          Caption         =   "Archived:"
  270.          BeginProperty Font 
  271.             name            =   "MS Sans Serif"
  272.             charset         =   1
  273.             weight          =   400
  274.             size            =   8.25
  275.             underline       =   0   'False
  276.             italic          =   0   'False
  277.             strikethrough   =   0   'False
  278.          EndProperty
  279.          Height          =   195
  280.          Left            =   330
  281.          TabIndex        =   21
  282.          Top             =   2925
  283.          Width           =   675
  284.       End
  285.       Begin VB.Label Label11 
  286.          BorderStyle     =   1  'Fixed Single
  287.          BeginProperty Font 
  288.             name            =   "MS Sans Serif"
  289.             charset         =   1
  290.             weight          =   400
  291.             size            =   8.25
  292.             underline       =   0   'False
  293.             italic          =   0   'False
  294.             strikethrough   =   0   'False
  295.          EndProperty
  296.          Height          =   240
  297.          Left            =   1035
  298.          TabIndex        =   20
  299.          Top             =   2565
  300.          Width           =   1590
  301.       End
  302.       Begin VB.Label Label10 
  303.          Alignment       =   1  'Right Justify
  304.          AutoSize        =   -1  'True
  305.          BackStyle       =   0  'Transparent
  306.          Caption         =   "Time:"
  307.          BeginProperty Font 
  308.             name            =   "MS Sans Serif"
  309.             charset         =   1
  310.             weight          =   400
  311.             size            =   8.25
  312.             underline       =   0   'False
  313.             italic          =   0   'False
  314.             strikethrough   =   0   'False
  315.          EndProperty
  316.          Height          =   195
  317.          Left            =   585
  318.          TabIndex        =   19
  319.          Top             =   2610
  320.          Width           =   390
  321.       End
  322.       Begin VB.Label Label8 
  323.          Alignment       =   1  'Right Justify
  324.          AutoSize        =   -1  'True
  325.          BackStyle       =   0  'Transparent
  326.          Caption         =   "Date:"
  327.          BeginProperty Font 
  328.             name            =   "MS Sans Serif"
  329.             charset         =   1
  330.             weight          =   400
  331.             size            =   8.25
  332.             underline       =   0   'False
  333.             italic          =   0   'False
  334.             strikethrough   =   0   'False
  335.          EndProperty
  336.          Height          =   195
  337.          Left            =   585
  338.          TabIndex        =   17
  339.          Top             =   2295
  340.          Width           =   390
  341.       End
  342.       Begin VB.Label Label7 
  343.          BorderStyle     =   1  'Fixed Single
  344.          BeginProperty Font 
  345.             name            =   "MS Sans Serif"
  346.             charset         =   1
  347.             weight          =   400
  348.             size            =   8.25
  349.             underline       =   0   'False
  350.             italic          =   0   'False
  351.             strikethrough   =   0   'False
  352.          EndProperty
  353.          Height          =   240
  354.          Left            =   1035
  355.          TabIndex        =   16
  356.          Top             =   1935
  357.          Width           =   1590
  358.       End
  359.       Begin VB.Label Label6 
  360.          Alignment       =   1  'Right Justify
  361.          AutoSize        =   -1  'True
  362.          BackStyle       =   0  'Transparent
  363.          Caption         =   "Size:"
  364.          BeginProperty Font 
  365.             name            =   "MS Sans Serif"
  366.             charset         =   1
  367.             weight          =   400
  368.             size            =   8.25
  369.             underline       =   0   'False
  370.             italic          =   0   'False
  371.             strikethrough   =   0   'False
  372.          EndProperty
  373.          Height          =   195
  374.          Left            =   630
  375.          TabIndex        =   15
  376.          Top             =   1980
  377.          Width           =   345
  378.       End
  379.    End
  380.    Begin VB.Frame Frame1 
  381.       Caption         =   "Disk Info"
  382.       Height          =   3000
  383.       Left            =   90
  384.       TabIndex        =   0
  385.       Top             =   90
  386.       Width           =   2760
  387.       Begin VB.DriveListBox Drive1 
  388.          BeginProperty Font 
  389.             name            =   "MS Sans Serif"
  390.             charset         =   1
  391.             weight          =   400
  392.             size            =   8.25
  393.             underline       =   0   'False
  394.             italic          =   0   'False
  395.             strikethrough   =   0   'False
  396.          EndProperty
  397.          Height          =   315
  398.          Left            =   720
  399.          TabIndex        =   2
  400.          Top             =   360
  401.          Width           =   1950
  402.       End
  403.       Begin VB.PictureBox Picture1 
  404.          Appearance      =   0  'Flat
  405.          AutoSize        =   -1  'True
  406.          BackColor       =   &H80000005&
  407.          BorderStyle     =   0  'None
  408.          ForeColor       =   &H80000008&
  409.          Height          =   420
  410.          Left            =   120
  411.          Picture         =   "DFINFOS1.frx":0242
  412.          ScaleHeight     =   420
  413.          ScaleWidth      =   420
  414.          TabIndex        =   1
  415.          Top             =   360
  416.          Width           =   420
  417.       End
  418.       Begin VB.Label StartupDrive 
  419.          BorderStyle     =   1  'Fixed Single
  420.          BeginProperty Font 
  421.             name            =   "MS Sans Serif"
  422.             charset         =   1
  423.             weight          =   400
  424.             size            =   8.25
  425.             underline       =   0   'False
  426.             italic          =   0   'False
  427.             strikethrough   =   0   'False
  428.          EndProperty
  429.          Height          =   255
  430.          Left            =   1575
  431.          TabIndex        =   12
  432.          Top             =   2520
  433.          Width           =   1095
  434.       End
  435.       Begin VB.Label Label5 
  436.          Alignment       =   1  'Right Justify
  437.          AutoSize        =   -1  'True
  438.          BackStyle       =   0  'Transparent
  439.          Caption         =   "Start-Up Drive:"
  440.          BeginProperty Font 
  441.             name            =   "MS Sans Serif"
  442.             charset         =   1
  443.             weight          =   400
  444.             size            =   8.25
  445.             underline       =   0   'False
  446.             italic          =   0   'False
  447.             strikethrough   =   0   'False
  448.          EndProperty
  449.          Height          =   195
  450.          Left            =   465
  451.          TabIndex        =   11
  452.          Top             =   2565
  453.          Width           =   1050
  454.       End
  455.       Begin VB.Label NumFloppies 
  456.          BorderStyle     =   1  'Fixed Single
  457.          BeginProperty Font 
  458.             name            =   "MS Sans Serif"
  459.             charset         =   1
  460.             weight          =   400
  461.             size            =   8.25
  462.             underline       =   0   'False
  463.             italic          =   0   'False
  464.             strikethrough   =   0   'False
  465.          EndProperty
  466.          Height          =   255
  467.          Left            =   1575
  468.          TabIndex        =   10
  469.          Top             =   2160
  470.          Width           =   1080
  471.       End
  472.       Begin VB.Label Label4 
  473.          Alignment       =   1  'Right Justify
  474.          AutoSize        =   -1  'True
  475.          BackStyle       =   0  'Transparent
  476.          Caption         =   "# Floppies:"
  477.          BeginProperty Font 
  478.             name            =   "MS Sans Serif"
  479.             charset         =   1
  480.             weight          =   400
  481.             size            =   8.25
  482.             underline       =   0   'False
  483.             italic          =   0   'False
  484.             strikethrough   =   0   'False
  485.          EndProperty
  486.          Height          =   195
  487.          Left            =   735
  488.          TabIndex        =   9
  489.          Top             =   2205
  490.          Width           =   780
  491.       End
  492.       Begin VB.Label VolumeName 
  493.          BorderStyle     =   1  'Fixed Single
  494.          BeginProperty Font 
  495.             name            =   "MS Sans Serif"
  496.             charset         =   1
  497.             weight          =   400
  498.             size            =   8.25
  499.             underline       =   0   'False
  500.             italic          =   0   'False
  501.             strikethrough   =   0   'False
  502.          EndProperty
  503.          Height          =   255
  504.          Left            =   1305
  505.          TabIndex        =   8
  506.          Top             =   960
  507.          Width           =   1365
  508.       End
  509.       Begin VB.Label Label3 
  510.          Alignment       =   1  'Right Justify
  511.          AutoSize        =   -1  'True
  512.          BackStyle       =   0  'Transparent
  513.          Caption         =   "Volume:"
  514.          BeginProperty Font 
  515.             name            =   "MS Sans Serif"
  516.             charset         =   1
  517.             weight          =   400
  518.             size            =   8.25
  519.             underline       =   0   'False
  520.             italic          =   0   'False
  521.             strikethrough   =   0   'False
  522.          EndProperty
  523.          Height          =   195
  524.          Left            =   585
  525.          TabIndex        =   7
  526.          Top             =   990
  527.          Width           =   630
  528.       End
  529.       Begin VB.Label Network 
  530.          BorderStyle     =   1  'Fixed Single
  531.          BeginProperty Font 
  532.             name            =   "MS Sans Serif"
  533.             charset         =   1
  534.             weight          =   400
  535.             size            =   8.25
  536.             underline       =   0   'False
  537.             italic          =   0   'False
  538.             strikethrough   =   0   'False
  539.          EndProperty
  540.          Height          =   255
  541.          Left            =   1305
  542.          TabIndex        =   6
  543.          Top             =   1665
  544.          Width           =   1365
  545.       End
  546.       Begin VB.Label Label2 
  547.          Alignment       =   1  'Right Justify
  548.          AutoSize        =   -1  'True
  549.          BackStyle       =   0  'Transparent
  550.          Caption         =   "Network:"
  551.          BeginProperty Font 
  552.             name            =   "MS Sans Serif"
  553.             charset         =   1
  554.             weight          =   400
  555.             size            =   8.25
  556.             underline       =   0   'False
  557.             italic          =   0   'False
  558.             strikethrough   =   0   'False
  559.          EndProperty
  560.          Height          =   195
  561.          Left            =   495
  562.          TabIndex        =   5
  563.          Top             =   1710
  564.          Width           =   720
  565.       End
  566.       Begin VB.Label FreeSpace 
  567.          BorderStyle     =   1  'Fixed Single
  568.          BeginProperty Font 
  569.             name            =   "MS Sans Serif"
  570.             charset         =   1
  571.             weight          =   400
  572.             size            =   8.25
  573.             underline       =   0   'False
  574.             italic          =   0   'False
  575.             strikethrough   =   0   'False
  576.          EndProperty
  577.          Height          =   255
  578.          Left            =   1305
  579.          TabIndex        =   3
  580.          Top             =   1305
  581.          Width           =   1350
  582.       End
  583.       Begin VB.Label Label1 
  584.          Alignment       =   1  'Right Justify
  585.          AutoSize        =   -1  'True
  586.          BackStyle       =   0  'Transparent
  587.          Caption         =   "Free Space:"
  588.          BeginProperty Font 
  589.             name            =   "MS Sans Serif"
  590.             charset         =   1
  591.             weight          =   400
  592.             size            =   8.25
  593.             underline       =   0   'False
  594.             italic          =   0   'False
  595.             strikethrough   =   0   'False
  596.          EndProperty
  597.          Height          =   195
  598.          Left            =   240
  599.          TabIndex        =   4
  600.          Top             =   1350
  601.          Width           =   990
  602.       End
  603.    End
  604.    Begin DfinfoLib.FileInfo FileInfo1 
  605.       Left            =   600
  606.       Top             =   3840
  607.       _version        =   131076
  608.       _extentx        =   847
  609.       _extenty        =   847
  610.       _stockprops     =   0
  611.       filename        =   ""
  612.    End
  613.    Begin DfinfoLib.DiskInfo DiskInfo1 
  614.       Height          =   480
  615.       Left            =   120
  616.       TabIndex        =   34
  617.       Top             =   3840
  618.       Width           =   480
  619.       _version        =   131076
  620.       _extentx        =   847
  621.       _extenty        =   847
  622.       _stockprops     =   0
  623.       disk            =   ""
  624.    End
  625.    Begin VB.Label Label21 
  626.       Appearance      =   0  'Flat
  627.       BackColor       =   &H80000005&
  628.       BackStyle       =   0  'Transparent
  629.       Caption         =   $"DFINFOS1.frx":0484
  630.       BeginProperty Font 
  631.          name            =   "MS Sans Serif"
  632.          charset         =   1
  633.          weight          =   400
  634.          size            =   8.25
  635.          underline       =   0   'False
  636.          italic          =   0   'False
  637.          strikethrough   =   0   'False
  638.       EndProperty
  639.       ForeColor       =   &H80000008&
  640.       Height          =   615
  641.       Left            =   120
  642.       TabIndex        =   33
  643.       Top             =   3240
  644.       Width           =   2775
  645.    End
  646. Attribute VB_Name = "DFInfoS1"
  647. Attribute VB_Creatable = False
  648. Attribute VB_Exposed = False
  649. Option Explicit
  650. Private Sub Dir1_Change()
  651.     File1.Path = Dir1.Path
  652.     File1.Refresh
  653. End Sub
  654. Private Sub Drive1_Change()
  655.     Dir1.Path = UCase(Left(Drive1.Drive, 1)) + ":\"
  656.     Dir1.Refresh
  657.     DiskInfo1.Disk = Drive1
  658.     VolumeName = DiskInfo1.VolumeName
  659.     FreeSpace = DiskInfo1.FreeSpace
  660.     If DiskInfo1.Network Then
  661.         Network = "Network"
  662.     Else
  663.         Network = "Local"
  664.     End If
  665. End Sub
  666. Private Sub File1_Click()
  667.     Dim Path$
  668.     If Not Right$(Dir1.Path, 1) = "\" Then
  669.         Path$ = Dir1.Path + "\"
  670.     Else
  671.         Path$ = Dir1.Path
  672.     End If
  673.     FileInfo1.filename = Path$ + File1.filename
  674.     Label7.Caption = Str$(FileInfo1.Size)
  675.     Label9.Caption = FileInfo1.FileDate
  676.     Label11.Caption = FileInfo1.FileTime
  677.     If FileInfo1.IsArchived Then
  678.         Label13.Caption = "True"
  679.     Else
  680.         Label13.Caption = "False"
  681.     End If
  682.     If FileInfo1.IsHidden Then
  683.         Label15.Caption = "True"
  684.     Else
  685.         Label15.Caption = "False"
  686.     End If
  687.     If FileInfo1.IsReadOnly Then
  688.         Label17.Caption = "True"
  689.     Else
  690.         Label17.Caption = "False"
  691.     End If
  692.     If FileInfo1.IsSystem Then
  693.         Label19.Caption = "True"
  694.     Else
  695.         Label19.Caption = "False"
  696.     End If
  697. End Sub
  698. Private Sub Form_Load()
  699.     DFInfoS1.Left = (Screen.Width - DFInfoS1.Width) / 2
  700.     DFInfoS1.Top = (Screen.Height - DFInfoS1.Height) / 2
  701.     Call Drive1_Change    ' force load of labels
  702.     NumFloppies = DiskInfo1.NumFloppies
  703.     StartupDrive = DiskInfo1.StartupDrive
  704. End Sub
  705. Private Sub Form_Unload(Cancel As Integer)
  706.     End
  707. End Sub
  708. Private Sub Text1_Change()
  709.     Dim Path$
  710.         If Not Right$(Dir1.Path, 1) = "\" Then
  711.             Path$ = Dir1.Path + "\"
  712.         Else
  713.             Path$ = Dir1.Path
  714.         End If
  715.         FileInfo1.filename = Path$ + text1.Text
  716.         Label7.Caption = Str$(FileInfo1.Size)
  717.         Label9.Caption = FileInfo1.FileDate
  718.         Label11.Caption = FileInfo1.FileTime
  719.         If FileInfo1.IsArchived Then
  720.             Label13.Caption = "True"
  721.         Else
  722.             Label13.Caption = "False"
  723.         End If
  724.         If FileInfo1.IsHidden Then
  725.             Label15.Caption = "True"
  726.         Else
  727.             Label15.Caption = "False"
  728.         End If
  729.         If FileInfo1.IsReadOnly Then
  730.             Label17.Caption = "True"
  731.         Else
  732.             Label17.Caption = "False"
  733.         End If
  734.         If FileInfo1.IsSystem Then
  735.             Label19.Caption = "True"
  736.         Else
  737.             Label19.Caption = "False"
  738.         End If
  739. End Sub
  740.