home *** CD-ROM | disk | FTP | other *** search
- REM Common File Open/Save Example
- REM
- REM This script illustrates using the common file
- REM dialog box for the current operating system.
-
- REM Initialize the dialog box
- Dim commonDlg As LWPCommonDialog
- Set commonDlg = Bind("")
-
- REM Fill in defaults
- commonDlg.Filter = "Text|*.*|Ami Pro|*.sam" ' List of filters
- commonDlg.Text = "Common File Open Dialog" ' Caption
- commonDlg.FilterIndex = 1 ' Filter to show initially
- commonDlg.Type = 2
- commonDlg.InitDir = "d:\" ' Starting directory
-
- commonDlg.Show(0)
-
- Print commonDlg.FileName
-