Bardzo często analizując logi systemowe, logi aplikacyjne potrzebujemy funkcji w skrypcie który zachowuje potrzebne nam dane w pliku ze znacznikiem czasu w nazwie plus w treści, szczególnie kiedy budujemy czujniki do service delivery na którym opieramy monitoring naszej kochanej aplikacji :)
pomoże nam tu ten fragment kodu
dim FileSys
DirName = "C:\service_delivery\monitoring"
Set FileSys = CreateObject("Scripting.FileSystemObject")
'if the C:\service_delivery\monitoring directory does not exist, create it
If Not FileSys.FolderExists(DirName) Then
Set CreatedDir = FileSys.CreateFolder(DirName)
End If
Set FileRetriever = FileSys.GetFolder(DirName)
Set FileNames = FileRetriever.Files
For Each F in FileNames
Dim FileContents()
i = 0
Do Until F.AtEndOfStream
Redim Preserve FileContents(i)
FileContents(i) = F.ReadLine
i = i + 1
Loop
F.Close
......aby zobaczyć cały artykuł zaloguj się lub zarejestruj.....
Share Link: 
