home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / vbgui10 / form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-01-26  |  1.2 KB  |  49 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "Drive And File Information"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   1980
  6.    ClientTop       =   2670
  7.    ClientWidth     =   5640
  8.    LinkTopic       =   "Form2"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   5640
  11.    Begin VB.FileListBox File1 
  12.       Height          =   2820
  13.       Left            =   2640
  14.       TabIndex        =   2
  15.       Top             =   120
  16.       Width           =   2415
  17.    End
  18.    Begin VB.DirListBox Dir1 
  19.       Height          =   2340
  20.       Left            =   120
  21.       TabIndex        =   1
  22.       Top             =   600
  23.       Width           =   2295
  24.    End
  25.    Begin VB.DriveListBox Drive1 
  26.       Height          =   315
  27.       Left            =   120
  28.       TabIndex        =   0
  29.       Top             =   120
  30.       Width           =   2295
  31.    End
  32. Attribute VB_Name = "Form2"
  33. Attribute VB_GlobalNameSpace = False
  34. Attribute VB_Creatable = False
  35. Attribute VB_PredeclaredId = True
  36. Attribute VB_Exposed = False
  37. Private Sub Dir1_Change()
  38. File1.Path = Dir1.Path
  39. End Sub
  40. Private Sub Drive1_Change()
  41. ' drive1_Change
  42. On Error GoTo drv1:
  43. Dir1.Path = Drive1.Drive
  44. Exit Sub
  45. drv1:
  46. Drive1.Drive = Dir1.Path
  47. Exit Sub
  48. End Sub
  49.