PDA

View Full Version : chage the date in the script


vblearner
03-03-2006, 12:55 AM
hi anybody knw how to change a date in a file.
here the code in the avsauto file

Public Sub Main()
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\GAR TAC MC Table Sept 2001")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Historical\Designer\GAR TAC MC Table Sept 2001 was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("AVSERR.cvsLog")
Log.AutoLogWrite "The report Historical\Designer\GAR TAC MC Table Sept 2001 was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.Window.Top = 900
Rep.Window.Left = 11715
Rep.Window.Width = 9600
Rep.Window.Height = 8970
Rep.SetProperty "Main Splits/Skills","11;19"
Rep.SetProperty "Other Splits/Skills","11;19"
Rep.SetProperty "Dates","1/08/2006-1/11/2006"
Rep.SetProperty "Day Shift","1"
Rep.SetProperty "Night Shift","1"
b = Rep.ExportData("C:\EOW-3.txt", 44, 0, True, True, True)
Rep.Quit
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
Set Info = Nothing
End Sub


now my problem is i must do a program which chage the file date everyday in the code.here the statment must change everyday

Rep.SetProperty "Dates","1/08/2006-1/11/2006"

i using VB.plz help me.i don't knw how to chage and write the specific line in the vb.plz help me.i still new in this :no: