VB6, Visual Basic 6, Создать текстовый файл, Создать файл, Записать в текстовый файл, Запись в текстовый файл
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending, TristateFalse)
f.Write "Hello world!"
f.Close
Dim fso As New FileSystemObject
Dim fil As File
Set fil = fso.CreateTextFile("c:\testfile.txt", True)
fil.Close
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending, TristateFalse)
f.Write "Hello world!"
f.Close
Dim fso As New FileSystemObject
Dim fil As File
Set fil = fso.CreateTextFile("c:\testfile.txt", True)
fil.Close
