Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBScript/JScript/WSH/WMI/HTA

Войти
Регистрация
Восстановить пароль
 
gdm82
0 / 0 / 0
Регистрация: 18.02.2014
Сообщений: 43
#1

Ведение лог-файла из обнуляемого лога при закрытии проги - VBScript/JScript

28.02.2014, 13:12. Просмотров 544. Ответов 1
Метки нет (Все метки)

Собственно есть проблема, может кто подскажет как решить.
Есть программа и у нее ведется лог-файл, к примеру temp.log, при закрытии этой проги данный лог-файл обнуляется.
Надо как-то данный лог сейвить в другое место и дописывать автоматом, что бы он не сбрасывался, вот только не пойму как. Может кто сталкивался или знает решение?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.02.2014, 13:12
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Ведение лог-файла из обнуляемого лога при закрытии проги (VBScript/JScript):

Ведение лога ошибок, отправка лога на e-mail - VBScript/JScript
подскажите как дописать кусочик. есть vbs фаил,есть запрос , запрос берёт инфу и отправляет на email отчёт надо сделать два лог файла ...

Поиск файлов JPG, переименование и ведение лога размеров изображения - VBScript/JScript
Друзья, прошу помощи! Сам в vbs не силен, а очень нужен для работы скриптик vbs для обработки файлов по следующему алгоритму. 1....

Лог, содержимое папки, очистка лога > N мегабайт - VBScript/JScript
есть скрипт который проверяет наличие файлов и папочек в заданной ГЛАВНОй папке нужен лог: скрипт смотрит с определенной...

При изменениях в DGW нужно ведение лог-файла - C#
надо чтобы вёлся лог файл.На форме datagridview изменяющийся каждые 5 сек.надо чтобы при изменении записывалось в лог файл.Я пытаюсь так.но...

Как реализовать ведение лог файла? - VBA
камрады! как можно реализовать такую фичу как скажем есть файлик один которым пользуются очень много народу. и как бы хотелось вести лог...

Ведение лог-файла и ошибка "Запись в закрытый TextWriter невозможна" - Visual Basic .NET
Здравствуйте. Возник вопрос по ведению лога. Имеется несколько форм, действия в которых (нажатие кнопки) нужно логировать. ...

1
Dragokas
Эксперт WindowsАвтор FAQ
16022 / 6840 / 824
Регистрация: 25.12.2011
Сообщений: 10,601
Записей в блоге: 16
01.03.2014, 00:55 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Измените строку 4 с sFullName на полный путь к логу.
Измените строку 5 с sSavedLog на полный путь к файлу, куда сохранять последний непустой лог.
Сохраните код в файл с расширением VBS
Запустите файл.
Запустите программу, формирующую лог.
Скрипт VBS будет завершен, как только после очередного изменения лога его размер достигнет 0 байт.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Explicit
Dim sComputer, sFullName, sDrive, sPath, relPath, sExt, sBaseName, oFSO, oWMI, oEvents, oLastEvent, sSavedLog, oFile
 
sFullName = "h:\_C++\1.txt"
sSavedLog = "h:\_C++\Saved.txt"
sComputer = "."
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
sDrive    = oFSO.GetDriveName(sFullName)
sDrive    = Left(sDrive, 1)
sPath     = oFSO.GetParentFolderName(sFullName)
relPath   = "\\" & Mid(sPath, 4) & "\\"
sExt      = oFSO.GetExtensionName(sFullName)
sBaseName = oFSO.GetBaseName(sFullName)
 
Set oFile = oFSO.GetFile(sFullName)
 
Set oWMI = GetObject("winmgmts:\\" & sComputer & "\root\cimv2")
Set oEvents = oWMI.ExecNotificationQuery _
  ("SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE " _
  & "TargetInstance ISA 'CIM_DataFile' AND " _
  & "TargetInstance.Drive='"       & sDrive & ":' AND " _
  & "TargetInstance.Path = '"      & relPath & "' AND " _
  & "TargetInstance.FileName = '"  & sBaseName & "' AND " _
  & "TargetInstance.Extension = '" & sExt & "' ")
 
msgbox "Начинается мониторинг... Нажмите ОК."
 
Do
  Set oLastEvent = oEvents.NextEvent()
  With oLastEvent
    if .Path_.Class = "__InstanceModificationEvent" then
        If .TargetInstance.LastModified <> .PreviousInstance.LastModified Then
            if oFile.Size <> 0 then
                oFile.Copy sSavedLog, true
            else
                Exit Do
            end if
        End If
    end if
  End With
Loop
 
Set oWMI = Nothing: Set oEvents = Nothing: Set oLastEvent = Nothing: Set oFile = nothing
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.03.2014, 00:55
Привет! Вот еще темы с ответами:

Краш при закрытии проги - C++ Qt
Доброго времени суток. Есть переменная, объявленная в классе: QStringList *result. Далее, из конструктора MainWindow вызывается метод...

Неправильное ведение лога - Delphi
Здравствуйте, у меня такая проблема, пытаюсь вести лог, но текстовый файл сохраняется не в той кодировке, как это исправить? Вот код : ...

Ведение лога ошибок - C#
Есть программа, в основном работает стабильно, но иногда зависает безвозвратно. Причем при запуске exe файла может зависнуть, а при...

Ведение лога bat - CMD/BAT
Вообщем существует огромное количество директорий с разными структурированными путями к директориям, программа BAT опрашивает эти пути...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru