RE: Почему не работает метод fs.OpenTextFile

Pavel55 — Fri, 10 Aug 2007 22:50:15 GMT

Да они там с константами что-то напутали в этом примере (имхо) ))

Попробуйте

[code]Sub OpenTextFileTest()
'Необходимо подключить библиотеку Microsoft Scripting Runtime в Tools - References...
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(Filename:="C:\testfile.txt", IOMode:=ForAppending, Create:=True, Format:=TristateFalse)
'коротко
'Set f = fs.OpenTextFile("C:\testfile.txt", 8, True, 0)
f.Write "Hello world!"
f.Close
End Sub[/code]

Почему не работает метод fs.OpenTextFile

babken76 — Fri, 10 Aug 2007 18:18:22 GMT

Скопировал из справки:
[code]
Sub OpenTextFileTest
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,TristateFalse)
f.Write "Hello world!"
f.Close
End Sub
[/code]

Где ошибка?

С уважением,

Релиб / Программирование / VBA / Почему не работает метод fs.OpenTextFile / Latest Posts

RE: Почему не работает метод fs.OpenTextFile

Почему не работает метод fs.OpenTextFile