среда, 6 марта 2013 г.

Создание, открытие, запись в файл


'Скрипт пишет в файл, если файла нет, то метод OpenTextFile создаст его
Sub CreateFile()
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("C:\Temp\writefile.txt",8) '1-чтение 2-для записи 8 - дозапись
  ' Записать строку с переводом на новую строку.
  f.WriteLine("Тестирование qwerty")
  ' Записать три пустых строки в файл.    
  'tf.WriteBlankLines(3)
  ' Записать строку
  f.Write ("Это тест")
  f.Close
End Sub
CreateFile()


'Скрипт создания и записи данных в файл
Sub CreateFile()
  Dim fso, tf
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set tf = fso.CreateTextFile("C:\Temp\writefile.txt", True)
  ' Записать строку с переводом на новую строку.
  tf.WriteLine("Тестирование 1, 2, 3.")
  ' Записать три пустых строки в файл.    
  tf.WriteBlankLines(3)
  ' Записать строку
  tf.Write ("Это тест")
  tf.Close
End Sub
CreateFile()