The default file extension which is applied if no extension was specified by the user.
object.DefaultExt
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISSaveFileDialog interface |
string
Show the dialog and display the default file extension (if no extension was specified by the user).
Dim aDialog
Dim aResult
set aDialog = Profile.CommonDialog.NewSaveDialog
aDialog.Caption = "Save Recent Notes"
aDialog.Filter = "*.tx||*.rtf||*.doc||*.*||"
aDialog.FileName = "MyNotes.doc"
aDialog.DefaultExt = "*.doc"
aResult = aDialog.Execute
if aResult then
Profile.MsgBox("The selected file name is """ & aDialog.FileName)
else
Profile.MsgBox("The file name was not selected")
end if