home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98B.iso / Lotus / SPANISH / LOTUS027.DSK / COMMDLG.TPL < prev    next >
Text File  |  1995-08-24  |  576b  |  20 lines
  1.     REM Common File Open/Save Example
  2.     REM 
  3.     REM This script illustrates using the common file
  4.     REM dialog box for the current operating system.
  5.     
  6.     REM Initialize the dialog box    
  7.     Dim commonDlg As LWPCommonDialog
  8.     Set commonDlg = Bind("")
  9.     
  10.     REM Fill in defaults
  11.     commonDlg.Filter = "Text|*.*|Ami Pro|*.sam"        ' List of filters
  12.     commonDlg.Text = "Abrir archivo com·n"        ' Caption
  13.     commonDlg.FilterIndex = 1                        ' Filter to show initially
  14.     commonDlg.Type = 2
  15.     commonDlg.InitDir = "d:\"                        ' Starting directory
  16.     
  17.     commonDlg.Show(0)
  18.     
  19.     Print commonDlg.FileName
  20.