ISDBApplication::CommonDialog

CoClass SDBApplication, Interface ISDBApplication

Property Get CommonDialog As ISDBCommonDialog

Property description

Returns SDBCommonDialog object that can be used then to show load/save file dialogs.

Example code

' Create common dialog and ask where to save the file
Dim dlg
Set dlg = SDB.CommonDialog
dlg.DefaultExt='mp3'
dlg.Filter=filter
dlg.Flags=cdlOFNOverwritePrompt + cdlOFNHideReadOnly
dlg.InitDir = iniF.StringValue( "Scripts", iniDirValue)
dlg.ShowSave

if Not dlg.Ok Then
  Exit Sub   ' if cancel was pressed, exit
End If

' Get the selected filename
fullfile = dlg.FileName