Вызов окна "Сохранить как..."

[Scuder]

Народ, хелп, плз! Поиск не работает, а у себя не могу найти..

[RayShade]

Ну так... Это... Есть commondalog control У него метод .ShowSave

[Scuder]

Ну, я API хотел.. GetSaveFileName. Но в итоге нашёл.. Какой-то там код громоздкий очень..

Наверное, действительно commondialog проще использовать..

thx.

[mefestofele]

Да лучший способ через CommonDialog
Cкрипт сырой но до ума довести просто:

Код: Выделить всё

CommonDialog1.ShowSave
CommonDialog1.FileName = "текстовые файлы.|*.txt|Все файлы|*.*"
sfilename = CommonDialog1.FileName
Open sfilename For Output As #1
stext = Text1.Text
Print #1, stext
Close
End Sub

[Александр80]

У CommonDialog1 -Open/Save As есть много интересных свойств,например: InitDir, FileName, Filter

TextBox1- это текстовое поле на форме.

Dim txt As String
Dim FNum As Integer

On Error GoTo FileError:
CommonDialog1.CancelError = True
CommonDialog1.DefaultExt = "RTF"
CommonDialog1.Filter = "file RTF|*.RTF|file TXT|*.TXT|All Files|*.*"
CommonDialog1.ShowSave

TextBox1.SaveFile CommonDialog1.FileName, rtfRTF
OpenFile = CommonDialog1.FileName
Exit Sub

FileError:
If Err.Number = cdlCancel Then Exit Sub
MsgBox "Eror..... " & CommonDialog1.FileName
OpenFile = ""

[Max!]

Проще помещаешь на форму этот самый CommonDialog жмёшь на него правой кнопкой и выбираешь закладку Properties там все настраеваешь и в кнопку вставляешь CommonDialog.showsave ! Впринципе тоже самое то что указано выше только писать меньше!