home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / exploer / frmfilep.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-08-25  |  7.1 KB  |  229 lines
  1. VERSION 5.00
  2. Begin VB.Form frmFileProp 
  3.    Caption         =   "File Property Page"
  4.    ClientHeight    =   6975
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5775
  8.    Icon            =   "frmFileProp.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   6975
  11.    ScaleWidth      =   5775
  12.    ShowInTaskbar   =   0   'False
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.CommandButton cmdPropCancel 
  15.       Caption         =   "&Cancel"
  16.       Height          =   375
  17.       Left            =   240
  18.       TabIndex        =   6
  19.       Top             =   6480
  20.       Width           =   1215
  21.    End
  22.    Begin VB.CommandButton cmdPropApp 
  23.       Caption         =   "&Apply"
  24.       Height          =   375
  25.       Left            =   4440
  26.       TabIndex        =   5
  27.       Top             =   6480
  28.       Width           =   1215
  29.    End
  30.    Begin VB.CommandButton cmdPropOk 
  31.       Caption         =   "&OK"
  32.       Height          =   375
  33.       Left            =   3240
  34.       TabIndex        =   4
  35.       Top             =   6480
  36.       Width           =   1215
  37.    End
  38.    Begin VB.Frame framFprop 
  39.       Caption         =   "General Info"
  40.       Height          =   1575
  41.       Left            =   240
  42.       TabIndex        =   3
  43.       Top             =   2280
  44.       Width           =   5295
  45.       Begin VB.Label lblType1 
  46.          AutoSize        =   -1  'True
  47.          Height          =   195
  48.          Left            =   1080
  49.          TabIndex        =   12
  50.          Top             =   720
  51.          Width           =   45
  52.       End
  53.       Begin VB.Label lblType 
  54.          Caption         =   "Type : "
  55.          Height          =   255
  56.          Left            =   240
  57.          TabIndex        =   11
  58.          Top             =   720
  59.          Width           =   735
  60.       End
  61.       Begin VB.Label lblSize1 
  62.          AutoSize        =   -1  'True
  63.          Height          =   195
  64.          Left            =   1080
  65.          TabIndex        =   10
  66.          Top             =   1200
  67.          Width           =   45
  68.       End
  69.       Begin VB.Label lblSize 
  70.          Caption         =   "Size :"
  71.          Height          =   255
  72.          Left            =   240
  73.          TabIndex        =   9
  74.          Top             =   1200
  75.          Width           =   735
  76.       End
  77.       Begin VB.Label lblName1 
  78.          AutoSize        =   -1  'True
  79.          Height          =   195
  80.          Left            =   1080
  81.          TabIndex        =   8
  82.          Top             =   240
  83.          Width           =   45
  84.       End
  85.       Begin VB.Label lblName 
  86.          Caption         =   "Name :"
  87.          Height          =   255
  88.          Left            =   240
  89.          TabIndex        =   7
  90.          Top             =   240
  91.          Width           =   735
  92.       End
  93.    End
  94.    Begin VB.Frame framPropFDate 
  95.       Caption         =   "File Date && Attribute"
  96.       Height          =   1815
  97.       Left            =   240
  98.       TabIndex        =   2
  99.       Top             =   3960
  100.       Width           =   5295
  101.       Begin VB.CheckBox chkHidden 
  102.          Caption         =   "Hidden"
  103.          Height          =   255
  104.          Left            =   4080
  105.          TabIndex        =   23
  106.          Top             =   240
  107.          Width           =   855
  108.       End
  109.       Begin VB.CheckBox chkArchive 
  110.          Caption         =   "Archive"
  111.          Height          =   255
  112.          Left            =   4080
  113.          TabIndex        =   22
  114.          Top             =   600
  115.          Width           =   855
  116.       End
  117.       Begin VB.CheckBox chkReadOnly 
  118.          Caption         =   "ReadOnly"
  119.          Height          =   255
  120.          Left            =   4080
  121.          TabIndex        =   21
  122.          Top             =   960
  123.          Width           =   1095
  124.       End
  125.       Begin VB.CheckBox chkSystem 
  126.          Caption         =   "System"
  127.          Enabled         =   0   'False
  128.          Height          =   255
  129.          Left            =   4080
  130.          TabIndex        =   20
  131.          Top             =   1320
  132.          Width           =   855
  133.       End
  134.       Begin VB.Label lblLastmod1 
  135.          AutoSize        =   -1  'True
  136.          Height          =   195
  137.          Left            =   1560
  138.          TabIndex        =   18
  139.          Top             =   1320
  140.          Width           =   45
  141.       End
  142.       Begin VB.Label lblLastacc1 
  143.          AutoSize        =   -1  'True
  144.          Height          =   195
  145.          Left            =   1560
  146.          TabIndex        =   17
  147.          Top             =   840
  148.          Width           =   45
  149.       End
  150.       Begin VB.Label lbldCreate1 
  151.          AutoSize        =   -1  'True
  152.          Height          =   195
  153.          Left            =   1080
  154.          TabIndex        =   16
  155.          Top             =   360
  156.          Width           =   45
  157.       End
  158.       Begin VB.Label lblLastmod 
  159.          Caption         =   "Last Modified :"
  160.          Height          =   255
  161.          Left            =   240
  162.          TabIndex        =   15
  163.          Top             =   1320
  164.          Width           =   1095
  165.       End
  166.       Begin VB.Label lblLastacc 
  167.          Caption         =   "Last Accessed :"
  168.          Height          =   255
  169.          Left            =   240
  170.          TabIndex        =   14
  171.          Top             =   840
  172.          Width           =   1215
  173.       End
  174.       Begin VB.Label lbldCreate 
  175.          Caption         =   "Creation :"
  176.          Height          =   255
  177.          Left            =   240
  178.          TabIndex        =   13
  179.          Top             =   360
  180.          Width           =   735
  181.       End
  182.    End
  183.    Begin VB.Frame framPropfname 
  184.       Caption         =   "File Name"
  185.       Height          =   1695
  186.       Left            =   240
  187.       TabIndex        =   0
  188.       Top             =   360
  189.       Width           =   5295
  190.       Begin VB.PictureBox pctPropf 
  191.          BackColor       =   &H8000000A&
  192.          BorderStyle     =   0  'None
  193.          Height          =   495
  194.          Left            =   240
  195.          ScaleHeight     =   495
  196.          ScaleWidth      =   615
  197.          TabIndex        =   1
  198.          Top             =   360
  199.          Width           =   615
  200.       End
  201.       Begin VB.Label lblFPath 
  202.          AutoSize        =   -1  'True
  203.          Height          =   195
  204.          Left            =   2040
  205.          TabIndex        =   19
  206.          Top             =   360
  207.          Width           =   45
  208.       End
  209.    End
  210. Attribute VB_Name = "frmFileProp"
  211. Attribute VB_GlobalNameSpace = False
  212. Attribute VB_Creatable = False
  213. Attribute VB_PredeclaredId = True
  214. Attribute VB_Exposed = False
  215. Private Sub cmdPropApp_Click()
  216.     Dim fs, f, s, datec
  217.     On Error Resume Next
  218.     Set fs = CreateObject("Scripting.FileSystemObject")
  219.     Set f = fs.GetFile(filespec)
  220.     If frmFileProp.chkArchive = 1 Then f.Attributes = f.Attributes + 32
  221.     If frmFileProp.chkHidden = 1 Then f.Attributes = f.Attributes + 2
  222.     If frmFileProp.chkReadOnly = 1 Then f.Attributes = f.Attributes + 1
  223. End Sub
  224. Private Sub cmdPropCancel_Click()
  225.     frmFileProp.Hide
  226. End Sub
  227. Private Sub Label2_Click()
  228. End Sub
  229.