home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_6_93 / bonus / dmsrc / opendb.txt < prev    next >
Text File  |  1995-02-26  |  607b  |  39 lines
  1. Sub Command1_Click ()
  2.     If dir1 <> "" Then
  3.         Me.ExitCondition = "OK"
  4.         Me.Hide
  5.     Else
  6.         MsgBox "Please select a directory", 64, "Open Database"
  7.     End If
  8.         
  9. End Sub
  10.  
  11. Sub Command2_Click ()
  12.     Me.ExitCondition = "Cancel"
  13.     Me.Hide
  14. End Sub
  15.  
  16. Sub Dir1_Change ()
  17.     file1 = dir1
  18.     label3 = dir1
  19. End Sub
  20.  
  21. Sub Drive1_Change ()
  22.     dir1 = drive1
  23. End Sub
  24.  
  25. Sub File1_Click ()
  26.     file1.ListIndex = -1
  27. End Sub
  28.  
  29. Sub File1_DblClick ()
  30.     file1.ListIndex = -1
  31. End Sub
  32.  
  33. Sub Form_Load ()
  34.     dir1 = drive1
  35.     file1 = dir1
  36.     label3 = dir1
  37. End Sub
  38.  
  39.