If yes – then this can be done quickly by using a Visual Basic Script and “Scripting.FileSystemObject”.

Lets take a closer look.

First you have to define your source file and destination file.

FileCount = 0
DestFileName = “C:\destination”&FileCount&”.txt”

Set objFileSystemObject = CreateObject(“Scripting.FileSystemObject”)
Set objSource = objFileSystemObject.OpenTextFile(“C:\sourcefile.txt”, ForReading)
Set objDestination = objFileSystemObject.CreateTextFile(DestFileName, True)

Next you have to run through the Source File and write it to destinations files.

‘File Separator Mark
NewFileContent = “–start”

‘Run through the file
Do Until objSource.AtEndOfStream
……‘Read a line
……strLine = objSource.ReadLine

……‘Check if a new file should be created
……If InStr(1, strLine, NewFileContent) > 0 Then
………..‘Close Previous File
………..objDestination.Close
………..Set objDestination = Nothing

………..‘Create New FileName
………..FileCount = FileCount + 1
………..DestFileName = “C:\destination”&FileCount&”.txt”

………..‘Create and Open New File
………..Set objDestination = objFileSystemObject.CreateTextFile(DestFileName, True)
……End If

……‘Write to the file
……objDestination.WriteLine (strLine)
Loop

And the finally end by closing the open files

objSource.Close
objDestination.Close

Set objSource = Nothing
Set objDestination = Nothing
Set objFileSystemObject = Nothing

In the above example a file looking like this

–start
my first file
–start
my second file
–start
my third file

would be split in to the files:

destination1.txt containing:
–start
my first file

destination2.txt containing:
–start
my second file

destination3.txt containing:
–start
my third file

This is an example on starting the Notepad and afterwards, as the first thing to do writing the word Hallo:

set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.Run “notepad”

WScript.Sleep 100

WshShell.AppActivate “Notesblok”
WshShell.SendKeys “Hallo”

Set WshShell = nothing

Lets take a closer look on what the script actual do. The first step is to initiate the object:

set WshShell = WScript.CreateObject(“WScript.Shell”)

when the object is initiate, the Notepad application is being startet:

WshShell.Run “notepad”

To be sure that notepad is up and running, there has to be a kind of wait state before continuing. This is done be telling the script to Sleep x milliseconds:

WScript.Sleep 100

Now the Notepad application has to be activated:

WshShell.AppActivate “Notesblok”

Once Notepad has been activated, it is ready to receive keys. Which now can be send with the sendkeys command:

WshShell.SendKeys “Hallo”

Finally you have to clean up after you – which means, to stop / close the WshShell you have to set it to nothing.

Set WshShell = nothing

Thats it – now you have written the Visual Basic Script – and all you have to do is save it as a vbs file, or incorporate it into a web page using th vbscript tags.

First the script – it could look something like this:

FindDate ----------------------------------------------------
for /f "tokens=1-4 delims=/.- " %%A in ('date /t') do (
    set DD=%%A&set MM=%%B&set YYYY=%%C&set Junk=%%D&goto End)
 
:Parse --------------------------------------------------------------
echo Date: YYYY=%YYYY% MM=%MM% DD=%DD% JUNK=%Junk%
 
:End ----------------------------------------------------------------
move c:\log\*.log c:\log\*.bck
c:\tools\zip.exe -m c:\log\Log%YYYY%-%MM%-%DD%.zip c:\log\*.bck

Lets take a closer look.

First we get today’s date by getting date and splitting into the peaces YYYY, MM, DD, JUNK, where JUNK is seconds, milliseconds and so on.

for /f "tokens=1-4 delims=/.- " %%A in ('date /t') do (
set DD=%%A&set MM=%%B&set YYYY=%%C&set Junk=%%D&goto End)

Notice – the setting of DD, MM and so on, differs from system to system. The above line works for a Windows 2003, where as the following line would work for a Windows 2000:

set Junk=%%A&set DD=%%B&set MM=%%C&set YYYY=%%D&goto End)

Next we moves the files, this is to make sure that no application is writing to it.

move c:\log\*.log c:\log\*.bck

and finaly the files are being zipped, using a dos version of zip.

c:\tools\zip.exe -m c:\log\backup\Log%YYYY%-%MM%-%DD%.zip c:\log\*.bck

Now you have build the script, and can save into a file called backup.cmd (the extension could also be bat).

The next thing to do, is getting the script scheduled. In this way we don’t have to execute it manually every day. To do this we are using the AT command.

In a DOS prompt write:

AT 04:00 /every:M,T,W,TH,F,S,SU c:\tools\backup.cmd

Which means, that the script backup.cmd will be execute every day at 04:00. If you want to stop the scheduled job, simply perform an AT without parameters to get the ID and then afterwards make a AT ID /DELETE.