запись в текстбоксе в файл

[Артур Иваныч]

Здравствуйте ВСЕМ!
имеется форма, где 2 элемента: TextBox1 и Кнопка ZapButton
Нужна функция для кнопки ZapButton, которая бы создавала word или блокнот файл в определённом месте на компьютере(напр, раб стол) под именем сегодняшней даты(день.месяц.год) и записывала бы в этот файл запись в TextBox1...
причём файл, после проведённой операции должен быть закрыт и сохранён с этой записью...

[SAS888]

Вставьте в модуль формы код:

Private Sub ZapButton_Click()
    Dim myPath As String, ts
    myPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & Format(Date, "dd.mm.yyyy") & ".txt"
    Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile(myPath, 2, True)
    ts.Write TextBox1.Text: ts.Close
End Sub

И не забудьте в Tools->Reference подключить библиотеку "Microsoft Scripting Runtime".
Пример во вложении.

[EducatedFool]

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

И не забудьте в Tools->Reference подключить библиотеку "Microsoft Scripting Runtime".

Зачем? В данном случае это совсем необязательно.

[Артур Иваныч]

Большой РАХМАТ!!!

[SAS888]

В данном случае это совсем необязательно.

Согласен... Позднее связывание.

[Артур Иваныч]

а как указать путь к папке, куда надо сохранять?
если не хочу на раб стол,например,а в каакую-нидь конкретную папку на любом диске винчестера?

[SAS888]

Ну, так измените путь. Например:

myPath = "D:\Temp\" & Format(Date, "dd.mm.yyyy") & ".txt"

где "D:\Temp\" - требуемая папка.