code are here,
Expand|Select|Wrap|Line Numbers
- cdlfiles.filter="files(*.srt)\*.ami"
- cdlfiles.DefaultExt="str"
- cdlfiles.dialogTitle="save str notepad file"
- cdlfiles.DialogTitel=cdlOFNOverwritePrompt + cdlOFNPathmustexist
- on Error GoTo e
- cdlfiles.showsave
- Open cdlfiles/FileName for Output As #1
- Print#1,Text1.Text
- close 1
- Exit Sub
- e:
- Resume Exitline
- Exitline:
- Exitsub
- end sub
please give me open code using microsoft common dialog control.6