Диалоговое окно при создании файла

[tae1980]

Нужно создать текстовый файл и поместить туда информацию. На форему нашел такой кусок кода:

Var f:System.Text; //класс текстового файла
begin
 AssignFile(f,'<путь и имя файла н.п. С:\temp\1.txt>'); //регистрация файла
 Rewrite(f); //создание файла, если он там есть, то перезаписываеться (старый удаляеться, новый пустой появляеться)
 //Reset(f); //просто открываем файл для редактирования
 WriteLn(f,'My first file!!!'); //записываем строку в файл с переводом курсора на новую строку
 Write(f,'My first file!!!'); //записываем строку в файл без перевода курсора на новую строку
 CloseFile(f); //закрываем файл
end;

Здесь все понятно и несложно.
Вопрос: Как перед созданием файла открывать диалоговое окно типа "Сохранить как...", для указания пути и имени файла?

[tae1980]

Сразу еще: как открывать окно "Открыть" при загрузке файла?

[EducatedFool]

Function GetNewFileName() As String
    GetNewFileName = "": InitialFileName = "c:\": NewFileExt = ".txt"
    res = Application.GetSaveAsFilename(InitialFileName, _
                                        "Мои текстовые файлы (*" & NewFileExt & "),", , _
                                        "Введите имя файла для сохранения файла", "Сохранить текстовый файл")
    If VarType(res) = vbBoolean Then GetNewFileName = "" else GetNewFileName = res
End Function

Sub test()
    newFilename = GetNewFileName: If newFilename = "" Then Exit Sub
    Open newFilename For Output As #1
    Print #1, "текст"
    Close #1
End Sub

Запусти макрос test

как открывать окно "Открыть" при загрузке файла?

Не понял вопроса.

[tae1980]

Сообщение от EducatedFool

Не понял вопроса.

Нужно загрузить информацию из текстового файла. Вот для того что бы пользователь мог указать из какого именно файла нужно читать информацию хотелось бы открывать окно, которой появляется при выполнение команды "Файл/Открыть файл..." из главного меню.

[tae1980]

Сообщение от EducatedFool

Function GetNewFileName() As String
Sub test()
End Sub

Запусти макрос test
Не понял вопроса.

Спасибо!!! Разобрался по аналогии и с загрузкой.

Еще вопрос: в окнах которые открываются присутствую кнопки "на уровень выше", "создать паку", "удалить" и др.. Но выбрать их нельзя. :(
Это лечиться?

[tae1980]

Сообщение от tae1980

Спасибо!!! Разобрался по аналогии и с загрузкой.

Еще вопрос: в окнах которые открываются присутствую кнопки "на уровень выше", "создать паку", "удалить" и др.. Но выбрать их нельзя.
Это лечиться?

Что-тот глюки.... Только что не выбирались, а сейчас отлично выбираются.... Не иначе Барабашка....

Еще раз ОГРОМНОЕ спасибо!