home *** CD-ROM | disk | FTP | other *** search
/ Software Recommendations - 1998 Season 1 / DNBCD4.iso / develop / lib / addzip / ADDZIP.ZIP / VB / QUICKZIP / CMDIALOG.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-08-15  |  499 b   |  22 lines
  1. Global g_cFile As String
  2. Global g_iNew As Integer
  3.  
  4. Function NewFile ()
  5.     g_cFile = ""
  6.     g_iNew = True
  7.     Load frmCmDialog
  8.     frmCmDialog.Caption = "Enter a name for a .ZIP archive"
  9.     frmCmDialog.Show 1
  10.     If (g_cFile <> "") Then NewFile = g_cFile
  11. End Function
  12.  
  13. Function OpenFile ()
  14.     g_cFile = ""
  15.     g_iNew = False
  16.     Load frmCmDialog
  17.     frmCmDialog.Caption = "Open .ZIP archive"
  18.     frmCmDialog.Show 1
  19.     If (g_cFile <> "") Then OpenFile = g_cFile
  20. End Function
  21.  
  22.