Показать сообщение отдельно
  #5 (permalink)  
Старый 31.01.2010, 23:19
Профессор
Отправить личное сообщение для SunYang Посмотреть профиль Найти все сообщения от SunYang
 
Регистрация: 22.02.2008
Сообщений: 189

чета я проверил на IE вот такие скрипты:
Этот так и не создал файл:
Sub CreateFile()
  Dim fso, tf
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set tf = fso.CreateTextFile("c:\testfile.txt", True)
  //Вставка строки с переносом на новую.
  tf.WriteLine("Testing 1, 2, 3.") 
  //Вставка 3 путых строк.
  tf.WriteBlankLines(3)
  //Вставка новой строки, без переноса.
  tf.Write ("This is a test.") 
  //Закрытие файла.
  tf.Close
End Sub


А этот так и не запсал в файл:

var filepath = "C:\\Мои дкументы\\testfile.txt"
var fso=new ActiveXObject("Scripting.FileSystemObject");
var file = fso.OpenTextFile(filepath)
x = file.Read(3)
file.Close()

document.write(x)
Ответить с цитированием