Сохранить! Срочно!

[Max!]

Я на форме разместил кнопку и текстбокс , и при нажатий на кнопку надо чтобы открылось окно где можно выбрать куда сохронить и дать имя фаилу! Можно-ли так сделать???

[Максим]

Конечно можно!
Для этого в компонетах (Project-Components) выбери Microsoft Common Dialog Control и вставь его в форму

[Max!]

Харашо а код какой?

[Powersoft]

Помещаешь этот элемент, и дальше работаешь:

пусть имя элемента - asd

asd.dialogtitle = "ffff"
asd.showopen

[Max!]

Нет я не это имел ввиду я хочу что бы сам пользователь мог указать путь куда сохронить имя и расширение примерно как в виндах когда выбираешь Сохранить как!

[Powersoft]

ну тогда asd.showsave

[Max!]

Что то не выходит , а что нужно ставить вместо "fff" и какои код для кнопки?

[stud]

Вот так :

Private Sub cmd1_Click()
cds1.ShowSave
txt1.Text = cds1.FileName
End Sub

cds1-имя компонента common dialog

[Max!]

А в компоненте common dialog надо писать :
cds1.dialogtitle = "ffff"
cds1.showsave

Но у меня компилятор ошибку выдаёт!

[Powersoft]

вот смотри

[Max!]

Всё работает спасибо!

[Max!]

Ещё один вопрос . а если в папке уже имеится фаил с именем X.DAT а пользователь хочет сохранить под этим именем как сделать что бы прога спрашивала Заменить фаил или нет если да то прога заменяет если нет то прога оставляет окно сохранения и обводит имя фаила???
HELP!

[Firestorm]

вот тут быстро кое-чё накатал...

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

dim vopros as string 'для вопроса

if dir$("путь к файлу") <> "" then 'проверка существования файла...

'если существует
vopros = msgbox("Заменить файл?", vbYesNo +vbQuestion, "Замена файла...")
if vopros = vbYes then kill("путь к файлу, для удаления") 'если ответили Да

'тут можно писать код сохранения... для сохранения можно написать и отдельную процедуру, например как savefile
'далее можно написать процедуру сохранения, дабы не писать много раз один и тот же код...
SaveFile 'ссылаемся на процедуру сохранения

else: 'и этот else для того, если файл не существует...
SaveFile 'ссылаемся на процедуру сохранения
end if

private sub SaveFile()
'типа тут код сохранения...

end sub