home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
code
/
network
/
ogmess
/
setup.txt
< prev
next >
Wrap
Text File
|
1995-02-27
|
2KB
|
93 lines
Sub cancel_Click ()
Unload setup
If maildir = "" Then
MsgBox ("Setup Needs to Be Performed before OGMAIL Can Be Run")
End
End If
End Sub
Sub ok_btn_Click ()
On Error Resume Next
'
' First we verify that a user name is specified
'
If usename.text = "" Then
ans% = MsgBox("No User Name Specified" + Chr$(10) + "Press Ok to Edit", 17, "OGMAIL - Setup Error")
If ans% = 1 Then
usename.SetFocus
Else
cancel_Click
End If
Exit Sub
End If
'
' Now we will check to see if the postbox path is specified
'
If pbox.text = "" Then
ans% = MsgBox("No Post Box Directory Specified" + Chr$(10) + "Press Ok to Edit", 17, "OGMAIL - Setup Error")
If ans% = 1 Then
pbox.SetFocus
Else
cancel_Click
End If
Exit Sub
Else
ChDir pbox.text
If Err = 76 Then
ans% = MsgBox("Post Box Directory Specified Does Not Exist" + Chr$(10) + "Press Ok to Create", 17, "OGMAIL - Setup Error")
If ans% = 1 Then
MkDir pbox.text
If Err > 0 Then
ans% = MsgBox("Cannot Create Post Box Directory Specified " + Chr$(10) + "Press Ok to Edit Path", 17, "OGMAIL - Setup Error")
If ans% = 1 Then
pbox.SetFocus
Exit Sub
Else
cancel_Click
Exit Sub
End If
End If
Else
cancel_Click
Exit Sub
End If
End If
End If
'
' Now we will save the default setup parameters to the
' ogmail.ini file
'
username = usename.text
maildir = pbox.text
If (Mid$(maildir, Len(maildir), 1)) <> "\" Then
maildir = maildir + "\"
End If
Open namefile For Output As #1
Write #1, username
Write #1, maildir
Close #1
'
' Now we will add the current users name to the
' users file in the post box directory
'
Open maildir + "users" For Append As #7
Write #7, username
Close #7
setupflag = True
Unload setup
End Sub