3rd Rock from ActiveWorlds - Chat Archive Tool

Chat Archive Tool

' Script to copy chat.txt to chatyyyymmdd.txt date last modified.
' Deletes source file after copy.
' Rename this file to .vbs extension.
' Backup your log file before your 1st attempt [ctrl+c,ctrl+v]
' Exit ActiveWorlds before executing script.
' Edit the path and filename in this file to match your log file.
' double click to execute.
' to open in text editor, right click + edit.
' you might be able to assign it to a scheduled task.
' if not, just create a desktop shortcut and assign it a keyboard shortcut.
' I make no guarantees this will work. At the worst it will delete your chat log.
' SO MAKE AN INITIAL BACKUP!
' Only use this once per calendar day.

Option Explicit

DIM oFs
DIM oPath
DIM oSrcFile
DIM oShell
DIM oDate
DIM oYear
DIM oMonth
DIM oDay

Set oShell = CreateObject("WScript.Shell")
Set oFS = CreateObject("Scripting.FileSystemObject")
oPath = "D:\My Documents\AW\logs\"
Set oSrcFile = oFs.GetFile(oPath & "chat.txt")

oDate = oSrcFile.DateLastModified

oYear = Year(oDate)
oMonth = Month(oDate)
oDay = Day(oDate)

if oMonth<10 then
   oMonth = "0" & oMonth
end if
if oDay<10 then
   oDay = "0" & oDay
end if

oSrcFile.Copy(oPath & "chat" & oYear & oMonth & oDay & ".txt")
oSrcFile.Delete

Encounters

Top