home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD4559452000.psc / frmMain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-04-05  |  1.5 KB  |  50 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    Caption         =   "File Version"
  4.    ClientHeight    =   810
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   7245
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   810
  10.    ScaleWidth      =   7245
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.TextBox Text1 
  13.       Height          =   285
  14.       Left            =   120
  15.       TabIndex        =   0
  16.       Text            =   "Text1"
  17.       Top             =   360
  18.       Width           =   5295
  19.    End
  20.    Begin VB.CommandButton Command1 
  21.       Caption         =   "Get Info"
  22.       Default         =   -1  'True
  23.       Height          =   615
  24.       Left            =   5520
  25.       TabIndex        =   1
  26.       Top             =   120
  27.       Width           =   1455
  28.    End
  29.    Begin VB.Label Label1 
  30.       AutoSize        =   -1  'True
  31.       Caption         =   "File Path"
  32.       Height          =   195
  33.       Left            =   120
  34.       TabIndex        =   2
  35.       Top             =   120
  36.       Width           =   615
  37.    End
  38. Attribute VB_Name = "frmMain"
  39. Attribute VB_GlobalNameSpace = False
  40. Attribute VB_Creatable = False
  41. Attribute VB_PredeclaredId = True
  42. Attribute VB_Exposed = False
  43. Private Sub Command1_Click()
  44. Dim FileInformation As FILE_INFORMATION
  45.     Call GetFileInformation(Text1, FileInformation, True)
  46. End Sub
  47. Private Sub Form_Load()
  48.     Text1 = Environ("WINDIR") & "\System32\GDI32.DLL"
  49. End Sub
  50.