>>>Подписаться на обновления блога!<<<

2 комментария к записи “Урок 11 по VBScript: Функции vbs для работы с датой и временем”

  1. привет says:

    здравсвтуйте, подскажите пожалуйста как сохранить полученную дату в текстовый документ?
     
    В данных примерах просто выходит окно, а хотелось бы, чтобы информация о дате сохранялась в ткстовый файл
     

    • Владимир Баталий says:

      Здравствуйте, Все предельно просто:

       

      Option Explicit
       
      dim fso, c_file, t_file, WshShell, data, data_file
       
      set WshShell = CreateObject("Wscript.Shell")
      set fso=CreateObject ("Scripting.FileSystemObject")
       
      '------------------------------------------------------------------------------------
      ' Считываем дату
      '------------------------------------------------------------------------------------
      dim date_1, date_2
      date_1 = date
      date_2 = now
      '------------------------------------------------------------------------------------                                                                                                                                                      

      '------------------------------------------------------------------------------------
      ' создаем в текущей папке текстовый документ
      ' записываем данные
      '------------------------------------------------------------------------------------

      set t_file=fso.CreateTextFile("my_file.txt", true)
      t_file.WriteLine(date_1 & vbCrLf & date_2)
      t_file.Close ()
       
      '------------------------------------------------------------------------------------
      ' освобождаем ссылку на объект
      set t_file = nothing
       
      '------------------------------------------------------------------------------------
      ' открываем созданный документ и считываем данные
      '------------------------------------------------------------------------------------

      set t_file=fso.OpenTextFile(WshShell.CurrentDirectory & "\my_file.txt", 1, false)
      data_file = t_file.ReadAll
      t_file.Close()
       
      '------------------------------------------------------------------------------------
      ' выводим содержимое
      WScript.Echo data_file

       

      Читайте:

      Объект FileSystemObject метод OpenTextFile - Как открыть текстовый файл

      Объект FileSystemObject метод CreateTextFile - Как создать текстовый файл