home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / is_file / isfile.frm < prev    next >
Text File  |  1993-08-14  |  3KB  |  88 lines
  1. VERSION 2.00
  2. Begin Form Frm_Main 
  3.    BackColor       =   &H00808080&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   """Does This File Exist?"" Demo Program"
  6.    ClientHeight    =   2205
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   5490
  10.    Height          =   2610
  11.    Icon            =   ISFILE.FRX:0000
  12.    Left            =   1035
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2205
  17.    ScaleWidth      =   5490
  18.    Top             =   1140
  19.    Width           =   5610
  20.    Begin CommandButton Cmd_Check 
  21.       Caption         =   "Does this File Exist?"
  22.       Default         =   -1  'True
  23.       Height          =   435
  24.       Left            =   120
  25.       TabIndex        =   3
  26.       Top             =   600
  27.       Width           =   5235
  28.    End
  29.    Begin CommandButton Cmd_Exit 
  30.       Cancel          =   -1  'True
  31.       Caption         =   "E&xit Demo Program"
  32.       Height          =   435
  33.       Left            =   120
  34.       TabIndex        =   2
  35.       Top             =   1620
  36.       Width           =   5235
  37.    End
  38.    Begin TextBox Txt_Entry 
  39.       BackColor       =   &H00C0C0C0&
  40.       FontBold        =   -1  'True
  41.       FontItalic      =   0   'False
  42.       FontName        =   "MS Sans Serif"
  43.       FontSize        =   9.75
  44.       FontStrikethru  =   0   'False
  45.       FontUnderline   =   0   'False
  46.       ForeColor       =   &H00000000&
  47.       Height          =   375
  48.       Left            =   120
  49.       MaxLength       =   127
  50.       TabIndex        =   0
  51.       Top             =   120
  52.       Width           =   5235
  53.    End
  54.    Begin Label Lbl_IsFile 
  55.       BackColor       =   &H00C0C0C0&
  56.       BorderStyle     =   1  'Fixed Single
  57.       FontBold        =   -1  'True
  58.       FontItalic      =   0   'False
  59.       FontName        =   "MS Sans Serif"
  60.       FontSize        =   9.75
  61.       FontStrikethru  =   0   'False
  62.       FontUnderline   =   0   'False
  63.       ForeColor       =   &H00000000&
  64.       Height          =   375
  65.       Left            =   120
  66.       TabIndex        =   1
  67.       Top             =   1140
  68.       Width           =   5235
  69.    End
  70. End
  71. Option Explicit
  72.  
  73. Sub Cmd_Check_Click ()
  74.  Dim CheckFile As String
  75.  CheckFile = Trim$(txt_Entry.Text)
  76.  If IsFile(CheckFile) = True Then
  77.   Lbl_IsFile.Caption = CheckFile & " exists."
  78.  Else
  79.   Lbl_IsFile.Caption = CheckFile & " does not exist."
  80.  End If
  81. End Sub
  82.  
  83. Sub Cmd_Exit_Click ()
  84.  Unload Me
  85.  End
  86. End Sub
  87.  
  88.