Writing agents o/p to external file and if i run the agent again it should

Question

Hi All,
i want to run a agent and that result should be displayed in external file system.and i achieved this by using writing VB script and in agents i used actions in that we have invoke server script.And i got the perfect output but what 's my scenario is when i run the agnent again it should create another file with below requirements.
The file name must contain a suffix containing the date in yyyymmdd format. In cases where the file stored more than once per day, a sequence number must also be provided within the filename.
(i.e. v1_yyyymmdd, v2_yyyymmdd, v3_yyyymmdd, v4_yyyymmdd, v5_yyyymmdd…)
And my VB script is like below
'#####=========================================================================
'## Title: Export Report
'## Rev: 1.0
'## Author: Paul McGarrick
'## Company: Total Business Intelligence / http://total-bi.com
'## Purpose:
'## 1. This script takes a file from OBIEE and saves to the file system
'## 2. Creates a reporting subdirectory if not already present
'## 3. Creates a further subdirectory with name based on current date
'## Inputs (specified in Actions tab of OBIEE Delivers Agent):
'## 1. Parameter(0) - This actual file to be exported
'## 2. Parameter(1) - The filename specified within OBIEE
'## 3. Parameter(2) - Report sub directory name specified within OBIEE
'#####=========================================================================
Dim sBasePath
sBasePath = "E:\reports\reports"
Dim sMasterPath
sMasterPath = sBasePath & "\" & Parameter(2)
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
'check whether master directory exists, if not create
Dim objMasterDir
If Not objFSO.FolderExists(sMasterPath) Then
     Set objMasterDir = objFSO.CreateFolder(sMasterPath)
End If
Set objMasterDir = Nothing
'build string to get date in yyyy-mm-dd format
Dim sDate, sDateFull
sDate = Now
sDateFull = DatePart("yyyy", sDate) & "-"
If Len(DatePart("m", sDate))=1 Then sDateFull = sDateFull & "0" End If
sDateFull = sDateFull & DatePart("m", sDate) & "-"
If Len(DatePart("d", sDate))=1 Then sDateFull = sDateFull & "0" End If
sDateFull = sDateFull & DatePart("d", sDate)
Dim sDir
sDir = sMasterPath & "\" & sDateFull
Dim objDir
If Not objFSO.FolderExists(sDir) Then
     Set objDir = objFSO.CreateFolder(sDir)
End If
Set objDir = Nothing
Dim sFileName
sFileName = sDir & "\" & Parameter(1)
Dim objFile
objFSO.CopyFile Parameter(0), sFileName, True
Set objFile = Nothing
Set objFSO = Nothing
could you please any body help me out from this....

Answer 1

I assume you are using Windows. Try to write a batch file so that that would look for the ibot name when ever its finds rename the file name as required.
This would be easiest way..
http://lmgtfy.com/?q=rename+a+file+to+current+date+using+batch+file
Edited by: Srini VEERAVALLI on Apr 8, 2013 7:23 AM
Can you updates all your posts?
Edited by: Srini VEERAVALLI on May 13, 2013 6:44 AM