|
|
|
Supreme Being
участник
Last Login: 16.04.2008 11:44
Сообщ.: 366,
Visits: 2 473
|
|
Скопировал из справки:
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
Где ошибка?
С уважением,
|
|
|
|
|
Supreme Being
участник
Last Login: 14.12.2007 16:53
Сообщ.: 100,
Visits: 1 707
|
|
| Да они там с константами что-то напутали в этом примере (имхо) )) Попробуйте 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
|
|
|
|