Category : BASIC Source Code
Archive   : VINST8.ZIP
Filename : CREATEDI.FRM

VERSION 2.00
Begin Form CreateDir
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Create Directory?"
ClipControls = 0 'False
ControlBox = 0 'False
Height = 2400
Left = 120
LinkTopic = " "
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2004
ScaleWidth = 6336
Top = 1200
Width = 6408
Begin CommandButton CmdNo
Caption = "No"
Height = 405
Left = 3240
TabIndex = 1
Top = 1290
Width = 945
End
Begin CommandButton CmdYes
Caption = "Yes"
Height = 405
Left = 1740
TabIndex = 0
Top = 1290
Width = 945
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "The Directory, ..., does not exist. Do you want to create it?"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.6
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 495
Left = 720
TabIndex = 2
Top = 420
Width = 5175
End
End
DefInt A-Z

Option Explicit

Sub CmdNo_Click ()
gCancelCommand% = True
Unload CreateDir
End Sub

Sub CmdYes_Click ()
gCancelCommand% = False
Unload CreateDir
End Sub

Sub Form_Load ()
BackColor = RGB(BKGNDGRAY, BKGNDGRAY, BKGNDGRAY)
gFrameWidth% = DEFAULTWIDTH

' -----------------------------------------------------
' Set fonts based on Windows version
' -----------------------------------------------------
On Error Resume Next
CreateDir.FontName = gFontName$
Me.CmdNo.FontName = gFontName$
Me.CmdYes.FontName = gFontName$
Me.Label1.FontName = gFontName$
On Error GoTo 0

End Sub

Sub Form_Paint ()
Me.Label1.Refresh
Me.CmdYes.Refresh
Me.CmdNo.Refresh
End Sub