home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nivb / fileinfo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-07  |  12.2 KB  |  419 lines
  1. VERSION 2.00
  2. Begin Form FileInfoForm 
  3.    Caption         =   "File Services Test"
  4.    ClientHeight    =   4110
  5.    ClientLeft      =   1080
  6.    ClientTop       =   1680
  7.    ClientWidth     =   6930
  8.    Height          =   4515
  9.    Left            =   1020
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   4110
  12.    ScaleWidth      =   6930
  13.    Top             =   1335
  14.    Width           =   7050
  15.    Begin Frame Frame2 
  16.       Caption         =   "Extended File Attributes"
  17.       Height          =   1455
  18.       Left            =   3720
  19.       TabIndex        =   4
  20.       Top             =   1920
  21.       Width           =   2415
  22.       Begin CheckBox WABox 
  23.          Caption         =   "Write audit"
  24.          Height          =   255
  25.          Left            =   480
  26.          TabIndex        =   15
  27.          Top             =   1080
  28.          Width           =   1575
  29.       End
  30.       Begin CheckBox RABox 
  31.          Caption         =   "Read audit"
  32.          Height          =   255
  33.          Left            =   480
  34.          TabIndex        =   14
  35.          Top             =   840
  36.          Width           =   1575
  37.       End
  38.       Begin CheckBox IBox 
  39.          Caption         =   "Indexed"
  40.          Height          =   255
  41.          Left            =   480
  42.          TabIndex        =   13
  43.          Top             =   600
  44.          Width           =   1575
  45.       End
  46.       Begin CheckBox TBox 
  47.          Caption         =   "Transactional"
  48.          Height          =   255
  49.          Left            =   480
  50.          TabIndex        =   12
  51.          Top             =   360
  52.          Width           =   1575
  53.       End
  54.    End
  55.    Begin Frame Frame1 
  56.       Caption         =   "File Attributes"
  57.       Height          =   2175
  58.       Left            =   360
  59.       TabIndex        =   3
  60.       Top             =   1320
  61.       Width           =   1695
  62.       Begin CheckBox ShBox 
  63.          Caption         =   "Sharable"
  64.          Height          =   255
  65.          Left            =   120
  66.          TabIndex        =   11
  67.          Top             =   1800
  68.          Width           =   1455
  69.       End
  70.       Begin CheckBox ABox 
  71.          Caption         =   "Archive"
  72.          Height          =   255
  73.          Left            =   120
  74.          TabIndex        =   10
  75.          Top             =   1560
  76.          Width           =   1455
  77.       End
  78.       Begin CheckBox SubBox 
  79.          Caption         =   "Subdirectory"
  80.          Height          =   255
  81.          Left            =   120
  82.          TabIndex        =   9
  83.          Top             =   1320
  84.          Width           =   1455
  85.       End
  86.       Begin CheckBox XBox 
  87.          Caption         =   "Execute only"
  88.          Height          =   255
  89.          Left            =   120
  90.          TabIndex        =   8
  91.          Top             =   1080
  92.          Width           =   1455
  93.       End
  94.       Begin CheckBox SBox 
  95.          Caption         =   "System"
  96.          Height          =   255
  97.          Left            =   120
  98.          TabIndex        =   7
  99.          Top             =   840
  100.          Width           =   1455
  101.       End
  102.       Begin CheckBox HBox 
  103.          Caption         =   "Hidden"
  104.          Height          =   255
  105.          Left            =   120
  106.          TabIndex        =   6
  107.          Top             =   600
  108.          Width           =   1455
  109.       End
  110.       Begin CheckBox ROBox 
  111.          Caption         =   "Read-only"
  112.          Height          =   255
  113.          Left            =   120
  114.          TabIndex        =   5
  115.          Top             =   360
  116.          Width           =   1455
  117.       End
  118.    End
  119.    Begin CommandButton OKButton 
  120.       Caption         =   "&OK"
  121.       Height          =   375
  122.       Left            =   2880
  123.       TabIndex        =   0
  124.       Top             =   3600
  125.       Width           =   855
  126.    End
  127.    Begin Label OwnerLabel 
  128.       Height          =   255
  129.       Left            =   960
  130.       TabIndex        =   27
  131.       Top             =   840
  132.       Width           =   2055
  133.    End
  134.    Begin Label Label7 
  135.       Alignment       =   1  'Right Justify
  136.       Caption         =   "Owner:"
  137.       Height          =   255
  138.       Left            =   120
  139.       TabIndex        =   26
  140.       Top             =   840
  141.       Width           =   735
  142.    End
  143.    Begin Label LastArchivedLabel 
  144.       Height          =   255
  145.       Left            =   4680
  146.       TabIndex        =   25
  147.       Top             =   1560
  148.       Width           =   2055
  149.    End
  150.    Begin Label Label6 
  151.       Alignment       =   1  'Right Justify
  152.       Caption         =   "Last archived:"
  153.       Height          =   255
  154.       Left            =   3240
  155.       TabIndex        =   24
  156.       Top             =   1560
  157.       Width           =   1335
  158.    End
  159.    Begin Label LastUpdateLabel 
  160.       Height          =   255
  161.       Left            =   4680
  162.       TabIndex        =   23
  163.       Top             =   1320
  164.       Width           =   2055
  165.    End
  166.    Begin Label Label5 
  167.       Alignment       =   1  'Right Justify
  168.       Caption         =   "Last updated:"
  169.       Height          =   255
  170.       Left            =   3240
  171.       TabIndex        =   22
  172.       Top             =   1320
  173.       Width           =   1335
  174.    End
  175.    Begin Label LastAccessLabel 
  176.       Height          =   255
  177.       Left            =   4680
  178.       TabIndex        =   21
  179.       Top             =   1080
  180.       Width           =   2055
  181.    End
  182.    Begin Label Label4 
  183.       Alignment       =   1  'Right Justify
  184.       Caption         =   "Last accessed:"
  185.       Height          =   255
  186.       Left            =   3240
  187.       TabIndex        =   20
  188.       Top             =   1080
  189.       Width           =   1335
  190.    End
  191.    Begin Label CreatedLabel 
  192.       Height          =   255
  193.       Left            =   4680
  194.       TabIndex        =   19
  195.       Top             =   840
  196.       Width           =   2055
  197.    End
  198.    Begin Label Label3 
  199.       Alignment       =   1  'Right Justify
  200.       Caption         =   "Created:"
  201.       Height          =   255
  202.       Left            =   3720
  203.       TabIndex        =   18
  204.       Top             =   840
  205.       Width           =   855
  206.    End
  207.    Begin Label Label2 
  208.       Alignment       =   1  'Right Justify
  209.       Caption         =   "Size:"
  210.       Height          =   255
  211.       Left            =   240
  212.       TabIndex        =   17
  213.       Top             =   1080
  214.       Width           =   615
  215.    End
  216.    Begin Label Label1 
  217.       Caption         =   "Information for file:"
  218.       Height          =   255
  219.       Left            =   120
  220.       TabIndex        =   16
  221.       Top             =   120
  222.       Width           =   2655
  223.    End
  224.    Begin Label FileSizeLabel 
  225.       Height          =   255
  226.       Left            =   960
  227.       TabIndex        =   2
  228.       Top             =   1080
  229.       Width           =   1575
  230.    End
  231.    Begin Label FilePathLabel 
  232.       Height          =   255
  233.       Left            =   360
  234.       TabIndex        =   1
  235.       Top             =   360
  236.       Width           =   6375
  237.    End
  238. Dim locked%
  239. Sub ABox_Click ()
  240.     If locked% Then
  241.         locked% = False
  242.         If (Abox.Value = 0) Then
  243.             Abox.Value = 1
  244.         Else
  245.             Abox.Value = 0
  246.         End If
  247.         locked% = True
  248.     End If
  249. End Sub
  250. Sub Form_Load ()
  251.     locked% = False
  252.     server$ = String$(48, 0)
  253.     volume$ = String$(16, 0)
  254.     dirs$ = String$(255, 0)
  255.     dirPath$ = SelectFileForm.CurrDirLabel.Caption + "\" + SelectFileForm.FileNameBox.Text
  256.     cCode% = ParsePath(dirPath$, server$, volume$, dirs$)
  257.     volume$ = Left$(volume$, InStr(volume$, Chr$(0)) - 1)
  258.     dirs$ = Left$(dirs$, InStr(dirs$, Chr$(0)) - 1)
  259.     filePath$ = volume$ + ":/" + dirs$
  260.     fileName$ = String$(15, 0)
  261.     handle% = 0
  262.     sequence% = -1
  263.     cCode% = ScanFileInformation(handle%, filePath$, FA_NORMAL And FA_HIDDEN And FA_SYSTEM, sequence%, fileName$, attrib%, extAttrib%, size&, cDate%, lastAcc%, lastUpd&, lastArch&, ownerID&)
  264.     If (cCode% <> SUCCESSFUL) Then
  265.         MsgBox "Unable to get file information", MB_OK, "Error"
  266.     Else
  267.         'file path
  268.         FilePathLabel.Caption = filePath$
  269.         'attributes
  270.         If (attrib% And FA_READ_ONLY) Then ROBox.Value = 1
  271.         If (attrib% And FA_HIDDEN) Then HBox.Value = 1
  272.         If (attrib% And FA_SYSTEM) Then SBox.Value = 1
  273.         If (attrib% And FA_EXECUTE_ONLY) Then XBox.Value = 1
  274.         If (attrib% And FA_DIRECTORY) Then SubBox.Value = 1
  275.         If (attrib% And FA_ARCHIVE) Then Abox.Value = 1
  276.         If (attrib% And FA_SHARABLE) Then ShBox.Value = 1
  277.         'extended attributes
  278.         If (extAttrib% And FA_TRANSACTIONAL) Then TBox.Value = 1
  279.         If (extAttrib% And FA_INDEXED) Then IBox.Value = 1
  280.         If (extAttrib% And FA_READ_AUDIT) Then RABox.Value = 1
  281.         If (extAttrib% And FA_WRITE_AUDIT) Then WABox.Value = 1
  282.         'Ignore the Purge, Copy Inhibit, Delete Inhibit, and Rename Inhibit bits for now
  283.         'file size
  284.         FileSizeLabel.Caption = Str$(size&)
  285.         'creation date
  286.         CreatedLabel.Caption = GetDate$(cDate%, 0)
  287.         'last accessed date
  288.         LastAccessLabel.Caption = GetDate$(lastAcc%, 0)
  289.         'last update date and time
  290.         theTime% = (lastUpd& And &HFFFF0000) / &H10000
  291.         theDate% = lastUpd& - (lastUpd& And &HFFFF0000)
  292.         LastUpdateLabel.Caption = GetDate$(theDate%, theTime%)
  293.         'last archive date and time
  294.         theTime% = (lastArch& And &HFFFF0000) / &H10000
  295.         theDate% = lastArch& - (lastArch& And &HFFFF0000)
  296.         LastArchivedLabel.Caption = GetDate$(theDate%, theTime%)
  297.         'owner
  298.         ownerName$ = String$(48, 0)
  299.         cCode% = GetBinderyObjectName(ownerID&, ownerName$, OT_USER)
  300.         If (cCode% <> SUCCESSFUL) Then ownerName$ = "Unknown user"
  301.         OwnerLabel.Caption = ownerName$
  302.     End If
  303.     locked% = True
  304. End Sub
  305. Sub HBox_Click ()
  306.     If locked% Then
  307.         locked% = False
  308.         If (HBox.Value = 0) Then
  309.             HBox.Value = 1
  310.         Else
  311.             HBox.Value = 0
  312.         End If
  313.         locked% = True
  314.     End If
  315. End Sub
  316. Sub IBox_Click ()
  317.     If locked% Then
  318.         locked% = False
  319.         If (IBox.Value = 0) Then
  320.             IBox.Value = 1
  321.         Else
  322.             IBox.Value = 0
  323.         End If
  324.         locked% = True
  325.     End If
  326. End Sub
  327. Sub OKButton_Click ()
  328.     Unload SelectFileForm
  329.     Unload FileInfoForm
  330. End Sub
  331. Sub RABox_Click ()
  332.     If locked% Then
  333.         locked% = False
  334.         If (RABox.Value = 0) Then
  335.             RABox.Value = 1
  336.         Else
  337.             RABox.Value = 0
  338.         End If
  339.         locked% = True
  340.     End If
  341. End Sub
  342. Sub ROBox_Click ()
  343.     If locked% Then
  344.         locked% = False
  345.         If (ROBox.Value = 0) Then
  346.             ROBox.Value = 1
  347.         Else
  348.             ROBox.Value = 0
  349.         End If
  350.         locked% = True
  351.     End If
  352. End Sub
  353. Sub SBox_Click ()
  354.     If locked% Then
  355.         locked% = False
  356.         If (SBox.Value = 0) Then
  357.             SBox.Value = 1
  358.         Else
  359.             SBox.Value = 0
  360.         End If
  361.         locked% = True
  362.     End If
  363. End Sub
  364. Sub ShBox_Click ()
  365.     If locked% Then
  366.         locked% = False
  367.         If (ShBox.Value = 0) Then
  368.             ShBox.Value = 1
  369.         Else
  370.             ShBox.Value = 0
  371.         End If
  372.         locked% = True
  373.     End If
  374. End Sub
  375. Sub SubBox_Click ()
  376.     If locked% Then
  377.         locked% = False
  378.         If (SubBox.Value = 0) Then
  379.             SubBox.Value = 1
  380.         Else
  381.             SubBox.Value = 0
  382.         End If
  383.         locked% = True
  384.     End If
  385. End Sub
  386. Sub TBox_Click ()
  387.     If locked% Then
  388.         locked% = False
  389.         If (TBox.Value = 0) Then
  390.             TBox.Value = 1
  391.         Else
  392.             TBox.Value = 0
  393.         End If
  394.         locked% = True
  395.     End If
  396. End Sub
  397. Sub WABox_Click ()
  398.     If locked% Then
  399.         locked% = False
  400.         If (WABox.Value = 0) Then
  401.             WABox.Value = 1
  402.         Else
  403.             WABox.Value = 0
  404.         End If
  405.         locked% = True
  406.     End If
  407. End Sub
  408. Sub XBox_Click ()
  409.     If locked% Then
  410.         locked% = False
  411.         If (XBox.Value = 0) Then
  412.             XBox.Value = 1
  413.         Else
  414.             XBox.Value = 0
  415.         End If
  416.         locked% = True
  417.     End If
  418. End Sub
  419.