home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
is_file
/
isfile.frm
< prev
next >
Wrap
Text File
|
1993-08-14
|
3KB
|
88 lines
VERSION 2.00
Begin Form Frm_Main
BackColor = &H00808080&
BorderStyle = 3 'Fixed Double
Caption = """Does This File Exist?"" Demo Program"
ClientHeight = 2205
ClientLeft = 1095
ClientTop = 1485
ClientWidth = 5490
Height = 2610
Icon = ISFILE.FRX:0000
Left = 1035
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2205
ScaleWidth = 5490
Top = 1140
Width = 5610
Begin CommandButton Cmd_Check
Caption = "Does this File Exist?"
Default = -1 'True
Height = 435
Left = 120
TabIndex = 3
Top = 600
Width = 5235
End
Begin CommandButton Cmd_Exit
Cancel = -1 'True
Caption = "E&xit Demo Program"
Height = 435
Left = 120
TabIndex = 2
Top = 1620
Width = 5235
End
Begin TextBox Txt_Entry
BackColor = &H00C0C0C0&
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 375
Left = 120
MaxLength = 127
TabIndex = 0
Top = 120
Width = 5235
End
Begin Label Lbl_IsFile
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 375
Left = 120
TabIndex = 1
Top = 1140
Width = 5235
End
End
Option Explicit
Sub Cmd_Check_Click ()
Dim CheckFile As String
CheckFile = Trim$(txt_Entry.Text)
If IsFile(CheckFile) = True Then
Lbl_IsFile.Caption = CheckFile & " exists."
Else
Lbl_IsFile.Caption = CheckFile & " does not exist."
End If
End Sub
Sub Cmd_Exit_Click ()
Unload Me
End
End Sub